Курсовая работа: Разработка программы поиска решения системы дифференциальных уравнений двумя методами: Рунге-Кутта и Рунге-Кутта-Мерсона

f11,f22:real;

c1,kod,k10:Char;

pass:string;

ch:char;

function f1 (x1,y1,y2:real):real;

begin

f1:=y1+y2-x1*x1+x1-2;

end;

function f2(x1,y1,y2:real):real;

begin

f2:=-2*y1+4*y2+2*x1*x1-4*x1-7;

end;

procedure ur;

begin

f[1]:=f1(x,y[1],y[2]);

f[2]:=f2(x,y[1],y[2]);

end;

Procedure CursorSize(Size:word);

var

Regs: Registers;

begin

With Regs do

begin

AH:=$01;

CH:=Hi(size);

Cl:=Lo(Size);

intr($10,Regs);

end;

end;