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

Оператор цикла WHILE имеет следующий вид:

WHILE условие DO BEGIN

повторяющийся

блок операторов

END;

условие - это условие, при котором цикл выполняется (условие входа в цикл). Если повторяющийся блок операторов состоит из одного действия, то операторные скобки begin... end можно опустить.

Пример: вычислить значения функции y=sin² x в точках 1°,2°,3°,...,90°.

program prim;

var x,y:real;

begin

x:=1;

while x<=90 do begin

y:=sqr(sin(x*pi/180));

writeln('в точке x=', x, 'y=', y);

x:=x+1;

end;

end.

Блок-схема задачи:

начало