Урок 7

 

Тема:

Описание команды  повторения языком программирования. .Логические циклы While и Repeat.

Цели урока:

1. Познавательная – научить детей использовать логические циклы.
2. Развивающая – учить анализировать и сравнивать, задавать вопросы.
3. Воспитательная – воспитывать дисциплинированность, ответственность, бережное отношение к вычислительной технике.

Тип урока: формирование новых знаний.

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

II.                Проверка домашнего задания. -5 мин

Д/З. Отредактировать   программу: найти  среди введенных чисел наименьшее  число.

1. Открыть программу »Summa», которую писали на прошлом уроке.
2. Отредактировать ее, чтобы компьютер находил среди введенных в память чисел, наименьшее.
3. Program Summa;

Uses Crt;

Var a, min:real; i,n:integer;

Begin

Clrscr;

                   writeln('sk chisel ');

                   readln(n);

                   writeln('1 chislo ');

                   readln(a);

                   S:=a;

                   Min:=a;

    for i:=2 to n do

        begin

                   writeln('vvedite chislo ');

                    readln(a);

                     if a<min then min:=a else min:=min    

        end;

                      writeln('min=',min:3:1);

end.

III.             Актуализация опорных знаний -5 мин

1.      что такое цикл;

2.      Какие бывают циклы?

3.      С каким циклом познакомились на прошлом уроке?

4.      Форматы оператора прямого перечня и оператора обратного перечня?

Оператор прямого перечня:

for i:=n1 to n2 do оператор;

Оператор обратного перечня:

for i:=n2 downto n1 do оператор;

IV.              Мотивация.

При составлении программ часто возникают ситуации, когда

1. Заранее не известно количество повторений цикла;

2. Переменная – счетчик цикла должна изменяться с шагом ≠ 1.

 

·        В таких случаях используют циклы  «ПОКА» или «ДО», так называемые логические циклы. Сегодня научимся составлять простые программы с использованием оператора цикла «пока» и «ДО»..

 

 

V.                 Изложение нового материала (работа с презентацией «While и Repeat».-7мин

 

Логические циклы-это циклическое повторение блока команд, пока выполняется (или не выполняется) некоторое условие

 

                          

1.      Формат команд While и Repeat.

Пока- while

Оператор цикла “пока»- цикл с предусловием  имеет вид:

While условие do

Операторы;

2. Оператор цикла «до»- цикл с постусловием

Repeat

Операторы;

Until условие;

3. Различия между циклами While и Repeat.

·        В цикле While проверка условия выполнения цикла находится в начале цикла, а в Repeat – в конце. Цикл Repeat всегда выполняется хотя бы один раз, а цикл While может не выполнятся ни разу.

·        В цикле While выход из цикла осуществляется, если условие ложно, а в Repeat – если условие истинно.

·        Между словами Repeat и Until можно размещать несколько операторов без Begin и End, а цикл  While…do может содержать только один оператор тела цикла; поэтому нужно использовать Begin и End.

4. Примеры задач на использование циклов While и Repeat.

·        При каком количестве слагаемых последовательности  их сумма  превысит 10?

 

 

Program Summa_2;

Uses Crt;

Var sum, x: real;

    K: integer;

Begin

Clrscr;

sum:=0;

k:=1;

While sum<=10 do

      Begin

           Sum:=sum+1/k;

           k:=k+1;

      end;

Writeln('Kolichestvo elementov=',k);

readln;

end.

 

VI.              Закрепление нового материала - практическая работа на компьютере.(10-15 мин)

 Задание для практической работы - написать программу:
С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0. Определить:
1. Максимальное число в этой последовательности.
2. Количество четных чисел.

2 варианта. Первые из написавших программу на компьютере, пишут свою программу на доске.(если есть проектор, спроецировать готовые программы на экран).

1 вариант( девушки). Пишут программу с предусловием.

Program Summa_2;

Uses Crt;

Var x,max, k,n: integer;

Begin

Clrscr;

k:=0; max:=x;

Writeln('введите 1 число');

Readln(x)’

While x<>0 do

      Begin

Writeln('введите число');

Readln(x);

If x >max then max:=x else max:=max;

If x mod 2 =0 then k:=k+1;     

      end;

Writeln('Kolichestvo elementov=',k);

Writeln('Максимальное число=',max);

end.

2 вариант(юноши)- Пишут программу с постусловием.

 

Program Summa_2;

Uses Crt;

Var x,max, k,n: integer;

Begin

Clrscr;

k:=0; max:=x;

Writeln(' 1 число');

Readln(x);

 repeat

      Begin

Writeln('введите число');

Readln(x);

If x >max then max:=x else max:=max;

If x mod 2=0 then k:=k+1;

      end;

      until x=0;

Writeln('Kolichestvo elementov=',k);

writeln(max);

end.

VII.           Проверка выполнения практической работы, выставление оценок(всем).

VIII.         Итоги урока. Сегодня рассмотрели примеры использования цикла REPEAT и While.

 

·        Различие между циклами While и Repeat?

IX.              Домашнее задание:

Найти все двузначные числа, кратные 7.