ЦИКЛИЧЕСКИЕ АЛГОРИТМИЧЕСКИЕ КОНСТРУКЦИИ

фигура обозначает в блок-схеме условие?
Ромб
Какой оператор описывает в программе ввод

данных?
Read, readln
Какой оператор описывает в программе вывод данных?
Write, writeln

- до)

Цикл с параметром (цикл - для)

: = n to m do < оператор >

for – для
i – параметр цикла
n - начальное значение параметра цикла
to – до
m – конечное значение параметра цикла
do – делать
<оператор> - тело цикла

При этом должно выполняться условие : n < m
Переменная i (счётчик) увеличивается на единицу от начального значения n до конечного значения m.

;

Цикл повторяется, пока значение

параметра лежит в интервале между N и K.

тело цикла

i:=N, K

S = 1 + 2 + 3 + … +

n
Подсчёт в цикле: s : = s + {текущее значение}

Program zadacha;
{вычисление суммы натуральных чисел}
var
n, s, i : integer ;
begin
writeln (‘ введите натуральное число n’) ;
readln (n) ;
s : = 0 ;
for i : = 1 to n do
s : = s + i ;
writeln (‘ сумма = ‘ , s );
end.

а определяется по ходу реализации циклического процесса
repeat

< оператор1 >
< оператор2 >
………………….
< оператор n >
until < условие >

Repeat - повторять
Until - до
Этот процесс завершается, когда после выполнения заданной последовательности операторов логическое выражение <условие> станет ИСТИННО.

до истинности условия.
Тело цикла с постусловием выполняется хотя бы

один раз.

тело цикла

условие

да

нет

до n
program zadacha3_1;
var i,n,s:integer;
begin

writeln (' введите натуральное n');
readln (n);
s:=0; i:=1;
repeat
begin
s:=s+i;
i:=i+1;
end;
until i > n;
writeln ('сумма от 1 до',n,' = ',s);
end.

– пока
< условие

> - логическое выражение
Do – делать
<оператор> - оператор внутри цикла

Оператор выполняется до тех пор, пока <условие> имеет значение ИСТИНА, прекращает выполняться, если <условие> принимает значение ЛОЖЬ.

выполняется тело цикла.

условие
да
нет
тело цикла

до n
program zadacha3_2;
var i,n,s:integer;
begin

writeln (' введите натуральное n');
readln (n);
s:=0; i:=1;
while i<=n do
begin
s:=s+i;
i:=i+1;
end;
writeln ('сумма от 1 до',n,' = ',s);
end.