A[1,4]:=StrToInt(Edit16.Text);
A[2,4]:=StrToInt(Edit22.Text);
A[3,4]:=StrToInt(Edit24.Text);
A[4,4]:=StrToInt(Edit26.Text);
A[5,4]:=StrToInt(Edit28.Text);
A[6,4]:=-StrToInt(Edit48.Text);
n:=l;
m:=k;
drogba11;
end;
If (k=4) and (l=2) then
begin
A[1,1]:=StrToInt(Edit19.Text);
A[2,1]:=StrToInt(Edit33.Text);
A[4,1]:=0;
A[1,2]:=StrToInt(Edit1.Text);
A[2,2]:=StrToInt(Edit4.Text);
A[4,2]:=-StrToInt(Edit30.Text);
A[1,3]:=StrToInt(Edit2.Text);
A[2,3]:=StrToInt(Edit5.Text);
A[4,3]:=-StrToInt(Edit31.Text);
A[1,4]:=StrToInt(Edit16.Text);
A[2,4]:=StrToInt(Edit22.Text);
A[4,4]:=-StrToInt(Edit48.Text);
A[1,5]:=StrToInt(Edit18.Text);
A[2,5]:=StrToInt(Edit32.Text);
A[4,5]:=-StrToInt(Edit49.Text);
n:=l;
m:=k;
drogba11;
end;
If (k=4) and (l=3) then
begin
A[1,1]:=StrToInt(Edit19.Text);
A[2,1]:=StrToInt(Edit33.Text);
A[3,1]:=StrToInt(Edit35.Text);
A[4,1]:=0;
A[1,2]:=StrToInt(Edit1.Text);
A[2,2]:=StrToInt(Edit4.Text);
A[3,2]:=StrToInt(Edit7.Text);
A[4,2]:=-StrToInt(Edit30.Text);
A[1,3]:=StrToInt(Edit2.Text);
A[2,3]:=StrToInt(Edit5.Text);
A[3,3]:=StrToInt(Edit8.Text);
A[4,3]:=-StrToInt(Edit31.Text);
A[1,4]:=StrToInt(Edit16.Text);
A[2,4]:=StrToInt(Edit22.Text);
A[3,4]:=StrToInt(Edit24.Text);
A[4,4]:=-StrToInt(Edit48.Text);
A[1,5]:=StrToInt(Edit18.Text);
A[2,5]:=StrToInt(Edit32.Text);
A[3,5]:=StrToInt(Edit34.Text);
A[4,5]:=-StrToInt(Edit49.Text);
n:=l;
m:=k;
drogba11;
end;
If (k=4) and (l=4) then
begin
A[1,1]:=StrToInt(Edit19.Text);
A[2,1]:=StrToInt(Edit33.Text);
A[3,1]:=StrToInt(Edit35.Text);
A[4,1]:=StrToInt(Edit37.Text);
A[5,1]:=0;
A[1,2]:=StrToInt(Edit1.Text);
A[2,2]:=StrToInt(Edit4.Text);
A[3,2]:=StrToInt(Edit7.Text);
A[4,2]:=StrToInt(Edit10.Text);
A[5,2]:=-StrToInt(Edit30.Text);
A[1,3]:=StrToInt(Edit2.Text);
A[2,3]:=StrToInt(Edit5.Text);
A[3,3]:=StrToInt(Edit8.Text);
A[4,3]:=StrToInt(Edit11.Text);
A[5,3]:=-StrToInt(Edit31.Text);
A[1,4]:=StrToInt(Edit16.Text);
A[2,4]:=StrToInt(Edit22.Text);
A[3,4]:=StrToInt(Edit24.Text);
A[4,4]:=StrToInt(Edit26.Text);
A[5,4]:=-StrToInt(Edit48.Text);
A[1,5]:=StrToInt(Edit18.Text);
A[2,5]:=StrToInt(Edit32.Text);
A[3,5]:=StrToInt(Edit34.Text);
A[4,5]:=StrToInt(Edit36.Text);
A[5,5]:=-StrToInt(Edit49.Text);
n:=l;
m:=k;
drogba11;
end;
If (k=4) and (l=5) then
begin
A[1,1]:=StrToInt(Edit19.Text);
A[2,1]:=StrToInt(Edit33.Text);
A[3,1]:=StrToInt(Edit35.Text);
A[4,1]:=StrToInt(Edit37.Text);
A[5,1]:=StrToInt(Edit39.Text);
A[6,1]:=0;
A[1,2]:=StrToInt(Edit1.Text);
A[2,2]:=StrToInt(Edit4.Text);
A[3,2]:=StrToInt(Edit7.Text);
A[4,2]:=StrToInt(Edit10.Text);
A[5,2]:=StrToInt(Edit13.Text);
A[6,2]:=-StrToInt(Edit30.Text);
A[1,3]:=StrToInt(Edit2.Text);
A[2,3]:=StrToInt(Edit5.Text);
A[3,3]:=StrToInt(Edit8.Text);
A[4,3]:=StrToInt(Edit11.Text);
A[5,3]:=StrToInt(Edit14.Text);
A[6,3]:=-StrToInt(Edit31.Text);
A[1,4]:=StrToInt(Edit16.Text);
A[2,4]:=StrToInt(Edit22.Text);
A[3,4]:=StrToInt(Edit24.Text);
A[4,4]:=StrToInt(Edit26.Text);
A[5,4]:=StrToInt(Edit28.Text);
A[6,4]:=-StrToInt(Edit48.Text);
A[1,5]:=StrToInt(Edit18.Text);
A[2,5]:=StrToInt(Edit32.Text);
A[3,5]:=StrToInt(Edit34.Text);
A[4,5]:=StrToInt(Edit36.Text);
A[5,5]:=StrToInt(Edit38.Text);
A[6,5]:=-StrToInt(Edit49.Text);
n:=l;
m:=k;
drogba11;
end;
If (k=5) and (l=2) then
begin
A[1,1]:=StrToInt(Edit21.Text);
A[2,1]:=StrToInt(Edit41.Text);
A[3,1]:=0;
A[1,2]:=StrToInt(Edit1.Text);
A[2,2]:=StrToInt(Edit4.Text);
A[3,2]:=-StrToInt(Edit30.Text);
A[1,3]:=StrToInt(Edit2.Text);
A[2,3]:=StrToInt(Edit5.Text);
A[3,3]:=-StrToInt(Edit31.Text);
A[1,4]:=StrToInt(Edit16.Text);
A[2,4]:=StrToInt(Edit22.Text);
A[3,4]:=-StrToInt(Edit48.Text);
A[1,5]:=StrToInt(Edit18.Text);
A[2,5]:=StrToInt(Edit32.Text);
A[3,5]:=-StrToInt(Edit49.Text);
A[1,6]:=StrToInt(Edit20.Text);
A[2,6]:=StrToInt(Edit40.Text);
A[3,6]:=-StrToInt(Edit50.Text);
n:=l;
m:=k;
drogba11;
end;
If (k=5) and (l=3) then
begin
A[1,1]:=StrToInt(Edit21.Text);
A[2,1]:=StrToInt(Edit41.Text);
A[3,1]:=StrToInt(Edit43.Text);
A[4,1]:=0;
A[1,2]:=StrToInt(Edit1.Text);
A[2,2]:=StrToInt(Edit4.Text);
A[3,2]:=StrToInt(Edit7.Text);
A[4,2]:=-StrToInt(Edit30.Text);
A[1,3]:=StrToInt(Edit2.Text);
A[2,3]:=StrToInt(Edit5.Text);
A[3,3]:=StrToInt(Edit8.Text);
A[4,3]:=-StrToInt(Edit31.Text);
A[1,4]:=StrToInt(Edit16.Text);
A[2,4]:=StrToInt(Edit22.Text);
A[3,4]:=StrToInt(Edit24.Text);
A[4,4]:=-StrToInt(Edit48.Text);
A[1,5]:=StrToInt(Edit18.Text);
A[2,5]:=StrToInt(Edit32.Text);
A[3,5]:=StrToInt(Edit34.Text);
A[4,5]:=-StrToInt(Edit49.Text);
A[1,6]:=StrToInt(Edit20.Text);
A[2,6]:=StrToInt(Edit40.Text);
A[3,6]:=StrToInt(Edit42.Text);
A[4,6]:=-StrToInt(Edit50.Text);
n:=l;
m:=k;
drogba11;
end;
If (k=5) and (l=4) then
begin
A[1,1]:=StrToInt(Edit21.Text);
A[2,1]:=StrToInt(Edit41.Text);
A[3,1]:=StrToInt(Edit43.Text);
A[4,1]:=StrToInt(Edit45.Text);
A[5,1]:=0;
A[1,2]:=StrToInt(Edit1.Text);
A[2,2]:=StrToInt(Edit4.Text);
A[3,2]:=StrToInt(Edit7.Text);
A[4,2]:=StrToInt(Edit10.Text);
A[5,2]:=-StrToInt(Edit30.Text);
A[1,3]:=StrToInt(Edit2.Text);
A[2,3]:=StrToInt(Edit5.Text);
A[3,3]:=StrToInt(Edit8.Text);
A[4,3]:=StrToInt(Edit11.Text);
A[5,3]:=-StrToInt(Edit31.Text);
A[1,4]:=StrToInt(Edit16.Text);
A[2,4]:=StrToInt(Edit22.Text);
A[3,4]:=StrToInt(Edit24.Text);
A[4,4]:=StrToInt(Edit26.Text);
A[5,4]:=-StrToInt(Edit48.Text);
A[1,5]:=StrToInt(Edit18.Text);
A[2,5]:=StrToInt(Edit32.Text);
A[3,5]:=StrToInt(Edit34.Text);
A[4,5]:=StrToInt(Edit36.Text);
A[5,5]:=-StrToInt(Edit49.Text);
A[1,6]:=StrToInt(Edit20.Text);
A[2,6]:=StrToInt(Edit40.Text);
A[3,6]:=StrToInt(Edit42.Text);
A[4,6]:=StrToInt(Edit44.Text);
A[5,6]:=-StrToInt(Edit50.Text);
n:=l;
m:=k;
drogba11;
end;
If (k=5) and (l=5) then
begin
A[1,1]:=StrToInt(Edit21.Text);
A[2,1]:=StrToInt(Edit41.Text);
A[3,1]:=StrToInt(Edit43.Text);
A[4,1]:=StrToInt(Edit45.Text);
A[5,1]:=StrToInt(Edit47.Text);
A[6,1]:=0;
A[1,2]:=StrToInt(Edit1.Text);
A[2,2]:=StrToInt(Edit4.Text);
A[3,2]:=StrToInt(Edit7.Text);
A[4,2]:=StrToInt(Edit10.Text);
A[5,2]:=StrToInt(Edit13.Text);
A[6,2]:=-StrToInt(Edit30.Text);
A[1,3]:=StrToInt(Edit2.Text);
A[2,3]:=StrToInt(Edit5.Text);
A[3,3]:=StrToInt(Edit8.Text);
A[4,3]:=StrToInt(Edit11.Text);
A[5,3]:=StrToInt(Edit14.Text);
A[6,3]:=-StrToInt(Edit31.Text);
A[1,4]:=StrToInt(Edit16.Text);
A[2,4]:=StrToInt(Edit22.Text);
A[3,4]:=StrToInt(Edit24.Text);
A[4,4]:=StrToInt(Edit26.Text);
A[5,4]:=StrToInt(Edit28.Text);
A[6,4]:=-StrToInt(Edit48.Text);
A[1,5]:=StrToInt(Edit18.Text);
A[2,5]:=StrToInt(Edit32.Text);
A[3,5]:=StrToInt(Edit34.Text);
A[4,5]:=StrToInt(Edit36.Text);
A[5,5]:=StrToInt(Edit38.Text);
A[6,5]:=-StrToInt(Edit49.Text);
A[1,6]:=StrToInt(Edit20.Text);
A[2,6]:=StrToInt(Edit40.Text);
A[3,6]:=StrToInt(Edit42.Text);
A[4,6]:=StrToInt(Edit44.Text);
A[5,6]:=StrToInt(Edit46.Text);
A[6,6]:=-StrToInt(Edit50.Text);
n:=l;
m:=k;
drogba11;
end;
Label190.Visible:=true;
Label187.Visible:=true;
Label187.Caption:=FloatToStrF(A[n+1,1],ffGeneral,6,6);
If k=5 then Panel35.Height:=191;
If k=4 then Panel35.Height:=151;
If k=3 then Panel35.Height:=111;
If k=2 then Panel35.Height:=71;
Panel35.Visible:=true;
cy:=0; h:=30; w:=120;
for i:=1 to k do
begin
cx:=0;
for j:=1 to 1 do
begin
P[(i-1)*4+j]:=TPanel. Create(Form1);
P[(i-1)*4+j].Parent:=Panel35;
P[(i-1)*4+j].Top:=cy;
P[(i-1)*4+j].Left:=cx;
P[(i-1)*4+j].Height:=h;
P[(i-1)*4+j].Width:=w;
P[(i-1)*4+j].Color:=clCaptionText;
P[(i-1)*4+j].Font. Style:=[fsBold];
P[(i-1)*4+j].Font. Size:=18;
P[(i-1)*4+j].Caption:='X';
P[(i-1)*4+j].Caption:=P[(i-1)*4+j].Caption+IntToStr(i);
P[(i-1)*4+j].Caption:=P[(i-1)*4+j].Caption+'='+FloatToStrF(X[i],ffGeneral,0,2);
inc(cx,40);
end;
inc(cy,40);
end;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
cheh1;
Label190.Visible:=false;
Label187.Visible:=false;
Panel35.Visible:=false;
ComboBox1.Text:='';
ComboBox2.Text:='';
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Edit11.Text:='';
Edit12.Text:='';
Edit13.Text:='';
Edit14.Text:='';
Edit15.Text:='';
Edit16.Text:='';
Edit17.Text:='';
Edit18.Text:='';
Edit19.Text:='';
Edit20.Text:='';
Edit21.Text:='';
Edit22.Text:='';
Edit23.Text:='';
Edit24.Text:='';
Edit25.Text:='';
Edit26.Text:='';
Edit27.Text:='';
Edit28.Text:='';
Edit29.Text:='';
Edit30.Text:='';
Edit31.Text:='';
Edit32.Text:='';
Edit33.Text:='';
Edit34.Text:='';
Edit35.Text:='';
Edit36.Text:='';
Edit37.Text:='';
Edit38.Text:='';
Edit39.Text:='';
Edit40.Text:='';
Edit41.Text:='';
Edit42.Text:='';
Edit43.Text:='';
Edit44.Text:='';
Edit45.Text:='';
Edit46.Text:='';
Edit47.Text:='';
Edit48.Text:='';
Edit49.Text:='';
Edit50.Text:='';
end;
end.
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7 8 9 10 11 |
