Cells [2, MinR]);: = zna4TMP/zna4TMP2;: = 2; Count: = 2 to form1.StringGrid4.ColCount -1 doTMP: = strtofloat (form1.StringGrid4 . Cells [count, 1]); TMP2: = strtofloat (form1.StringGrid4.Cells [count, MinR]); (zna4TMP> 0) and (zna4TMP2 <0) then: = zna4TMP/zna4TMP2; abs (zna4) < abs (MinEl) then: = zna4;: = Count;;;;: = strtofloat (form1.StringGrid4.Cells [MinC, MinR]); count: = 1 to form1.StringGrid4.ColCount -1 to form1.StringGrid4.ColCount -1 doCount2: = 1 to form1.StringGrid4.RowCount -1 do (count <> MinC) and (count2 <> MinR) then.StringGrid4.Cells [count, count2]: = floattostr ( strtofloat (form1.StringGrid4.Cells [count, count2])-strtofloat (form1.StringGrid4.Cells [count, MinR]) * strtofloat (form1.StringGrid4.Cells [MinC, count2]));. StringGrid4.Cells [0, MinR]: = form1.StringGrid4.Cells [MinC, 0]; count: = 1 to form1.StringGrid4.RowCount - 1 doform1.StringGrid4.Cells [MinC, 0] = form1.StringGrid4.Cells [0, count] then. StringGrid4.Cells [MinC, count]: = '1 '. StringGrid4.Cells [MinC, count]: = '0';. Label5.Caption: = 'Рішення знайдено!';: = true;; reshil or n ;; TForm1.BitBtn6Click (Sender: TObject);. Close;; TForm1.Edit1KeyPress (Sender: TObject; var Key: Char); key of
# 8:;
# 13: edit2.SetFocus;
'a' .. 'z':;
'A' .. 'Z':;
'а' .. 'я':;
'А' .. 'Я':;
'0 '.. '9':; key: = # 0;;; TForm1.BitBtn1Click (Sender: TObject); Count: integer;: boolean;: = true; (edit1.Text ='') or (edit2.Text ='') then: = false;. Caption: = 'Заповніть всі поля введення.';; Count: = 1 to stringgrid1.RowCount do (edit1.Text = stringgrid1.Cells [0 , Count]) then: = false;; boo then (stringgrid1.RowCount = 2) and (stringgrid1.Cells [0,1] ='') then.RowCount: = stringgrid1.RowCount.RowCount: = stringgrid1.RowCount + 1 ;. Cells [0, stringgrid1.RowCount - 1]: = edit1.Text;. Cells [1, stringgrid1.RowCount - 1]: = edit2.Text;. Caption: = 'Ресурс доданий!';. SetFocus (); . Caption: = 'Такий ресурс вже є';; TForm1.StringGrid1Click (Sender: TObject); i: integer;: = stringgrid1.Row;. Text: = stringgrid1.Cells [0, i];. Text: = stringgrid1. Cells [1, i];. Caption: ='';; TForm1.BitBtn7Click (Sender: TObject); Count, i: integer;: boolean;: = true; Count: = 1 to stringgrid1.RowCount do (edit1.Text = stringgrid1.Cells [0, Count]) then: = Count;: = false;;; boo then
label5.Caption: = 'Такого ресурсу немає в списку!';
end.Cells [0, i]: = edit1.Text;. Cells [1, i]: = edit2.Text;. Caption: = 'Ресурс змінений.';;; TForm1.FormCreate (Sender: TObject);. Cells [0,0]: = 'Найменування';. Cells [1,0]: = 'ОФР';. Cells [0,0]: = 'Найменування';. Cells [1, 0]: = 'Варт...
