Edit41.Visible:=false;
Label171.Visible:=false;
Label172.Visible:=false;
Label173.Visible:=false;
Image33.Visible:=false;
Edit42.Visible:=false;
Edit43.Visible:=false;
Label177.Visible:=false;
Label178.Visible:=false;
Label179.Visible:=false;
Image35.Visible:=false;
Label180.Visible:=false;
Label181.Visible:=false;
Label182.Visible:=false;
Image36.Visible:=false;
Edit44.Visible:=false;
Edit45.Visible:=false;
Label183.Visible:=false;
Label184.Visible:=false;
Label185.Visible:=false;
Image37.Visible:=false;
Edit46.Visible:=false;
Edit47.Visible:=false;
Label121.Visible:=false;
Label122.Visible:=false;
Label109.Visible:=false;
Label110.Visible:=false;
Edit30.Visible:=false;
Edit31.Visible:=false;
Label111.Visible:=false;
Label112.Visible:=false;
Label113.Visible:=false;
Label119.Visible:=false;
Label120.Visible:=false;
Image21.Visible:=false;
Label161.Visible:=false;
Edit48.Visible:=false;
Label141.Visible:=false;
Label142.Visible:=false;
Label143.Visible:=false;
Image28.Visible:=false;
Label186.Visible:=false;
Label123.Visible:=false;
Label153.Visible:=false;
Label154.Visible:=false;
Edit49.Visible:=false;
Image17.Visible:=false;
Label174.Visible:=false;
Label155.Visible:=false;
Label159.Visible:=false;
Label160.Visible:=false;
Edit50.Visible:=false;
Image27.Visible:=false;
Label176.Visible:=false;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ComboBox2.Enabled:=true;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
If (k=2) and (l=2) then
begin
A[1,1]:=StrToInt(Edit3.Text);
A[2,1]:=StrToInt(Edit6.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);
n:=l;
m:=k;
drogba11;
end;
If (k=2) and (l=3) then
begin
A[1,1]:=StrToInt(Edit3.Text);
A[2,1]:=StrToInt(Edit6.Text);
A[3,1]:=StrToInt(Edit9.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);
n:=l;
m:=k;
drogba11;
end;
If (k=2) and (l=4) then
begin
A[1,1]:=StrToInt(Edit3.Text);
A[2,1]:=StrToInt(Edit6.Text);
A[3,1]:=StrToInt(Edit9.Text);
A[4,1]:=StrToInt(Edit12.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);
n:=l;
m:=k;
drogba11;
end;
If (k=2) and (l=5) then
begin
A[1,1]:=StrToInt(Edit3.Text);
A[2,1]:=StrToInt(Edit6.Text);
A[3,1]:=StrToInt(Edit9.Text);
A[4,1]:=StrToInt(Edit12.Text);
A[5,1]:=StrToInt(Edit15.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);
n:=l;
m:=k;
drogba11;
end;
If (k=2) and (l=5) then
begin
A[1,1]:=StrToInt(Edit3.Text);
A[2,1]:=StrToInt(Edit6.Text);
A[3,1]:=StrToInt(Edit9.Text);
A[4,1]:=StrToInt(Edit12.Text);
A[5,1]:=StrToInt(Edit15.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);
n:=l;
m:=k;
drogba11;
end;
If (k=3) and (l=2) then {k-количество переменных, l-условий}
begin
A[1,1]:=StrToInt(Edit17.Text);
A[2,1]:=StrToInt(Edit23.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);
n:=l;
m:=k;
drogba11;
end;
If (k=3) and (l=3) then
begin
A[1,1]:=StrToInt(Edit17.Text);
A[2,1]:=StrToInt(Edit23.Text);
A[3,1]:=StrToInt(Edit25.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);
n:=l;
m:=k;
drogba11;
end;
If (k=3) and (l=4) then
begin
A[1,1]:=StrToInt(Edit17.Text);
A[2,1]:=StrToInt(Edit23.Text);
A[3,1]:=StrToInt(Edit25.Text);
A[4,1]:=StrToInt(Edit27.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);
n:=l;
m:=k;
drogba11;
end;
If (k=3) and (l=5) then
begin
A[1,1]:=StrToInt(Edit17.Text);
A[2,1]:=StrToInt(Edit23.Text);
A[3,1]:=StrToInt(Edit25.Text);
A[4,1]:=StrToInt(Edit27.Text);
A[5,1]:=StrToInt(Edit29.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);
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7 8 9 10 11 |
