Ст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.