Предположим, что у нас есть следующее описание переменных:
Var
I:integer;
C:char;
B:boolean;
Col=(Red,Yellow,Green,Blue,White);
Тогда будут правильными с синтаксической точки зрения следующие конструкции цикла:
а) for I:=-10 to 10 do writeln(I);
б) for I:=10 downto -10 do writeln(I);
в) for C:='a' to 'r' do writeln(C);
г) for b:=False to True do writeln(b);
д) for Col:=Red to White do writeln(ord(Col);
Ниже приводится пример программы, вычисляющей сумму квадратов первых N целых чисел.
program SUM;
uses crt;
var N,sum,I:integer;
begin { - начало тела главной программы}
clrscr;
writeln;
writeln('<<< вычисления суммы квадратов первых N чисел >>>');
writeln; write('N = ? ');
readln(N); sum:=0;
FOR I:=1 TO N DO
sum:=sum+I;
writeln('сумма квадратов первых ',N,' чисел pавна ',sum);
readln;
end.
В практике программирования достаточно часто возникает потребность использовать вложенные циклы. Примером такого использования вложенных циклов может быть программа, вычисляющая и печатающая таблицу Пифагора:
program PIFAGOR;
uses Crt;
var I,J:integer;
begin { - начало тела главной программы}
clrscr;
gotoXY(10,5);
TextColor(Blue);
writeln('<<< ТАБЛИЦА ПИФАГОРА >>>');
writeln;
for I:=1 to 10 do { повертикали }
begin
for J:=1 to 10 do { погоризонтали }
write((I*J):4);
writeln { переход на следующую горизонталь }
end;
readln
end.