Презентация - "Презентация на тему "Программирование циклов в Паскале""

Программирование циклов. Программирование циклических алгоритмов.

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

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

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

Задача 1. Вычислить сумму чисел натурального ряда
от 1 до N.
a<=N
S:=S+a
a:=a+1
да
нет
S:= 0
a:= 1
N
начало
S
конец
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.
Задача 3. Подсчитать целое количество отрезков длиной 1,5м получающиеся из бруска длиной 20м.
Задача 4. Вычислить N! (N факториал).

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

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

Задача. Вычислить сумму натурального ряда чисел от 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
N
начало
S
конец

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

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

i:=1 to N
Тело цикла
да
нет
i:= а to b

Задача. Вычислить сумму натурального ряда чисел от 1 до N
S:= 0
N
начало
S:= S + i
да
нет
i:= 1 to N
S
конец
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.