Алгоритм цикла

Слайд 2

Условие Действие да нет Алгоритм, при котором повторяются одни и те

Условие

Действие

да

нет

Алгоритм, при котором повторяются одни и те же действия,

называется циклом

Количество повторов зависит от условия

конечный
бесконечный
нулевой

Слайд 3

Условие да нет Ввод данных Расчет Вывод ответов Условие Действие да нет Действие Действие Тело цикла

Условие

да

нет

Ввод данных

Расчет

Вывод ответов

Условие

Действие

да

нет

Действие

Действие

Тело цикла

Слайд 4

Цикл с предусловием Условие Тело цикла да нет Структура цикла While do begin end;

Цикл с предусловием

Условие

Тело цикла

да

нет

Структура цикла
While <условие> do
begin

<тело цикла>
end;
Слайд 5

Задача 1. Вычислить сумму чисел натурального ряда от 1 до N.

Задача 1. Вычислить сумму чисел натурального ряда от 1 до N.

a<=N

S:=S+a
a:=a+1

да

нет

S:= 0
a:= 1

Program summa;
Var a, S , N: integer;
Begin
write (‘N=‘);
readln (N);
a:=1; S:=0;
While a<=N do
begin
S:=S+a;
a:=a+1;
end;
Writeln(‘Сумма ’,N,’ чисел равна ’,S);
end.

Слайд 6

Цикл с постусловием Условие Тело цикла да нет Структура цикла Repeat

Цикл с постусловием

Условие

Тело цикла

да

нет

Структура цикла
Repeat
<тело цикла>
Until <условие>


Repeat (повторять тело цикла)
Until ( до условия)

Слайд 7

Задача. Вычислить сумму натурального ряда чисел от 1 до N Program

Задача. Вычислить сумму натурального ряда чисел от 1 до N

Program summa;
Var

a, S , N: integer;
Begin
write (‘N=‘);
readln (N);
a:=1; S:=0;
Repeat
S:=S+a;
a:=a+1
Until a>N;
Writeln(‘Сумма равна’,S);
end.

a>N

S:=S+а
a:=a+1

да

нет

S:= 0
a:= 1

Слайд 8

Цикл «c параметром» Параметр (i)– это простая переменная задающая количество повторов

Цикл «c параметром»

Параметр (i)– это простая переменная задающая количество повторов от

начального(a) до конечного(b),

Структура цикла
For i:=a to b do
begin
<тело цикла>
end;

Слайд 9

Задача. Вычислить сумму натурального ряда чисел от 1 до N Program

Задача. Вычислить сумму натурального ряда чисел от 1 до N

Program summa;
Var

i, S , N: integer;
Begin
write (‘N=‘);
readln (N);
S:=0;
for i:=1 to N do
S:= S + i;
Writeln(‘Сумма равна’,S);
end.