Блок-схема алгоритма.
Оператор, реализующий алгоритм:
while выражение do оператор;
Работает цикл с предусловием так. Вычисляется значение выражения. Если оно истинно (True), выполняется оператор. В противном случае цикл заканчивается, и управление передается оператору, следующему за телом цикла. Выражение вычисляется перед каждой итерацией цикла. Если при первой проверке выражение ложно (False), цикл не выполнится ни разу.
Выражение должно быть логической константой, переменной или логическим выражением.
Если тело цикла состоит более чем из одного оператора, необходимо использовать составной оператор:
while условие do
begin
оператор_1;
оператор_2;
…
оператор_n;
end;
Задача. Вывести значения функции 
на отрезке [0;p] с шагом 0.1.
procedure TForm1.btn1Click(Sender: TObject);
var x,y:Real;
begin
x:=0;
while x<=Pi do
begin
y:=Exp(Sin(x))*cos(x);
mmo1.Lines.Add('x='+
FloatToStr(x)+
'y='+floattostr(y));
x:=x+0.1;
end;
end;
