Цели урока:
Образовательные:
- закрепить знания по теме оператор цикла с постусловием в Turbo Pascal 7.0.
- повторить основные правила при решении задач с циклом Repeat.
- научить решать задачи с циклом Repeat.
Развивающие:
- развивать логическое мышление.
- развивать алгоритмическую грамотность.
- развивать монологическую речь.
Воспитательные: воспитывать нравственно-бережное отношение к ПК.
Оборудование: класс ПК, проектор, презентация (см. приложение).
Ход урока
1. Oрганизационный момент.
Учитель: Здравствуйте ребята, сегодня на нашем уроке мы будем решать задачи с циклом Repeat.
2. Повторение пройденного материала - блиц-опрос.
Учитель: Нам необходимо еще раз вспомнить, какие правила необходимо знать по циклу с постусловием (ответы учащихся)
3. Практическая часть (решение задач)
Учитель: Цикл – это многократно выполняемая последовательность инструкций. В данном цикле сначала выполняются инструкции, составляющие тело цикла, затем проверяется условие, которое в данном случае является условием выхода из цикла. Разобрать решение задач с оператором цикла (просмотр презентации).
Программа на вычисление среднего арифметического последовательности положительных чисел.
Program z1;
var
а : integer; { число, введенное с клавиатуры }
n : integer; { количество чисел }
s : integer; { сумма чисел }
m : real; { среднее арифметическое }
begin
s:=0;
n:=0;
writeln ('Вычисление среднего арифметического последовательности положительных чисел.');
writeln('Вводите после стрелки числа и для завершения ввода введите ноль ');
repeat
write ('-> ');
readln(a);
s:=s+a;
n:=n+l;
until a <= 0;
n:=n-l;
writeln('Введено чисел:', n);
writeln('Сумма чисел: ',s);
m := s/n;
writeln('Среднее арифметическое: ',m:6:2);
writeln('Для завершения работы программы нажмите <Enter>');
readln;
end.
Предложить решить задачу самостоятельно, а затем разобрать ее с группой. Выяснить, что вызвало затруднение при решении этой задачи и разобрать эти места более подробно.
Написать программу ожидание нажатия конкретной клавиши без учета регистра.
Program z2;
Uses CRT;
Var
Ch: Char;
Begin
ClrScr;
Repeat
Writeln (‘ нажмите Q!’);
Ch:= readkey;
Until (ch= ‘Q’) or (ch= ‘q’);
Writeln (‘Спасибо!’);
readKey;
end.
Самостоятельная работа.
Решение задач с применением операторов цикла: написать программу определения максимального числа последовательности положительных чисел.
Program z3;
var
а : integer; { очередное число }
m : integer; { максимальное число }
begin
write('Определение максимального числа последовательности положительных чисел');
writeln('Вводите после стрелки числа и для завершения ввода введите ноль');
m:=0;
repeat
write(‘-> ');
readln(а);
if а > m then m := а;
until а <= 0;
writeln ('Максимальное число: ',m);
writeln ('Для завершения работы программы нажмите <Enter>'};
readln;
end.
Итог урока: Задание на дом: решить задачу из методички с применением оператора цикла.
Рефлексия.
Учитель: Ребята с помощью вот этих экспертных листов оцените, пожалуйста, свою работу на уроке по 10-балльной школе (экспертные листы выдаются в начале урока).