Решение задач с циклом Repeat

Разделы: Информатика


Цели урока:

Образовательные:

  • закрепить знания по теме оператор цикла с постусловием в 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-балльной школе (экспертные листы выдаются в начале урока).

23.01.2009