МЕТОДЫ РЕШЕНИЯ

МЕТОДЫ РЕШЕНИЯ. дифференциальных уравнений. Пер.с англ. под редакцией А.А.Абрамова - М.Наука. Гл.ред.физ.мат.лит.1986 288с. 2.Р.В.Хемминг Численные методы для научных работников и инженеров Пер с англ. Под редакцией Р.С.Гутера Гл.ред.физ.мат.лит.1968 203 с. 3. Т.Шуп. Решение инженерных задач наЭВМ. Практическое пособие Пер.с англ М.Мир.1982 238с. Приложение 1 Блок схема Алгоритма Приложение 2 Решение одного дифференциального уравнения Приложение 3 Решение системы линейных дифференциальных уравнений 1-ое уравнение 2 ое уравнение 3 е уравнение 4 ое уравнение Приложение 4 Тексты программ PrandCoM version 2.41 Copiright c 2001 Программа разработана студентом Национального Технического Университета Харьковский Политехнический Институ группы И - 29 Кафедры Автоматического Управления Движением Системы и процессы управления Ухановым Е. В. NetMail FidoNet 2461212.21 E-Mail JVUMailboxrambler.ru Программа разработана на основе объектной библиотеки VFH version 4.XX M 10000,0,0 Дата последней разработки 05.05.2001 Program PrognozandCorrectionModification Uses PACM var TPC TApplPandC begin TPC.Application TPC.Done end. Версия 2.XX Программа разработана студентом Национального Технического Университета Харьковский Политехнический Институ группы И - 29 Кафедры Автоматического Управления Движением - Ухановым Е.В. NetMail FidoNet 2461212.21 E-Mail jvumailboxrambler.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 booleanVirtual Procedure FormCreateVirtual Procedure Application end IMPLEMENTATION Procedure TApplPandC.FormCreate var Pnl TPanel Pnl1 TPanel TMenu1 TCreateMenus begin Pnl. Init548,35,619,50,1,7,1,1,1,1,false, false Pnl. Panel Pnl1.Init470,407,630,460,1,7,1,0,1,4,tru e, 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 MouseHandlerfalse TMouse1.GetMouseStateb, x,y ST1.Init549,36,618,49,1,15 ST1.SystemTime TBitBtns. BitBtnHandlersb, x,y MouseHandlerfExitBtn TMenu1.MenusVisiblex, y TMenu1.MenusHandlersb, x,y TPageControl1.PageControlHandlersb, x,y end Procedure TApplPandC.Application var TIEr TInitErrors begin TIEr. FatalErrorVFH TIEr. LoadFontkmdefj8.fnt TIEr. FindImEr1x.bi InitObjGraph if InitMouseJVU then begin TIEr. LfLoadLf.sys TIEr. ErrorExecx.bi TIEr. FindFilef1.dat TIEr. FindFilef2.dat TIEr. FindFilef3.dat TIEr. FindFilef4.dat TIEr. FindFilekmdefj8.fnt TIEr. FindFilefnfrj8.fnt TIEr. FindFiletnfrj8.fnt TIEr. FindFileasdf.bi TIEr. FindFilepacmn1.bi TIEr. FindFilepacmn2.bi TIEr. FindFilepacmn3.bi TIEr. FindFilepacmn4.bi TIEr. FindFilePrandCoM.hlp TIEr. FindFilelitj.chr TIEr. FindFilescri.chr TIEr. FindFiletrip.chr TIEr. FindFiletscr.chr TIEr. FindFileinitm.mtr TIEr. FindFileinitnu.mtr if not fQuickHalt then begin TIEr. LoadCFGPrandCom.cfg With HT do begin hx1575 hy120 hx2637 hy234 hctrue hsЗакрыть end Init1,1,639,479,7,1,Prognoz Corrections Modifications Form end end else begin TIEr. ErrorVFH end end END.