Структура оператора цикла с предусловием (с предварительной проверкой условия):
WHILE <условие_выполнения> DO <оператор>;
пока делать
где <условие> - это любое логическое выражение, <оператор> - это произвольный оператор Турбо Паскаля, в том числе и составной.
Program Lab4;
Const а = 1; b = 3;
Var F1, F2, x, dx: real; {dx - шаг изменения х}
i, n: integer; {i - пеpеменная цикла}
Begin
writeln ('введите число точек N');
read(n);
dx: = (b-a)/(n-1);
x:=a;
writeln (' _____________________________');
writeln ('| I | X | F1 | F2 |');
writeln ('|---|--------------|------------|------------|');
i:=1;
while x<=b do {оператор цикла с предусловием}
begin
F2:= x*sqr(ln(x));
F1:= sqrt(exp(x)-1;
i:= i+1;
writeln('|', i:3,' |', x:8:3,'|', f1:8:4,' |', f2:8:4,' |');
x:=x+dx;
end;
writeln('|________________________|);
readln;
End.