Конструкция For … To (DownTo) …Do называется перечисляемым циклом, или циклом со счетчиком.
Синтаксис:
For <Переменная цикла> :=<Нач. значение> To(DownTo) <Кон. значение> Do
Begin
<блок операторов>
End;
<Переменная цикла> (счетчик цикла) автоматически увеличивается на единицу (от начального значения до конечного) после каждого выполнения <блока операторов> (тела цикла). Счетчик цикла может быть целочисленного, символьного или логического типа.
Если требуется, чтобы <Переменная цикла> не увеличивалась, а уменьшалась, то вместо слова To используется слово DownTo. Конструкция цикла с заданным количеством повторений изображена на рис.4.1.
i — параметр цикла;
n_nach — начальное значение параметра цикла;
n_kon_ - конечное значение параметра цикла;
1 — шаг изменения параметра цикла;
Рис. 4.1. Блок-схема конструкции цикла с заданным количеством повторений
Повторение цикла прекращается, если значение <Переменной цикла> превысит <Кон. значение>. Если заданы "противоречивые" начальное и конечное значения счетчика цикла, то цикл может не выполниться ни разу (for i:=1 to 0 do …).
Пример: печать первых десяти натуральных чисел на экран.
for i:=1 to 10 do
begin
writeln(i);
end;
Задача. Найти сумму заданного количества натуральных чисел, начиная с первого.
Var i,s,n:integer;
BEGIN
Writeln(‘Ведите количество’);
Readln(n);
for i:=1 to n do
begin
s:=s+i;
end;
writeln(s);
END.
