WHILE <условие> DO begin <последовательность операторов>; end; Примечание:

WHILE <условие> DO begin <последовательность операторов>; end; Примечание: Если между begin и end находится только одна инструкция, то слова begin и end можно не писать. Инструкция цикла ПОКА имеет вид:

где условие - выражение логического типа, определяющее условие выполнения цикла - операторов, находящихся находящихся между словами begin и end. Инструкция WHILE выполняется следующим образом: оператор(ы) цикла повторяется(ются) до тех пор, пока выполняется условие(т.е. логическое выражение определяющее условие true). Как только условие перестает выполняться цикл завершен.

Структурная схема цикла ПОКА. ? ОПЕРАТОР ДА НЕТ + -

На структурной схеме выход из ромба «+»(или ДА) означает выполнение условия цикла, «-» (или НЕТ) невыполнение. Цикл ПОКА не выполнится ни разу, если условие при входе в структуру оказалось ложным.

1) y:=10 while y<100 do begin x:=x+2 y:=y*x+20; writeln(‘y=’,y); end; Пример:

Следующая программа составляет таблицу значений функции y = sin x, и выводит ее на экран.

Program Sinus; var x,y:real; begin x:=0; writeln(‘x’:10,’sin x’:10); while x< = 3.14 do begin y:=sin(x); writeln(x:10,’ ‘,y:7:5); end; readln end.