Т.Шуп.”Решение инженерных задач наЭВМ. Практическое пособие “

3.   Т.Шуп.”Решение инженерных задач наЭВМ. Практическое пособие “

Пер.с англ.-М.Мир.1982.-238с.

Приложение 1 :

Блок схема Алгоритма

-

+

H:=h*N

-

H:=h/N

+

Приложение 2:

Решение одного дифференциального уравнения

Приложение 3 :

Решение системы линейных дифференциальных уравнений

1-ое уравнение 2 –ое уравнение

3 – е уравнение 4 –ое уравнение

Приложение 4 : Тексты программ

{

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

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

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