Алгоритм цикла
Алгоритм цикла
Условие Действие да нет Алгоритм, при котором повторяются одни и те же действия, называется циклом
Условие
Действие
да
нет
Алгоритм, при котором повторяются одни и те же действия, называется циклом
Количество повторов зависит от условия
конечный
бесконечный
нулевой
Условие да нет Ввод данных Расчет
Условие
да
нет
Ввод данных
Расчет
Вывод ответов
Условие
Действие
да
нет
Действие
Действие
Тело цикла
Цикл с предусловием Условие
Цикл с предусловием
Условие
Тело цикла
да
нет
Структура цикла
While <условие> do
begin
<тело цикла>
end;
Задача 1. Вычислить сумму чисел натурального ряда от 1 до
Задача 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.
Задача 2. Вычислить сумму чисел 1+1,5+2+2,5+…+30
Задача 2. Вычислить сумму чисел 1+1,5+2+2,5+…+30. Задача 3. Подсчитать целое количество отрезков длиной 1,5м получающиеся из бруска длиной 20м. Задача 4. Вычислить N! (N факториал).
Цикл с постусловием Условие
Цикл с постусловием
Условие
Тело цикла
да
нет
Структура цикла
Repeat
<тело цикла>
Until <условие>
Repeat (повторять тело цикла)
Until ( до условия)
Задача. Вычислить сумму натурального ряда чисел от 1 до
Задача. Вычислить сумму натурального ряда чисел от 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
Цикл «c параметром» Параметр ( i )– это простая переменная задающая количество повторов от начального(a) до конечного(b) ,
Цикл «c параметром»
Параметр (i)– это простая переменная задающая количество повторов от начального(a) до конечного(b),
Структура цикла
For i:=a to b do
begin
<тело цикла>
end;
Задача. Вычислить сумму натурального ряда чисел от 1 до
Задача. Вычислить сумму натурального ряда чисел от 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.
© ООО «Знанио»
С вами с 2009 года.
