Private declarations}
{Public declarations};: TForm1;
{$ R *. dfm} Otchistka ();. stringgrid1.RowCount: = 2;. stringgrid1.Cells [0, form1.stringgrid1.RowCount - 1]: ='';. stringgrid1. Cells [1, form1.stringgrid1.RowCount - 1]: ='';. stringgrid2.RowCount: = 2;. stringgrid2.Cells [0, form1.stringgrid2.RowCount - 1]: ='';. stringgrid2.Cells [ 1, form1.stringgrid2.RowCount - 1]: ='';. stringgrid3.RowCount: = 2;. stringgrid2.Cells [0, form1.stringgrid2.RowCount - 1]: ='';. stringgrid2.Cells [1, form1.stringgrid2.RowCount - 1]: ='';. stringgrid3.ColCount: = 2;. stringgrid3.RowCount: = 2;; Otvet (); count, count2: integer;
boo: boolean;. Memo1.Lines.Add ("Вигідно виробляти/використовувати наступну продукцію: ');
for count: = 1 to form1.StringGrid4.RowCount -1 docount2: = 0 to form1.StringGrid2.RowCount -1 doform1.StringGrid4.Cells [0, count] = form1.StringGrid2.Cells [ 0, count2] then.Memo1.Lines.Add (form1.StringGrid4.Cells [0, count] + 'у кількості' + form1.StringGrid4.Cells [1, count] + 'од.');;: = false; count: = 1 to form1.StringGrid4.RowCount -1 docount2: = 0 to form1.StringGrid1.RowCount -1 doform1.StringGrid4.Cells [0, count] = form1.StringGrid1.Cells [0, count2] then: = true; ;; boo then.Memo1.Lines.Add ('');
form1.Memo1.Lines.Add ('При цьому будуть такі надлишки ресурсів:');
for count: = 1 to form1.StringGrid4.RowCount -1 docount2: = 0 to form1.StringGrid1.RowCount -1 doform1.StringGrid4.Cells [0, count] = form1.StringGrid1.Cells [ 0, count2] then.Memo1.Lines.Add (form1.StringGrid4.Cells [0, count] + 'у кількості' + form1.StringGrid4.Cells [1, count] + 'од.');;;. Memo1. Lines.Add (''); form1.RadioButton2.Checked then.Memo1.Lines.Add ('Витрати при такому плані використання складуть' + floattostr ((-1) * strtofloat (form1.StringGrid4.Cells [1,1]) ) + 'у.о.'). Memo1.Lines.Add ("Прибуток при такому плані виробництва складе '+ form1.StringGrid4.Cells [1,1] +' у.о. ');; zapolni (); Count : integer;. StringGrid3.Cells [1,0]: = 'ОФР'; Count: = 1 to form1.stringgrid1.RowCount-1 do.StringGrid3.RowCount: = form1.StringGrid3.RowCount to form1.stringgrid2.RowCount-1 do.StringGrid3.ColCount: = to form1.StringGrid1.RowCount -1 do.StringGrid3.Cells [1, Count +1]: = form1.StringGrid1.Cells [1, Count]; Count: = 1 to form1.StringGrid2.RowCount -1 then k: = -1;. StringGrid4.RowCount: = form1.StringGrid3.RowCount;. StringGrid4.ColCount: = form1.StringGrid3.ColCount; count: = 0 to form1.StringGrid3.RowCount-1 docount2: = 0 to form1. StringGrid3.ColCount-1 do.StringGrid4.Cells [Count2, count]: = form1.StringGrid3.Cells [Count2, count]; count: = 1 to form1.StringGrid3.RowCount-1 docount2: = 1 to form1.StringGrid3.ColCount -1 do.StringGrid4.Cells [Count2, count]: =...
