:
- procedure FormCreate(Sender: TObject) ;
- procedure Button4Click(Sender: TObject) , .
, . :
m:=8 ;
n:=8 .
:
- StringGrid1.ColCount:=n+2; - ;
- StringGrid1.RowCount:=m+2; - .
:
StringGrid1.Cols[n+1].Strings[0]:='';
StringGrid1.Cols[0].Strings[m+1]:='';
StringGrid1.Cols[0].Strings[0]:='';
1 8:
for i:=1 to m do
StringGrid1.Cols[0].Strings[i]:='A'+IntToStr(i);
B1 B8:
for j:=1 to n do
StringGrid1.Cols[j].Strings[0]:='B'+IntToStr(j);
IntToStr.
. [8] :
for i:=1 to m do
a[i]:=StrToInt(StringGrid1.Cols[n+1].Strings[i]);
b[8] :
for j:=1 to n do
b[j]:=StrToInt(StringGrid1.Cols[j].Strings[m+1]);
:
.
. .
:
kol-vo stolbcov= 3
:
kol-vo strok= 4
:
E --> max
:
c[0] = 7
c[1] = -2
c[2] = 5
c[3] = 0
, : ..
, Run . , .
. . :
( 2.4).
2.4
. , 2.5.
2.5
:
, . .