WHILE DO begin ; end; Примечание: Если между begin и end находится только одна инструкция, то слова begin и end можно не писать. Инструкция цикла ПОКА имеет вид:
где условие - выражение логического типа, определяющее условие выполнения цикла - операторов, находящихся находящихся между словами begin и end. Инструкция WHILE выполняется следующим образом: оператор(ы) цикла повторяется(ются) до тех пор, пока выполняется условие(т.е. логическое выражение определяющее условие true). Как только условие перестает выполняться цикл завершен.
Структурная схема цикла ПОКА. ? ОПЕРАТОР ДА НЕТ + -
На структурной схеме выход из ромба «+»(или ДА) означает выполнение условия цикла, «-» (или НЕТ) невыполнение. Цикл ПОКА не выполнится ни разу, если условие при входе в структуру оказалось ложным.
1) y:=10 while y
Следующая программа составляет таблицу значений функции 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.