Изучить цикл с параметром. Проверить знания прошлого урока. Воспитание умения слушать учителя. Развитие познавательного интереса.

План урока:

Проверка домашнего задания. Объяснение нового материала. Примеры программ с использованием цикла с параметром. Домашняя работа. Подведение итогов урока.

Ход урока

Проверка домашнего задания.

Постановка цели урока.

Объяснение нового материала.

Цикл с параметром наиболее часто встречающийся цикл в любом языке программирования. Этот цикл применяется тогда, когда заранее известно условие и число повторений цикла. Используется, когда известно, сколько раз выполняется циклическая часть программы.

for <параметр цикла>:=<начало> to/downto <конец> do <оператор>;
для до делать

параметр цикла - числовая переменная типа integer

начало, конец - арифметическое выражение

to - используется когда начало меньше конца

downto - используется когда начало больше конца

оператор - тело цикла, любой оператор, в том числе и составной

Принцип работы:

·  Параметру присваивается значение начало

·  Выполняется оператор - тело цикла.

·  Затем параметр сравнивается с концом.

·  Если параметр больше/меньше конца, то начинает работать следующий оператор за оператором цикла, в противном случае к параметру прибавляется/отнимается единица.

·  Снова выполняется оператор.

·  Так продолжается пока параметр не станет больше/меньше конца.

Рассмотрим применение цикла с параметром на конкретных примерах.

Пример 1. Сто раз написать свое имя на экране в строчку

 Программа:

НЕ нашли? Не то? Что вы ищете?

Program Z_1;

Var i: integer;

Begin

For i: = 1 to 100 do

Write (‘Имя ’);

Readln

End.

Пример 2. Вывести на экран таблицу перевода из градусов по шкале Цельсия в градусы по Фаренгейту, для значений от 15 до 30, шаг 1 градус. Формула перевода из Цельсия в Фаренгейты F=(c*1.8)+32.

Program Z_2;

Var c: integer;

F: real;

Begin

For c: = 15 to 30 do

begin

f:= (c*1.8) +32;

writeln (c,’ ‘,f);

end;

Readln

End.

Пример 3. Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел в обратном порядке

Program Z_3;

Var x, y,i: integer;

Begin

Writeln (‘таблица квадратов нечетных чисел’);

Writeln (‘-------------------------‘);

Writeln (‘число’, ,’квадрат числа’);

Writeln (‘-------------------------‘);

For i: = 5 downto 1 do

begin

y:= sqr (x)

writeln (x, y,);

end;

Writeln (‘-------------------------‘);

Readln

End.

Самостоятельная работа. Ребята за компьютерами решают следующие задачи:

Проверить, является ли целое число простым.

Uses crt;

Var n{введенное число},i:integer;

Begin

Readln(n);

For i:=2 to n-1 do

If n mod i =0 then begin writeln(n,’не простое’);readkey; halt;end;

writeln (n, ‘простое’);

readkey;

end.

Написать программу, которая выводит на экран табл. умножения, например на 7.

Uses crt;

Var m, n,p:integer;

Begin

For i:=1 to 10 do

Writeln(7,’*’,I:2,’=’,7*I:2);

Readkey; end.

Написать программу, которая выводит табличные значения функции у=|x|+2. Диапазон изменения аргумента от – 4 до 4, приращение аргумента - 0.5

uses crt;

var x, y:real;

begin;

clrscr;

writeln('y':20,' : ','x':5);

writeln(' --------------');

x:=-4;

repeat

y:=abs(x)+2;

writeln(y:20:1,' : ',x:5:1);

x:=x+0.5;

until x>4;

readkey;

end.

Написать программу, которая определяет максимальное число из введенной последовательности положительных чисел. Завершение ввода – 0.

Uses crt;

Var a{очередное число}, m{макс. число}:integer;

Begin M:=0;

Repeat

Writeln(‘введи число’);Readln(a);

If a>m then m:=a;

Until a=0;

Writeln(‘max=’,m);

Readkey; end.

Написать программу, которая позволяет найти наибольший общий делитель двух целых чисел

program nod;

uses crt;

var n1,n2,nod: integer;

begin clrscr;

writeln ('Введите два целых числа');

readln (n1,n2);

while n1<>n2 do

if n1>n2 then n1:=n1-n2 else n2:=n2-n1;

nod:=n1;

writeln 'Наибольший общий делитель -',nod);

readkey;end.

Написать программу, которая позволяет найти наименьшее общее кратное двух целых чисел

program nok1;

uses crt;

var nok, n1,n2:byte;i:word;

begin

clrscr;

writeln('введите два числа'); readln(n1,n2);

nok:=1;

for i:=n1*n2 downto 2 do

if (n1 mod i=0) and (n2 mod i=0) then nok:=i;

write('NOK -',nok);

readkey;end.

Домашнее задание:

Написать программу, которая выводит табличные значения функции у=х2+2. Диапазон изменения аргумента от – 4 до 4, приращение аргумента 1

Урок 4, 5. Цикл с предусловием

Цель урока: изучить оператор цикла WHILE языка программирования Pascal,  синтаксис, семантику, а также научить учащихся использованию данного оператора при решении задач.

Задачи урока:

    образовательные:
      усвоение учащимися оператора цикла с предусловием и области его применения; формирование умений и навыков записи оператора WHILE на языке программирования Pascal; выработка навыков составления программ, реализующих циклические алгоритмы при решении задач;
    развивающие:
      развитие логического и алгоритмического мышления учащихся; развитие у учащихся познавательной активности; развитие памяти  и внимания; развитие коммуникационной компетентности у учащихся; формирование у учащихся компьютерной грамотности и потребности в приобретении знаний;
    воспитательные:
      привитие учащимся навыков самостоятельной работы; воспитание бережного отношения к компьютерной технике; воспитание толерантности.

Тип урока: урок изучения нового материала.

Формы и методы обучения: словесный, наглядный, практический, проблемный – фронтальный опрос,  мозговой штурм, индивидуальная работа, работа на компьютере.

Оснащение урока: компьютерная презентация «Оператор цикла WHILE», мультимедийный проектор, компьютеры с инсталлированным на них пакетом Turbo Pascal, дидактический раздаточный материал.

План урока

Оргмомент. Проверка домашнего задания  Вводное слово  Актуализация знаний и умений учащихся   Презентация нового материала Закрепление изученного материала   Работа на компьютерах  Заключение  Задание на дом 

Ход урока

2. Вводное слово. Подавляющее большинство задач с циклами можно решать разными способами, используя при этом один из трех операторов цикла. Часто решения, использующие различные операторы цикла, оказываются равноценными. В некоторых случаях все же предпочтительнее использовать какой-то один из  операторов. Сегодня на уроке мы познакомимся с одним из таких операторов — оператором цикла WHILE. Цикл, который реализуется данным оператором, называют также циклом с предусловием.  Почему это так, в каких случаях применяется данный оператор, и каков формат записи этого оператора вы узнаете не сегодняшнем уроке.

3. Актуализация знаний и умений учащихся. Актуализация знаний и умений учащихся осуществляется во время фронтального опроса, в ходе, которого им предстоит ответить на следующие вопросы:

Дайте определение циклического алгоритма. Перечислите основные структуры циклического алгоритма. Приведите примеры циклических алгоритмов. Запишите формат оператора цикла с параметром, цикла FOR. Расскажите, как выполняется оператор цикла FOR. Что следует знать, используя, оператор цикла FOR. Чему будет равен x после выполнения инструкций?

X:=0;

For i:= -5 to 0 do

N:=i*i;

X:=X+N;

8.  Что будет выведено на экран в результате выполнения инструкций?

N:=5;

X:=0;

For i:=1 to N do X:=i;

Writeln(X);

9.Сколько звездочек будет выведено на экран в результате выполнения инструкций?

For i:=1 to 5 do

For j:=1 to 5 write (‘*’);

4. Презентация нового материала. Решите следующую задачу: Распечатать квадраты чисел, находящихся в диапазоне от 0 до 1 с шагом 0,2.
Решая поставленную задачу, в процессе рассуждений учащиеся должны сделать вывод о том, что изученный ими ранее оператор цикла с параметром (оператор FOR) не позволяет решить задачу, поскольку он изменятся  с шагом 1 или -1. Учащиеся  предполагают, что  для решения поставленной задачи им нужно использовать какой-то другой оператор цикла.

Для этого учащимся предлагается прослушать интерактивный учебный курс «Основы программирования на Turbo Pascal» – Введение в Turbo Pascal\Оператор цикла While, составить опорный конспект – записать формат и блок-схему оператора в тетрадь и ответить на вопросы:

В каких случаях используется оператор цикла WHILE? Почему цикл, записанный с помощью оператора WHILE, называют циклом с предусловием? Можно ли данный оператор цикла назвать универсальным?

Принцип выполнения оператора WHILE и примеры решения некоторых задач (включая задачу о квадратах чисел, предложенную учащимся для решения в начале рассмотрения темы) учитель демонстрирует в презентации «Оператор цикла WHILE»:

WHILE  Условие выполнения цикла  DO

Тело цикла

Оператор цикла WHILE состоит из заголовка и тела цикла. Ключевые слова  WHILE и DO обозначают «до тех пор, пока» и «выполняй» соответственно.

Проверка условия выполнения цикла производится в самом начале оператора – если значение условия истинно, то выполняется тело цикла и снова вычисляется выражение условия выполнения цикла. Так продолжается до тех пор, пока значение условия выполнения цикла не станет ложным.

Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4