Оператор цикла FOR

Оператор цикла FOR используется для организации циклов над целыми числами с шагом ±1. Существуют два варианта записи цикла FOR.

1) FOR имя:=нач TO кон DO действие;

имя - имя переменной управления циклом (INTEGER)

нач - начальное значение этой переменной (INTEGER)

кон - конечное значение этой переменной (INTEGER)

шаг = 1 (не указывается)

2) FOR имя:=нач DOWNTO кон DO действие;

шаг =-1

Таким образом,слово TO в операторе цикла указывает на то,что шаг = 1; слово DOWNTO указывает на шаг = -1.

Если в цикле FOR нужно сделать более 1 действия, то они заключаются в операторные скобки begin...end.

FOR имя:=нач TO кон DO

BEGIN

действие;

. ....

действие;

END;

Задача: Вычислить сумму чисел от 1 до 1000.

program prim;

var s,x:integer;

begin

s:=0;

for x:=1 to 1000 do s:=s+x;

writeln('сумма=', s);

end.

Задача: Вывести на экран значения функции y=cos x в точках: 90°,89°,..., 1°

program prim;

var y:real; x:integer;

begin

for x:=90 downto 1 do begin

y:=cos(x*pi/180);

writeln('при х=', x, 'y=', y); end; end.