Реализация циклического алгоритма на Pascal Цикл с параметром

до тех пор, пока удовлетворяет некоторому условию.

оператор;

i – переменная цикла;
a - начальное значение переменной цикла;
b -

конечное значение переменной цикла.
Вместо a, b могут быть записаны числовые постоянные или переменные уже ранее определенные в программе.

начальное значение a;
2) выполняются операторы входящие в тело цикла;
3) при

достижении конца цикла значение переменной i увеличивается на 1;
4) полученное значение переменной цикла сравнивается с конечным значением b. В том случае, когда
а) i≤b происходит возврат на начальную программную строку тела цикла (см.2) и операторы тела цикла выполняются при новом значении переменной цикла;
б) i>b происходит переход к выполнению программных строк, записанных после конца цикла.

оператор;

begin
оператор_1;
оператор_2;
…
оператор_n
end;

переменной цикла всегда равен 1 (to) или -1 (downto)
если в

теле цикла только один оператор, слова begin и end можно не писать:
если конечное значение меньше начального, цикл (to) не выполняется ни разу (проверка условия в начале цикла, цикл с предусловием)

for i:=1 to 8 do
writeln('Привет');

и конечного значения внутри цикла количество шагов не изменится:
n :=

8;
for i:=1 to n do begin
writeln('Привет');
n := n + 1;
end;

нет зацикливания

Цикл с параметром

цикла, при котором нарушено условие:
for i:=1 to 8 do
writeln('Привет');
writeln('i=',

i);

for i:=8 downto 1 do
writeln('Привет');
writeln('i=', i);

i=9

i=0

Цикл с параметром

i:=1 to 3 do a := a+1;
a = 4
a :=

1;
for i:=3 to 1 do a := a+1;

a = 1

a := 1;
for i:=1 downto 3 do a := a+1;

a = 1

a := 1;
for i:=3 downto 1 do a := a+1;

a = 4

i := 5 to 33 do
write (i);
end.

');
read (n);
for i := 1 to n do s

:= s + 1/i;
write ('Сумма равна ', s);

do s := s + 1/(sqr(k) + k +

1);
write ('Сумма равна ', s);

Вывести на экран сумму всех чисел от 5 до 20.
6.

Вычислить произведение четных чисел от 8 до 18.
7. Вывести на экране: 10, 15, 20, ... , 65.

8. Вычислить сумму:

9. Вычислить сумму всех трехзначных чисел кратных 13 (первое число 104).