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

Const n=2;

Type

mas=Array[1..4] of String[60];

var

Form1: TForm1; i,s,p:integer;

h,v,x,e1,e2,e3 : real;

y,w,k,f,e,a,c,d:array[1..10] of real;

j,d2:integer;

k2:byte;

implementation

uses Unit2;

{$R *.dfm}

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 TForm1.Button1Click(Sender: TObject);

begin

h:=strtofloat(edit1.Text);

e1:=strtofloat(edit2.Text);