Проблема с курсовой!

[Алеся99]

Кто может написать Программку на Паскале для курсовой по теме:Решение систем дифференциальных уравнений методом Адамса? Помогите пожалуйста!
Я нашла тут одну программку,но она у меня не запускается.Могу написать,если что.

[somewhere]

Могу написать,если что

Напишите...

[Алеся99]

Я ее скачала тут в инете,только разобраться не могу.Помогите...

Program Uravneniya;
Uses FormObj, MouseObj, PACMEr, PACMMenu,
PACMBtn, PACMPnl, PACMPC, PACMCnst;
type
TApplPandC = object ( TForm )
Function MouseHandler: boolean;Virtual;
Procedure FormCreate;Virtual;
Procedure Application;
end;
IMPLEMENTATION
Procedure TApplPandC.FormCreate;
var
Pnl : TPanel;
Pnl1 : TPanel;
TMenu1 : TCreateMenus;
begin
Pnl.Init(548,35,619,50,1,7,1,1,1,1,false,false);
Pnl.Panel;
Pnl1.Init(470,407,630,460,1,7,1,0,1,4,true,false);
Pnl1.Panel;
TPnl1.ToolBarCreate;
TPnl1.PanelCreate;
TPageControl1.PageControlCreater;
TBitBtns.BitBtnCreaters;
TMenu1.MenusCreate;
end;
Function TApplPandC.MouseHandler;
var
TMouse1 : TMouse;

b,x,y : word;
TMenu1 : TCreateMenus;
TSubMenu1 : TCreateMenus;
ST1 : TSystemTime;
begin
MouseHandler:=false;
TMouse1.GetMouseState(b,x,y);
ST1.Init(549,36,618,49,1,15);
ST1.SystemTime;
TBitBtns.BitBtnHandlers(b,x,y);
MouseHandler:=fExitBtn;
TMenu1.MenusVisible(x,y);
TMenu1.MenusHandlers(b,x,y);
TPageControl1.PageControlHandlers(b,x,y);
end;
Procedure TApplPandC.Application;
var
TIEr : TInitErrors;
begin
TIEr.FatalErrorVFH;
TIEr.LoadFont('km_defj8.fnt');
TIEr.FindImEr1('x.bi');
InitObjGraph;
if InitMouseJVU then
begin
TIEr.LfLoad('Lf.sys');
TIEr.ErrorExec('x.bi');
TIEr.FindFile('f1.dat');
TIEr.FindFile('f2.dat');
TIEr.FindFile('f3.dat');
TIEr.FindFile('f4.dat');


TIEr.FindFile('km_defj8.fnt');
TIEr.FindFile('f_nfrj8.fnt');
TIEr.FindFile('t_nfrj8.fnt');
TIEr.FindFile('asdf.bi');
TIEr.FindFile('pacm_n1.bi');
TIEr.FindFile('pacm_n2.bi');
TIEr.FindFile('pacm_n3.bi');
TIEr.FindFile('pacm_n4.bi');
TIEr.FindFile('PrandCoM.hlp');
TIEr.FindFile('litj.chr');
TIEr.FindFile('scri.chr');
TIEr.FindFile('trip.chr');
TIEr.FindFile('tscr.chr');
TIEr.FindFile('initm.mtr');
TIEr.FindFile('initnu.mtr');
if not fQuickHalt then
begin
TIEr.LoadCFG('PrandCom.cfg');
With HT do
begin
hx1:=575;
hy1:=20;
hx2:=637;
hy2:=34;
hc:=true;
hs:='Закрыть';
end;
Init(1,1,639,479,7,1,'Prognoz & Corrections Modifications');
Form;
end;


end
else
begin
TIEr.ErrorVFH;
end;
end;
end.

[somewhere]

Алеся99, если честно, я не вижу здесь никаких уравнений. Весь код - сплошная отработка интерфейса и ничего более. Для запуска или компиляции вам понадобятся модули:
FormObj, MouseObj, PACMEr, PACMMenu, PACMBtn, PACMPnl, PACMPC, PACMCnst
может в них кроется разгадка