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

program Lab7;
const a=-1;
b=0;
N=8;
var
i: integer;
h:real;
x,y: array [0..N] of real;

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

begin
h:=(b-a)/N;
y[0]:=1.5;
x[0]:=a;
writeln('X(i) Y(i)');
//for i:=0 to N-1 do
repeat
begin
y[i+1]:=y[i]+h*f(x[i],y[i]);
x[i+1]:=x[0]+(i+1)*h;

writeln(x[i]:2:5,' ',y[i]:2:5);
end;
until x[i]>0;
writeln(h);
end.