Циклы

алгоритм
program primer 1;
begin
writeln(' Hello');
writeln(' Hello ');

writeln(' Hello ');
writeln(' Hello ');
writeln(' Hello ');
end.

Неэффективная программа

integer;
begin
for i:=1 to 5 do
begin
writeln(‘Hello’);
end;
end.
Здесь переменная

i запоминает сколько раз выполнилась повторяющаяся команда (тело цикла)

цикл – это такой цикл, число повторений которого известно заранее.

В Pascal такой цикл обычно реализуется с помощью оператора for.
Итерационный цикл – это такой цикл, число повторений которого заранее неизвестно и выход из цикла производится в случае выполнения или невыполнения какого-то условия. В Pascal такие циклы обычно реализуются с помощью операторов while и repeat

это значение не больше конечного значения, то выполняется тело цикла.

Затем значение счетчика увеличивается на 1 и опять сравнивается с конечным значением. Если оно по-прежнему не больше конечного значения, то оператор выполняется еще раз и так далее.
Замечание: если тело цикла состоит из одного оператора, то begin и end можно опустить

не меньше конечного значения, то выполняется тело цикла. Затем значение

счетчика уменьшается на 1

от 1 до n Решение: умеем составлять алгоритм с циклом for
Программа

с циклом for
Program m1;
var i,n:integer;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
write(i,' ');
end.

Программа с циклом while
Program m2;
var i,n:integer;
begin
writeln('Введите n'); readln(n);
i:=1;
while i<=n do
begin
write(i,' '); i:=i+1;
end;
end.

от 1 до n
Пока истинно условие
i

числа i 2) увеличиваем на единицу значение i

заранее число раз. Выход осуществляется, если условие окажется ложным.
Принцип работы:

перед каждым выполнением цикла анализируется условие: если оно истинно, выполняется тело цикла и управление передается на повторную проверку условия. Если условие ложно – цикл завершается и управление передается на оператор, следующий за циклом while.

ситуация зацикливания, т.е. цикл не закончится никогда. Поэтому внутри цикла

должны находится операторы, приводящие к изменению условия, чтобы цикл мог корректно завершиться
Если тело цикла состоит из одного оператора, то begin и end можно опустить

то выполнение цикла завершится. Если ложно, то снова выполняется

тело цикла

операторы тела цикла выполнятся хотя бы один раз
В цикле repeat,

так же как и в операторе while возможна ситуация зацикливания в случае, если <условие> всегда будет оставаться ложным

от 1 до n
Программа с циклом while
Program m2;
var i,n:integer;
begin
writeln('Введите n');

readln(n);
i:=1;
while i<=n do
begin
write(i,' '); i:=i+1;
end;
end.

Программа с циклом repeat
Program m3;
var i,n:integer;
begin
writeln('Введите n'); readln(n);
i:=1;
repeat
write(i,' ');
i:=i+1;
until i>n
end.