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

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

2.

нет
Условие
Алгоритм, при котором
повторяются одни и те же
действия, называется
циклом
да
Действие
Количество повторов зависит
от условия
• конечный
• бесконечный
• нулевой

3.

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

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

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

5.

Задача 1. Вычислить сумму чисел натурального ряда
от 1 до N.
Program summa;
начало
Var a, S , N: integer;
N
Begin
write (‘N=‘);
S:= 0
a:= 1
readln (N);
a:=1; S:=0;
нет
a<=N
да
While a<=N do
begin
S:=S+a
a:=a+1
S:=S+a;
a:=a+1;
end;
Writeln(‘Сумма ’,N,’ чисел равна ’,S);
S
конец
end.

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

Структура цикла
Тело цикла
нет
Условие
да
Repeat
<тело цикла>
Until <условие>
Repeat (повторять тело цикла)
Until ( до условия)

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

начало
Program summa;
Var a, S , N: integer;
Begin
N
write (‘N=‘);
S:= 0
a:= 1
readln (N);
a:=1; S:=0;
S:=S+а
a:=a+1
Repeat
S:=S+a;
нет
a:=a+1
a>N
да
S
Until a>N;
Writeln(‘Сумма равна’,S);
end.
конец

8.

Цикл «c параметром»
Параметр (i)– это простая переменная задающая количество
повторов от начального(a) до конечного(b),
Структура цикла
i:= а to b
да
Тело цикла
нет
For i:=a to b do
begin
<тело цикла>
end;
i:=1 to N

9.

Задача. Вычислить сумму натурального ряда чисел от 1 до N
начало
Program summa;
N
Var i, S , N: integer;
Begin
S:= 0
write (‘N=‘);
i:= 1 to N
нет
readln (N);
S:=0;
да
for i:=1 to N do
S:= S + i
S:= S + i;
Writeln(‘Сумма равна’,S);
end.
S
конец

10. 1. Записать в тетрадь 3адачу 1 (3 блок-схемы и программы на Паскале) 2.Построить блок-схему и написать на языке Паскаль

программу в тетради к
задачам 2-4, используя любой вид цикла.
Задача 2. Вычислить сумму чисел
1+1,5+2+2,5+…+30.
Задача 3. Подсчитать целое количество
отрезков длиной 1,5м получающиеся из
бруска длиной 20м.
Задача 4. Вычислить N! (N факториал).