(" ").

NEW



:
! . : , , , , (18-50). Minsk, Belarus. Research paper. Agreement.

BIBLIOTEKA.BY HIT.BY - KAHANNE.COM FUT.BY
 Orphus

44 24
: • :








*

*

*

*

*

*

*

*

*





, .

, : , - , , - , . , .

- - . - .

- , .



- , . , .



, , - , .



:


;

X 1;

;

, ,
X1 X2 , - .



, , , , , - .

. , .

, Yk+1 , , . , - , .

, , .



, - - . VFH , .

PACM , TApplPandC , - Application - ; Done , , .

PACM - . - , , PACMBtn .

Tobject . VFH Tform . TForm - TApplPandC . : MouseHandler: Boolean , FormCreate - . Application - , , .

, PACMMenu , , , PrandCo M Help System . TMenu , THelpForm , VFH .

PACMBtn . - , - MethodAdamsaBashforta ( h,tp,ta : real ; NU : array[1..N] of real ) : h - ; tp , ta - , NU . , . prandcom*.df . , , , - TCartFile , Tform , Tchart .

, PrandCo M version 2.41 - Borland Pascal . , . - , .

, , 1% .



, - .

, - .

, .

, .



{

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

| PrandCoM version 2.41 Copiright ( c ) 2001 |

| |

| |

| " " |

| - 29 |

| |

| ( ) |

| .. |

| NetMail ( FidoNet ) 2:461/212.21 |

| E-Mail : JVUMailbox@rambler.ru |

| |

| VFH version 4.XX |

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

}

{$M 10000,0,0}

(****************************************************************************)

(****** : 05.05.2001 **********************)

(****************************************************************************)

Program Prognoz_and_Correction_Modification;

(****************************************************************************)

Uses PACM;

(****************************************************************************)

var

TPC : TApplPandC;

(****************************************************************************)

(******************************) begin (*************************************)

TPC.Application;

TPC.Done;

(*******************************) end. (*************************************)

(****************************************************************************)

{

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

| 2.XX |

| |

| " " - 29 |

| - .. |

| NetMail ( FidoNet ) 2:461/212.21 |

| E-Mail : jvumailbox@rambler.ru |

| |

| VFH version 4.XX |

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

}

(****************************************************************************)

(**** : 15.04.2001 *****************)

(****************************************************************************)

(****************************************************************************)

(*******************************) Unit PACM; (*******************************)

(****************************************************************************)

(*******************************) INTERFACE (********************************)

(****************************************************************************)

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. (*********************************)

(****************************************************************************)




















. , . . . .; .. - .;......1986.-288.

.. : .: .. .- .....1968.-203 .
3.... . . .-..1982.-238.





















04 2010




? CTRL+ENTER!

(): ... : http://library.by

?

LIBRARY.BY+Google

?

LIBRARY.BY:

...

LIBRARY.BY


! LIBRARY.BY , , .