1. Безусловный цикл
loop <количество повторений> do
begin
<тело цикла>
end;
2. Цикл с предусловием
while <условие> do
begin
<тело цикла>
end;
3. Цикл с постусловием
repeat
<тело цикла>
until
<условие выхода>
4. Цикл со свободным выходом
loop <количество повторений> do
begin
<часть тела цикла>
if <условие выхода> then break;
<часть тела цикла>
end;
5. Цикл со счетчиком (итератором)
for var <переменная> := <стартовое число> to <конечное число> do
begin
<тело цикла>
end;
program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
Безусловные циклы
Цикл с предусловием
Цикл с постусловием
Цикл с выходом из середины
Цикл со счётчиком (или цикл для)
Совместный цикл
До выход из цикла
Пропуск итерации