ustify">//z (max) .LabeledEdit1.Text:= + Form2.StringGrid8.Cells [5,1];
//x5.LabeledEdit6.Text:= + Form2.StringGrid8.Cells [5,2];
//x4.LabeledEdit5.Text:= + Form2.StringGrid6.Cells [4- (Form2.LabeledEdit6.Text) +1,2];
//x3.LabeledEdit4.Text:= raquo;+Form2.StringGrid4.Cells[4-(Form2.LabeledEdit6.Text)-StrToInt(Form2.LabeledEdit5.Text)+1,2];
//x2.LabeledEdit3.Text:= raquo;+Form2.StringGrid2.Cells[4-(Form2.LabeledEdit6.Text)-(Form2.LabeledEdit5.Text)-(Form2.LabeledEdit4.Text)+1,2];
//x1.LabeledEdit2.Text:= raquo;+IntToStr(4-(Form2.LabeledEdit6.Text)-(Form2.LabeledEdit5.Text)-(Form2.LabeledEdit4.Text)-(Form2.LabeledEdit3.Text));;
//Кнопка Вирішити TForm1.N2Click (Sender: TObject) ;. Button2.Click ;;
//Кнопка Мій приклад TForm1.N3Click (Sender: TObject) ;: Integer; StringGrid1 doI:=1 to 5 do Cells [1, I]:=IntToStr (0); [ 2,1]:= 5 raquo ;; Cells [4,1]:= 11 raquo ;; [2,2]:= 3 raquo ;; Cells [4,2]:= 5 raquo ;; [2,3]:= 7 raquo ;; Cells [4,3]:= 10 raquo ;; [2,4]:= 4 raquo ;; Cells [4,4]:= 12 raquo ;; [2,5]:= 3 raquo ;; Cells [4,5]:= 7 raquo ;; [3,1]:= 9 raquo ;; Cells [5,1]:= 12 raquo ;; [3,2]:= 4 raquo ;; Cells [5,2]:= 10 raquo ;; [3,3]:= 9 raquo ;; Cells [5,3]:= 11 raquo ;; [3,4]:= 8 raquo ;; Cells [5,4]:= 14 raquo ;; [3,5]:= 5 raquo ;; Cells [5,5]:= 9 raquo ;;;;
//Кнопка Скидання TForm1.N4Click (Sender: TObject) ;. Button1.Click ;;
//Кнопка Вихід TForm1.N5Click (Sender: TObject) ;. Close; .Close ;;
//Про программеTForm1.N6Click (Sender: TObject);
ShowMessage ( Програма призначена для вирішення завдання + chr (13) +
максимізації капатіловложеній + Chr (13) + chr (13) +
Розробив студент групи 10п - 1 + Chr (13) +
Урусов Олексій + Chr (13) + chr (13) +
УАвіаК, 2013р. );
end; .Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, Math, StdCtrls, ExtCtrls, jpeg, ColorGrd, Buttons,;=class (TForm): TStringGrid ;: TStringGrid ;: TStringGrid ;: TStringGrid ;: TStringGrid ;: TStringGrid ;: TStringGrid ;: TStringGrid ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TStaticText ;: TStaticText ;: TStaticText;:TStaticText; SG_OnDrawCell (Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm2; Unit1;
{$ R * .dfm}
//Процедура для зафарбовування максимальних елементів
//за знайденими координатами
procedure TForm2.SG_OnDrawCell (Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState) ;, F, N: Integer;: Boolean;:=0; N:=0; F lt;=6 do:=False; I:=N to N + 4 do (ACol=Cells [i] .Y) and (ARow=Cells [i] .X) then:=True ;; ; Change then
(Components [f] as TStringGrid) .Canvas.Brush.Color:=clRed ;;
(Components [f] as TStringGrid) .Canvas.FillRect (Rect);
(Components [f] as TStringGrid) .Canvas.TextOut (Rect.Left, Rect.Top, (Components [f] as TStringGrid) .Cells [ACol, ARow]) ;;:=N +5;:=F + 2 ;;
end;
//Процедруа для зміщень фокусу (виділення)
procedure TForm2.FormCreate (Sender: TObject) ;: TGridRect;: Integer; myRect do begin:=- 1;:=- 1;:=- 1;:=- 1 ;; C: =1 to 8 do
(Form2.FindComponent ( StringGrid + IntToStr (C)) as TStringGrid) .Selection:=myRect;
end;.
