Лабораторные работы по численным методам / Численные методы / Численные методы / лабораторка 7 / Program2

program eiler;

var
x,y,a,b,h: real;

function f(x,y: real): real;
begin
f:= x*x+2*x+y/(x+2);
end;

begin
//writeln('vvedite y, a, b, h');
x:=-1;
h:=1/2;
y:=1.5;
repeat
//writeln(x:2:6);
writeln(y:2:6);
writeln ( ); writeln ( ); writeln ( ); writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( ); writeln ( ); writeln ( ); writeln ( ); writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( ); // чтобы было удобно в excel
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( ); writeln ( );
writeln ( ); writeln ( );
y:=y+h*f(x+h,y);
x:=x+h;
until not (x<=0);
writeln(h);
end.