21-22 урок, 10 класс – теория

Учитель: Брух Т.В.

Дата: ___________

Тема: «Циклы. Вложенные циклы»

Цель: Научиться программировать циклические алгоритмы.

Задачи:

1)        Рассказать о видах циклов.

2)        Дать понятие циклов «До», «Пока» и цикла с параметром.

3)        Воспитать аккуратность.

4)        Развить кругозор учащихся.

Ход урока.

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

2. Объяснение нового материала.

§  Циклы. Вложенные циклы.

§  Циклические алгоритмы

Естественный порядок выполнения операторов или строк программы, так или иначе, нарушается. Это так называемые разветвляющие алгоритмы. Типичной структурой разветвляющих алгоритмов, реализуемых на ЭВМ, является цикл.

Циклический алгоритм:

Пока  условие

Начало цикла

                   Действие

Конец цикла.

Для организации цикла предусмотрены специальные операторы.

Существует три вида циклов: Цикл «Пока», цикл «До» и цикл с параметром.

Цикл «Пока» (с предусловием)

While <условие> do <оператор>;

While <условие> do

begin < операторы >;

end;

Пример: Вычислить у=х² при х=2,4,6,8,10.

Program PR1;

var x,y: real;

begin

х:= 2;

While х<=10 do

begin

    у:=х*х;

    writeln(х:3,у:5);

    х:=х+2;

end;

end.

Цикл «До» (с постусловием)

Repeat <операторы> until <условие>;

Program PR2;

var x,y: real;

begin

х:= 2;

Repeat

     у:=х*х;

     writeln(х:3,у:5);

     х:=х+2;

until  х>10;

end.

Цикл с параметром

Если шаг изменения управляющей переменной = 1

For  i:= m1 to m2 do <оператор>;

Program PR3;

var     a,b: real; 

i: integer;

begin

for i:=1 to 4 do

begin

    a:= a * i;

    b:=2 * i+1;

    writeln(a:3, b:3);

 end;

end.

Если шаг изменения управляющей переменной = -1

For  i:= m2 downto m1 do <оператор>;

Program PR4;

var     a,b: real; 

i: integer;

begin

for i:=4 downto 1 do

begin

    a:= a * i;

    b:=2 * i+1;

    writeln(a:3, b:3);

 end;

end.

4. Закрепление.

Пример 1: Дано несколько шаров. Вычислить объем каждого из шаров, а затем найти суммарный объем всех шаров. Известно, что радиус первого  шара R, а радиус каждого последующего шара больше предыдущего на величину DR. Радиус последнего  равен RK.

Обозначим объем каждого шара через V, а суммарный объем VМ. ()

Program PR2;

const  PI= 3.14;

var V, VM, R, RK, DR : real;

begin

     writeln(‘введите значения R, RK, DR:’);

     read(R, RK, DR);

     VM:=0;

while R<=RK do

     begin

        V:= 4 * PI * R * R * R / 3;

        VM:= VM + V;

        writeln (‘R=’, R:6:2, ’ ‘:5, ’V=’, V:7:3);

                    R:=R+DR;

                 end;

    writeln(‘общий объем шаров VM=’ VM:8:3);

end.

Пример 2: Каждый будний день недели рыбак ходил ловить рыбу. Сколько он поймал рыб в среднем за день, если ежедневный улов был таким: 8, 7, 5, 9, 7, 9.

R – кол-во рыбы  день

S – сумма всех дней

Program PR3;

Var     i,n:integer;

R,S:real;

begin

  R:=0;

  writeln(‘Сколько дней рыбак ловил рыбу?’);

  read (n);

  for i:=1 to n do

    begin

       write (‘Сколько рыб он поймал за день?’);

       read (R);

       S:= S + R;

     end;

   S:=S/n;

   writeln (‘S=’, S:5:1);

end.

5. Практическая работа

Задачи с презентации

6. Домашнего задания.

Составить программу вычисления  произведения четных чисел от 1 до n (n  - любое натуральное число).