- Робоче вікно
В
Рисунок 3 - Заповнення випадковими числами
В
Рисунок 4 - Заповнення вручну
В
Рисунок 5 - Прийняття даних
В
Малюнок 6 - Обробка відкритої форми умов транспортної задачі
В
Малюнок 7 - Результат
Додаток В
unit Unit1_1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, StdCtrls, Buttons, Menus; = class (TForm): TStringGrid;: TEdit;: TEdit;: TLabel; : TLabel;: TButton;: TButton;: TStringGrid;: TEdit;: TLabel;: TGroupBox;: TButton;: TCheckBox;: TButton;: TBitBtn;: TBitBtn;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem ;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TPopupMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Edit1KeyPress (Sender: TObject; var Key: Char); Edit2KeyPress (Sender: TObject; var Key: Char); Button4Click (Sender: TObject); FormCreate (Sender: TObject); Edit1Change ( Sender: TObject); Edit2Change (Sender: TObject); CheckBox1Click (Sender: TObject); Button5Click (Sender: TObject); BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject);
{Private declarations}, m, s1, s2: integer;: array [1 .. 100,1 .. 100] of integer;, potr: array [1 .. 100] of integer; , o, q: string;: integer;: boolean;
{Public declarations};: TForm1;, ac2: boolean; Unit2, Unit5, Unit4;
{$ R *. dfm} TForm1.Button1Click (Sender: TObject); s1, s2, i, j, a, b: integer; to n doj: = 1 to m do [i, j]: = random (50); s <> '2 'doi: = 1 to n do begin: = random (300);: = s1 + a; [ i]: = a;. Cells [m +1, i]: = inttostr (zap [i]);; j: = 1 to m do begin: = random (300);: = s2 + b; [j] : = b;. Cells [j, n +1]: = inttostr (potr [j]);; s1 = s2 then s: = '2 'else: = 0; s2: = 0;; i: = 1 to m do begin: = inttostr (i);. Cells [i, 0]: = 'Пункт призначення' + s;; j: = 1 to n do begin: = inttostr (j);. Cells [0, j]: = 'Пункт to n doj: = 1 to m do.Cells [j, i]: = inttostr (ishod [i, j]);; TForm1.Button2Click (Sender: TObject);. Close;. close;; TForm1.Edit1KeyPress (Sender : TObject; var Key: Char); Key of
'0 '.. '9', # 8:;// цифри і
# 13: Edit2.SetFocus;// клавіша Key: = Chr (0);;; TForm1.Edit2KeyPress (Sender: TObject; var Key: Char); Key of
'0 '.. '9', # 8:;// цифри і
# 13: Edit2.SetFocus;// клавіша Key: = Chr (0);;; TForm1.Button4Click (Sender: TObject); i, j: integer;. Enabled: = false;. Enabled: = false; to m do begin: = inttostr (i);. Cells [i, 0]: =...
