Цикл "Доки". Команди While, Repeat

Мета уроку:
1. Познайомити учнів з циклом "Доки", будувати програми, блок-схеми з циклом "Доки";
2. Навчити учнів якісно використовувати цикл "Доки"при складанні найпростіших програм;
3. Розвивати вміння виділяти головне у розглянутомі матеріалі, порівнювати, узагальнювати, логічно викладати свої думки;
4. Привити інтерес до предмету інформатики.
Тип уроку: вивчення нового матеріалу.
Прилади та матеріали: операційна система Windows, мова програмування Turbo Pascal;
План уроку
І. Актуалізація знань.
ІІ. Вивчення нового матеріалу.
1. Цикл "Доки". Команди While, Repeat.
2. Демонстраційний приклад.
3. Розв’язування задач.
І. Актуалізація знань.
1) Що таке розгалуження? Оператори розгалуження;
2) Блок-схема повного розгалуження
3) Формат запису команди вибору? Яка різниця (подібність) її від розгалуження?
4) Повне і коротке розгалуження;
5) Яка структура програми у мові програмування Паскаль?;
6) Що таке блок-схема?
II. Вивчення нового матеріалу.
1) Цикл "Доки". Команди While, Repeat.
While умова do
begin
Тіло циклу
end;
Вказівка виконується таким чином: перевіряється виконання умови, записаної після слова WHILE (поки), і якщо ця умова виконується то виконується серія операторів (тіло циклу), після чого знову повертається до перевірки виконання вказаної умови (зустрівши слово END). Вказані дії виконуються доти, поки умова, яка перевіряється дає істино. Якщо умова не виконується (результат виконання умови є хибно), то тіло циклу пропускається і виконання вказівки повторення закінчується. Приклад. Вивести таблицю чисел від 20 до 30, їхні квадрати та куби за допомогою команди while можна так:
і := 20;
while і <= 30 do
begin
writeln(і:4, i*i:6, i*i*i:8);
і:=і+1;
end;
Команда циклу з післяумовою (repeat) має вигляд
repeat <команди> until <логічний вираз>;
Дія команди. Команди виконуються в циклі, доки значення логічного виразу не стане істинним. Істинний логічний вираз задає умову виходу з циклу.
2) Демонстраційний приклад.
Завдання
Протабулювати функцію y=x*x на відрізку [a,b] кроком h.
VAR X,Y,A,B,H:REAL;
BEGIN
READLN(A,B,H);
X:=A;
WHILE X<=B DO
BEGIN
Y:=X*X;
WRITELN(X,’ ‘,Y);
END;
END.
3) Розв’язування задач.
Скласти програму знаходження суми коренів квадратних цілих чисел від 0 до 50.
- Скласти програму знаходження суми всіх парних чисел від N до 50.
Підсумок уроку:
На сьогоднішньому уроці учні ознайомилися з циклом Доки, навчилися складати елементарні програми з циклом доки та ознайомилися з основою мови програмуання turbo pascal.