Лабораторные работы по численным методам / otchett

if (p>eps) then

h:=h/2;

end;

x1:=x0;

u11:=0;

u01:=y0;

y1:=y0;

u02:=y0;

y2:=y0;

x2:=x0;

u2:=0;

While x1<b do

begin

u11:=u1(x1,y1,h);

u01:=u11;

y1:=u11;

m:=h/2;

u2:=u1(x2,y2,m);

u02:=u2;

y2:=u2;

x2:=x2+m;

u2:=u1(x2,y2,m);

u02:=u2;

y2:=u2;

x2:=x2+m;

P:=abs(u11-u2);

writeln((x1):5:4,' ',u11:5:4,' ',h:5:4,' ',p:5:4);

x1:=x1+h;

end;

readln;

еnd.

21