Урок в 9 классе по теме "Решение задач с циклом Repeat"
план-конспект урока (информатика и икт, 9 класс) по теме

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

9 класс  

Цели урока:

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

1. закрепить знания по теме оператор цикла с постусловием в Turbo Pascal 7.0.
2. повторить основные правила при решении задач с циклом Repeat
3. научить решать задачи с циклом  Repeat.

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

1. развивать логическое мышление.
2. развивать алгоритмическую грамотность.
3. развивать монологическую речь.

Воспитательные:

1. воспитывать нравственно-бережное отношение к ПК.

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

Ход урока:

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

Учитель: Здравствуйте ребята, сегодня  на нашем уроке мы будем  решать задачи с циклом 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('Для завершения работы программы нажмите ');

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 ('Для завершения работы программы нажмите '};

readln;

end.

Итог урока:

Задание на дом: решить задачу из методички с применением оператора цикла.

Рефлексия.

Учитель: Ребята  с помощью вот этих экспертных листов оцените, пожалуйста, свою работу на уроке по 10-балльной школе (экспертные листы выдаются в начале урока).