'Пункт призначення' + s;; j: = 1 to n do begin: = inttostr (j);. Cells [0, j] : = 'Пункт TObject);. Enabled: = false; N11.Enabled: = false;. Enabled: = false; N17.Enabled: = false;. Enabled: = false; N7.Enabled: = false; N18.Enabled: = false;. Enabled: = false; N8.Enabled: = false; N13.Enabled: = false;. Enabled: = false;. Enabled: = false;. Enabled: = false;. Enabled: = false;. Enabled: = false;; TForm1.Edit1Change (Sender: TObject); (length (Edit1.Text) <> 0) and (length (edit2.Text) <> 0) then begin: = true; Button1.Enabled: = true; CheckBox1 . Enabled: = true;. Enabled: = true; StringGrid2.Enabled: = true;. Enabled: = true; N4.Enabled: = true; N11.Enabled: = true; else begin: = false; Button1.Enabled: = false; CheckBox1.Enabled: = false;. Enabled: = false; StringGrid2.Enabled: = false;. Enabled: = false; N4.Enabled: = false; N11.Enabled: = false;;; TForm1.Edit2Change (Sender: TObject); (length (Edit1.Text) <> 0) and (length (edit2.Text) <> 0) then begin: = true; Button1.Enabled: = true; CheckBox1.Enabled: = false; CheckBox1.Enabled: = false;. Enabled: = false; StringGrid2.Enabled: = false;. Enabled: = false; N4.Enabled: = false; N11.Enabled: = false;;; TForm1.CheckBox1Click (Sender: then beginac1 = true then TObject); i, j, Jenya: integer;: = 0; i: = 1 to n +1 doj: = 1 to m +1 doStringGrid1.Cells [j, i] <>'' then Jenya: = Je nya +1; Jenya = (((n +1) * (m +1)) -1) then begin.Enabled: = true; N8.Enabled: = true; N13.Enabled: = true;. Enabled: = true ;. Enabled: = true;. Enabled: = false; to n do begin: = s1 + strtoint (StringGrid1.Cells [m +1, i]);; j: = 1 to m do begin: = s2 + strtoint (StringGrid1.Cells [j, n +1]);; s1 <> s2 then begin
{showmessage ('Для вирішення даної задачі необхідно, щоб суми запасів і потреб збігалися');
exit;} form5.Show; else begini: = 1 to n doj: = 1 to m do [i, j]: = strtoint (StringGrid1.Cells [j, i]); j: = 1 to m do begin [j]: = strtoint (StringGrid1.Cells [j, n +1]);; i: = 1 to n do
showmessage ('Всі введені Вами дані прийняті програмою');
exit;; else begin ('Введіть запису в усі поля таблиці!');;;; TForm1.BitBtn1Click (Sender: TObject); spez: array [1 .. 100,1. .100] of integer;, j, dx, min, max, sh, str, stl, k, l, i1, stoim, dlas1: integer;: boolean; mar: string;. Cells [0,0]: = ' еденица продукції '; i: = 1 to n doj: = 1 to m do.Cells [j, i]: = inttostr (0); i: = 1 to n doj: = 1 to m do [i, j]: = ishod [i, j];: = false; vyh <> true do: = 0; sh: = 0; max: = 0; min: = 0; i: = 1 to n doj: = 1 to m dospez [i, j] = (-1) then dx: = dx +1; dx = m * n then vyh: = true; dx <(m * n) theni: = 1 to n doj: = 1 to m dospez [ i, j] <> (-1) then min: = spez [i, j]; i: = 1 to n doj: = 1 to m do (spez [i, j] <> (-1 )) and (spez [i, j]
