Pascal итерационный метод

[Tent]

метод итераций

[Mad_Cat]

uses crt;
const e=0.001;
      n=2;
      n1=4;
      x=pi/3;
var i,j:integer;
y0,y1,b:real;
begin
i:=0;y0:=0; b:=x;
repeat
inc(i);
Y0:=b;
b:=1;
for j:=1 to n-1 do
b:=b*y0;
y1:=y0+1/n*(x/b-Y0);
b:=Y1;
until abs(y1-y0)<e;
writeln('корень квадратный из пи/3~',Y1,'i=', i);
i:=0;y0:=0; b:=x;
repeat
inc(i);
Y0:=b;
b:=1;
for j:=1 to n1-1 do
b:=b*y0;
y1:=y0+1/n1*(x/b-Y0);
b:=Y1;
until abs(y1-y0)<e;
writeln('корень 4 степени из пи/3~~',Y1,'i=', i);
writeln;
end.