Теоретический обзор.

Структура оператора цикла с предусловием (с предварительной про­веркой условия):

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.