Шк., 1990. - 240 с.: Ил. Изд «Москва» 1990 рік.
Додаток А
Форми програми
Додаток В
Лістинг програми.
Код першої форми
unit Unit1 ;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,, StdCtrls, ExtCtrls, Menus, ComCtrls, ToolWin, ImgList, jpeg;=class (TForm): TStringGrid ;: TStringGrid ;: TStringGrid ;: TStringGrid ;: TStringGrid ;: TLabel ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem;:TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TSaveDialog ;: TOpenDialog ;: TGroupBox ;: TLabel ;: TLabel ;: TEdit ;: TEdit ;: TImageList ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TStringGrid ;: TStringGrid; FormCreate (Sender: TObject); N14Click (Sender: TObject); N12Click (Sender: TObject); N17Click (Sender: TObject); N13Click (Sender: TObject); N5Click ( Sender: TObject); N16Click (Sender: TObject); N22Click (Sender: TObject); N10Click (Sender: TObject); N11Click (Sender: TObject); N4Click (Sender: TObject); N9Click (Sender: TObject); Edit1KeyPress (Sender:TObject; var Key: Char); Edit2KeyPress (Sender: TObject; var Key: Char); Edit1Exit (Sender: TObject); Edit2Exit (Sender: TObject); StringGrid3KeyPress (Sender: TObject; var Key: Char); N26Click (Sender: TObject); N25Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1;: Boolean; Unit2, Unit3, Unit4, Unit5, Unit6;
{$ R * .DFM} TForm1.FormCreate (Sender: TObject);.Options:=StringGrid3.Options;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;;TForm1.N14Click(Sender: TObject); MessageDlg ( Закінчити роботу з програмою? Raquo;, mtConfirmation, [mbYes, mbNo], 0)=mrYes then (0) ;; TForm1.N12Click (Sender: TObject);:=True;.Options:=StringGrid7.Options;.Options:=StringGrid7.Options;.Options:=StringGrid7.Options;.Options:=StringGrid7.Options;.Options:=StringGrid7.Options;.Color:=clmenu;.Color:=clmenu;.Color:=clmenu;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.SetFocus;.Enabled:=False;;TForm1.N17Click(Sender: TObject);,er,x,i,j,n,y,y1,y2,m,z,P,o,w,zero,q:integer;:=false;:=StrToInt(Edit1.Text);:=StrToInt(Edit2.Text);:=0;.RowCount:=3;.RowCount:=2;.Hide;.Hide;i:=0 to n doj:=0 to n do:=StrToInt(StringGrid3.Cells[j,0])-StrToInt(StringGrid3.Cells[j,1]);.Cells[j,2]:=IntToStr(x);.Height:=((n+1)*25)+i;.Cells[0,4]:=laquo;fraquo;+IntToStr(n)+laquo;(t)raquo;;.Height:=3*25;.Cells[0,i]:=laquo;fraquo;+IntToStr((n- 1) -i) + (t) raquo ;;. Colcount:=2; .Width:=2 * 41; .Rowcount:=n - 1;.Height:=(n*25)+i;.Colcount:=n+1;.Width:=((n+1)*41)+i;.Rowcount:=n;.Height:=(n*25)+i;.Cells[j,0]:=StringGrid3.Cells[j,2];:=StrToInt(StringGrid3.Cells[0,2])-P;.Cells[0,0]:=IntToStr(o);.Cells[n,0]:=laquo;raquo;;;
//Основні расчетиj:=0 to n - 2 doStrToInt (StringGrid5.Cells [j + 1,0]) lt; StrToInt (StringGrid5.Cells [0,0]) then.Cells[j+1,0]:=StringGrid5.Cells[0,0];:=StrToInt(StringGrid5.Cells[1,0])+StrToInt(StringGrid5.Cells[0,0]);.Cells[0,1]:=IntToStr(q);:=StrToInt(StringGrid5.Cells[j+1,0])+StrToInt(StringGrid3.Cells[j,2]);.Cells[j,1]:=IntToStr(y);ylt;StrToInt(StringGrid5.Cells[0,1]) then.Cells [j, 1]:=StringGrid5.Cells [0,1] ;;
//Далееi:=2 to n - 2 doj:=0 to (n - 1) -i do:=StrToInt (StringGrid5.Cells [1, i - 1]) + StrToInt (StringGrid5.Cells [0, 0]) ;. Cells [0, i]:=IntToStr (w);:=StrToInt (StringGrid5.Cells [j + 1, i - 1])+StrToInt(StringGrid3.Cells[j,2]);.Cells[j,i]:=IntToStr(y1);y1lt;StrToInt(StringGrid5.Cells[0,i]) then.Cells [j, i]:=StringGrid5.Cells [0, i] ;;:=StrToInt (StringGrid5.Cells [1, n - 2]) + StrToInt (StringGrid5.Cells [0,0]) ;. Cells [0, n - 1]:=IntToStr (y2);
//Підрахунок кількості летi:=n - 2 downto 1 do
Begin:=StrToInt (StringGrid5.Cells [0, i - 1]);:=StrToInt (StringGrid5.Cells [0, i]); er lt; gt; StrToInt (StringGrid5.Cells [ni, i - 1] ) thenz lt; gt; StrToInt (StringGrid5.Cells [n - 1-i, i]) then m:=m + 1 ;;;
//Error:=StrToInt (StringGrid5.Cells [0,0]); zero lt; 0 then ( Невірно введені параметри. Повторіть введення. , mtError, [MbOk], 0);
For i:=0 to n doj:=0 to n do.Cells[j,i]:=laquo;raquo;;.Cells[j,i]:=laquo;raquo;;;.RowCount:=2;.Checked:=False;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Caption:=laquo;raquo;;.SetFocus;.Caption:=laquo;raquo;;.Font.Color:=clTeal;.F...
