Panel34.Visible:=true;
Label47.Visible:=true;
Button5.Visible:=true;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Label49.Visible:=true;
Label48.Caption:=Panel25.Caption;
Label64.Caption:=Panel26.Caption;
Label65.Caption:=Panel27.Caption;
Label53.Caption:=Panel28.Caption;
Label60.Caption:=Panel29.Caption;
Label69.Caption:=Panel30.Caption;
Label56.Caption:=Panel32.Caption;
Label57.Caption:=Panel33.Caption;
Label72.Caption:=Panel34.Caption;
Label74.Caption:=Label91.Caption[353];
Label78.Caption:=Label91.Caption[390];
Label48.Visible:=true;
Label49.Visible:=true;
Label50.Visible:=true;
Label51.Visible:=true;
Label52.Visible:=true;
Label53.Visible:=true;
Label54.Visible:=true;
Label55.Visible:=true;
Label56.Visible:=true;
Label57.Visible:=true;
Label58.Visible:=true;
Label59.Visible:=true;
Label60.Visible:=true;
Label61.Visible:=true;
Label62.Visible:=true;
Label63.Visible:=true;
Label64.Visible:=true;
Label65.Visible:=true;
Label66.Visible:=true;
Label67.Visible:=true;
Label68.Visible:=true;
Label69.Visible:=true;
Label70.Visible:=true;
Label71.Visible:=true;
Label72.Visible:=true;
Label73.Visible:=true;
Label74.Visible:=true;
Label75.Visible:=true;
Label76.Visible:=true;
Label77.Visible:=true;
Label78.Visible:=true;
Label79.Visible:=true;
Label80.Visible:=true;
Label81.Visible:=true;
Image6.Visible:=true;
Image7.Visible:=true;
Image8.Visible:=true;
Image9.Visible:=true;
Image10.Visible:=true;
Button6.Visible:=true;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
A[1,1]:=StrToInt(Panel32.Caption);
A[2,1]:=StrToInt(Panel33.Caption);
A[3,1]:=StrToInt(Panel34.Caption);
A[4,1]:=0;
A[1,2]:=StrToInt(Panel25.Caption);
A[2,2]:=StrToInt(Panel26.Caption);
A[3,2]:=StrToInt(Panel27.Caption);
A[4,2]:=-StrToInt(Label74.Caption);
A[1,3]:=StrToInt(Panel28.Caption);
A[2,3]:=StrToInt(Panel29.Caption);
A[3,3]:=StrToInt(Panel30.Caption);
A[4,3]:=-StrToInt(Label78.Caption);
n:=3;
m:=2;
drogba11;
Label89.Caption:=FloatToStrF(A[4,1],ffGeneral,6,6);
Label85.Caption:=FloatToStrF(X[1],ffGeneral,0,2);
Label86.Caption:=FloatToStrF(X[2],ffGeneral,0,2);
Label82.Visible:=true;
Label83.Visible:=true;
Label84.Visible:=true;
Label85.Visible:=true;
Label86.Visible:=true;
Label87.Visible:=true;
Label88.Visible:=true;
Label89.Visible:=true;
Label90.Visible:=true;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
k:=StrToInt(ComboBox1.Text);
l:=StrToInt(ComboBox2.Text);
Button8.Enabled:=true;
If (k=2) and (l=2) then
begin
cheh1;
Edit1.Visible:=true;
Edit2.Visible:=true;
Edit3.Visible:=true;
Label93.Visible:=true;
Label95.Visible:=true;
Label96.Visible:=true;
Label97.Visible:=true;
Label98.Visible:=true;
Image12.Visible:=true;
Edit4.Visible:=true;
Edit5.Visible:=true;
Edit6.Visible:=true;
Label99.Visible:=true;
Label100.Visible:=true;
Label101.Visible:=true;
Label102.Visible:=true;
Label103.Visible:=true;
Image13.Visible:=true;
Label121.Visible:=true;
Label122.Visible:=true;
Label109.Visible:=true;
Label110.Visible:=true;
Edit30.Visible:=true;
Edit31.Visible:=true;
Label111.Visible:=true;
Label112.Visible:=true;
Label113.Visible:=true;
Label119.Visible:=true;
Label120.Visible:=true;
Image21.Visible:=true;
Label161.Visible:=true;
Image34.Visible:=true;
end;
If (k=2) and (l=3) then
begin
cheh1;
Edit1.Visible:=true;
Edit2.Visible:=true;
Edit3.Visible:=true;
Label93.Visible:=true;
Label95.Visible:=true;
Label96.Visible:=true;
Label97.Visible:=true;
Label98.Visible:=true;
Image12.Visible:=true;
Edit4.Visible:=true;
Edit5.Visible:=true;
Edit6.Visible:=true;
Label99.Visible:=true;
Label100.Visible:=true;
Label101.Visible:=true;
Label102.Visible:=true;
Label103.Visible:=true;
Image13.Visible:=true;
Edit7.Visible:=true;
Edit8.Visible:=true;
Edit9.Visible:=true;
Label108.Visible:=true;
Label104.Visible:=true;
Label105.Visible:=true;
Label106.Visible:=true;
Label107.Visible:=true;
Image14.Visible:=true;
Label121.Visible:=true;
Label122.Visible:=true;
Label109.Visible:=true;
Label110.Visible:=true;
Edit30.Visible:=true;
Edit31.Visible:=true;
Label111.Visible:=true;
Label112.Visible:=true;
Label113.Visible:=true;
Label119.Visible:=true;
Label120.Visible:=true;
Image21.Visible:=true;
Label161.Visible:=true;
Image29.Visible:=true;
end;
If (k=2) and (l=4) then
begin
cheh1;
Edit1.Visible:=true;
Edit2.Visible:=true;
Edit3.Visible:=true;
Label93.Visible:=true;
Label95.Visible:=true;
Label96.Visible:=true;
Label97.Visible:=true;
Label98.Visible:=true;
Image12.Visible:=true;
Edit4.Visible:=true;
Edit5.Visible:=true;
Edit6.Visible:=true;
Label99.Visible:=true;
Label100.Visible:=true;
Label101.Visible:=true;
Label102.Visible:=true;
Label103.Visible:=true;
Image13.Visible:=true;
Edit7.Visible:=true;
Edit8.Visible:=true;
Edit9.Visible:=true;
Label108.Visible:=true;
Label104.Visible:=true;
Label105.Visible:=true;
Label106.Visible:=true;
Label107.Visible:=true;
Image14.Visible:=true;
Edit10.Visible:=true;
Edit11.Visible:=true;
Edit12.Visible:=true;
Label114.Visible:=true;
Label115.Visible:=true;
Label116.Visible:=true;
Label117.Visible:=true;
Label118.Visible:=true;
Image15.Visible:=true;
Label121.Visible:=true;
Label122.Visible:=true;
Label109.Visible:=true;
Label110.Visible:=true;
Edit30.Visible:=true;
Edit31.Visible:=true;
Label111.Visible:=true;
Label112.Visible:=true;
Label113.Visible:=true;
Label119.Visible:=true;
Label120.Visible:=true;
Image21.Visible:=true;
Label161.Visible:=true;
Image38.Visible:=true;
end;
If (k=2) and (l=5) then
begin
cheh1;
Edit1.Visible:=true;
Edit2.Visible:=true;
Edit3.Visible:=true;
Label93.Visible:=true;
Label95.Visible:=true;
Label96.Visible:=true;
Label97.Visible:=true;
Label98.Visible:=true;
Image12.Visible:=true;
Edit4.Visible:=true;
Edit5.Visible:=true;
Edit6.Visible:=true;
Label99.Visible:=true;
Label100.Visible:=true;
Label101.Visible:=true;
Label102.Visible:=true;
Label103.Visible:=true;
Image13.Visible:=true;
Edit7.Visible:=true;
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7 8 9 10 11 |
