Урок информатики на тему "Оператор цикла с предусловием. Оператор цикла с постусловием"

Фарион Елена Александровна

учитель информатики, физики

и математики

МОУ СОШ№96 г.Воронеж

Тема: Оператор цикла с предусловием. Оператор цикла

с постусловием.

Цели: 1) Образовательная: показать сходство и различие операторов цикла с предусловием и постусловием в языке

программирования Turbo Pascal; знать основные приемы работы с данными циклами.

2) Развивающая: развивать навыки составления программ с циклами и уметь проверять результат с помощью компьютера.

3) Воспитывающая: Восприятие компьютера как инструмента обработки информационных объектов.

Ход урока.

1. Орг. момент.

2. Инструктаж по технике безопасности.

С учащимися проводится беседа по технике безопасности, в которой отмечается поведение ученика в кабинете информатики.

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

Задание.

Определить значение переменной S после выполнения следующих операторов:

s:=0; n:=5 for i:=2 to n do s:=s+100 div i

Ответ: S=128

Вопросы.

Как записывается оператор цикла с параметром? Как он работает?

Как записывается полный условный оператор? Как он работает?

Как записывается неполный условный оператор? Как он работает?

4. Изучение нового материала.

Теоретическая основа урока.

а) Цикл с предусловием.

While…do

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

Выполнение оператора цикла с предусловием начинается с проверки условия, записанного после слова while. Если оно соблюдается, то выполняется <тело цикла>, а затем вновь проверяется условие и т.д. Как только на очередном шаге окажется, что условие не соблюдается, то выполнение <тела цикла> прекратиться.

Пример 1.

Дано натуральное число n. Посчитать количество цифр в числе.

Решение.

Подсчет количества цифр начнем с последней цифры числа. Увеличим счетчик цифр на единицу. Число уменьшим в 10 раз (тем самым мы избавляемся от последней цифры числа). Далее с получившимся числом проделаем ту же последовательность действий и т.д., пока число не станет равным нулю.

Примечание: в теле цикла обязательно должен быть оператор, влияющий на соблюдение условия, в противном случае произойдет зацикливание.

Program prim 1;

Uses crt;

Var m, n: longint;

K: integer;

Begin

Clrscr;

Writeln(‘ введите N= ‘); readln(n);

m: = n; k: = 0;

while m<>0 do begin;

k: = k+1; m: = m div 10;

end;

writeln(‘в числе ‘,n,’- ‘,k,’ цифр!);

readln;

end.

б) Оператор цикла с постусловием.

Для программной реализации в Turbo Pascal циклических процессов с неизвестным числом повторений существует еще один оператор – оператор цикла с постусловием, который имеет следующий вид:

Repeat <оператор 1>;

<оператор 2>;

…

<оператор n>;

Until <условие>;

где repeat (повторять), until (до тех пор, пока…)

Этот оператор аналогичен оператору цикла с предусловием, но отличается от него тем, что проверка условия производится после очередного выполнения тела цикла. Это обеспечивает его выполнение хотя бы один раз.

Обратите внимание на то, что данный оператор цикла предполагает наличие нескольких операторов в теле цикла, поэтому служебные слова begin и End не нужны.

Последовательность операторов, входящих в тело цикла, выполняется один раз, после чего проверяется соблюдение условия, записанного следом за служебным словом until. Если условие не соблюдается, цикл завершается. В противном случае – тело цикла повторяется еще раз, после чего снова проверяется соблюдение условия.

При описании циклов с постусловием необходимо принимать во внимание следующее:

- перед первым выполнением цикла условие его окончания (или продолжения) должно быть определено;

- тело цикла должно содержать хотя бы один оператор, влияющий на условие окончания (продолжения), иначе цикл будет бесконечным;

- условие окончания цикла должно быть в результате выполнено.

Для досрочного выхода из цикла используют функции EXIT, BREAK.

5. Решение задач.

Практическая часть урока.

Пример 2.

Составить программу планирования закупки товара в магазине на сумму, не превышающую заданную величину.

Решение.

Обозначим через x, k – соответствующую цену и количество товара, через p – заданную предельную сумму, через s – общую стоимость покупки. Начальное значение общей стоимости покупки (s) равно нулю. Значение предельной суммы считывается с клавиатуры. Необходимо повторять запрос цены и количества выбранного товара, вычислять его стоимость, суммировать ее с общей стоимостью и выводить результат на экран до тех пор, пока она не превысит предельную сумму p. В этом случае на экран нужно вывести сообщение о превышении:

Program prim2;

Uses crt;

Var c, k, p, s: integer;

Begin

Clrscr;

Вводим наличие денежных средств.

Writeln(‘Пред. сумма - ‘);

Readln(p);

Начальное значение стоимости покупки равно нулю.

S: = 0;

Repeat;

Вводим цену товара и его количество.

Writeln(‘цена товара и его кол. ‘);

Readln(c,k);

Находим стоимость приобретенных товаров.

S: = s+c*k;

Выводим на экран стоимость приобретенных товаров.

Writeln(‘Стоимость покупки = ‘, s);

Повторяем до тех пор, пока стоимость товара не превысит наличия денежных средств.

Until s>p;

Writeln(‘Суммарная стоимость покупки

превысила предельную сумму’);

readln;

end.

Самостоятельная работа в парах (с выше написанной программой)

Осуществить досрочный выход из цикла при условии, что Вы приобрели вещи на сумму p/2.

If(s>p/2) then break;

Данная программа еще раз набирается на компьютере и проверяется результат.

Пример 3.

Алгоритм Евклида – это алгоритм нахождения наибольшего общего делителя (НОД) двух целых неотрицательных чисел.

Алгоритм Евклида нахождения НОД основан на следующих свойствах этой величины. Пусть x и y одновременно не равные нулю неотрицательные числа и пусть x>=y, тогда если y=0, то НОД(x,y)=x, а если y<>0, то для чисел x, y и r, где r – остаток отделения x на y выполняется равенство