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

Стpуктуpа оператора цикла с постусловием

REPEAT <оператор 1>;

(повторять)

<оператор 2>;

<оператор N>

UNTIL <условие окончания цикла>;

(до тех поp, пока)

 

Program Lab4;

Const а = 1; b = 2;

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;

repeat {оператор цикла с постусловием}

begin

F2:= x*sqr(ln(x));

F1:= sqrt(exp(x)-1;

writeln('|', i:3,' |', x:8:3,'|', f1:8:4,' |', f2:8:4,' |');

x:=x+dx;

i:= i+1;

end;

until x>b; {условие выполнения цикла}

writeln('|________________________|);

readln;

End.