Курсовая работа: Решение дифференциального уравнения первого порядка

x[i+1]:=a+i*h;

osn_metod(x[i], y[i], h,y[i+1], h);

inc(i);

end;

{======Окончание метода Рунге-Кута =================================}

{============найдем первые и вторые производные===============}

for i:=1 to 3 do

begin

y1[i]:=sqr(x[i])-sqr(y[i]);

y2[i]:=2*(x[i]-y[i]*y1[i]);

end;

{=================================================================}

for i:=4 to n do

begin

iteraziya(i,x[i],h);

if abs(nabl3[1]-nabl2[1])<epsilon

then

begin

y[i]:=nabl3[1];

y1[i]:=nabl3[2];

y2[i]:=nabl3[3];

end

else

begin

h:=h/2;

if keypressed then halt;

solution(h);

end;

end;