Программирование циклических алгоритмов. Циклы while do, repeat until, for

Урок № 26

Дата: 09.04.2021

Класс: 10

Тема: «Операторы цикла while и repeat – until. Оператор цикла с параметром for. Порядок выполнения вложенных циклов»

Тип урока: комбинированный

Цели:

Обучающая:

1. Сформировать понятие о циклах;

2. Познакомиться с циклами WHILE и REPEAT;

3. Научиться использовать счётный цикл FOR;

4. Получить навыки решения алгоритмов с повторениями.

Развивающая:

1. Формирование навыков работы при создании программ, отработать приемы вставки в программу блоков цикла;

2. Формирование у учащихся приемов логического и алгоритмического мышления;

3. Развитие познавательного интереса;

4. Развитие умения планировать свою деятельность.

Воспитывающая:

1. Воспитывать необходимость связывать изучение нового материала с уже известными фактами;

2. Воспитывать ответственность за выполняемую работу;

3. Воспитывать аккуратность при выполнении вычислений.

Формы учебной работы учащихся: фронтальная, индивидуальная работа за ПК.

Оборудование: ПК учителя, ПК учеников, тетради, учебник, карточки с заданиями

Ход урока

1. Организационный момент

2. Актуализация опорных знаний

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

Операторы цикла while и repeat

Операторы цикла while и repeat используются тогда, когда заранее не известно общее количество итераций (повторений вычислений) цикла, а завершение вычислений зависит от некоего условия. Если условие ставится вначале цикла (на входе), то используется оператор While, если на выходе – Repeat.

Продемонстрируем сказанное на примере вычисления суммы кубов всех чисел от 1 до 10. Из кода видно, что пока b ≤ 10 (строка 7), будем выполнять тело цикла, в котором на каждой итерации к сумме sum прибавляем b³. При последнем вычислении при b=10 вычислим сумму (строка 9), а ниже увеличим b на 1: b=11, поэтому следующим шагом будет выход из цикла, поскольку условие входа b ≤ 10 нарушится.

var

b, sum: integer;

begin

b := 1;

sum := 0; // начальная сумма

while b 10 do

begin

sum := sum + b*b*b;

inc(b)

end;

writeln('sum = ', sum); // выводим результат

readln

end.

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

begin

while 1 100 do

writeln('Hello!')

end.

Данная программа будет выводить приветствие "Hello!" бесконечно, то есть до тех пор, пока вы её не остановите. Происходит это потому, что условие 1

Посмотрите ещё пример с гармоническим рядом или другие программы из раздела While задачника Абрамяна.

Задача 1. Выведите наименьший делитель числа x, отличный от 1

var

x, d: integer;

begin

write('Введите x -- ');

readln(x);

d := 2; {