Симплекс-метод в СП DELPHI (стр. 5 )

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;

Edit13.Visible:=true;

Edit14.Visible:=true;

Edit15.Visible:=true;

Label124.Visible:=true;

Label125.Visible:=true;

Label126.Visible:=true;

Label127.Visible:=true;

Label128.Visible:=true;

Image16.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;

Image39.Visible:=true;

end;

If (k=3) and (l=2) then

begin

cheh1;

Edit1.Visible:=true;

Edit2.Visible:=true;

Edit16.Visible:=true;

Edit17.Visible:=true;

Label93.Visible:=true;

Label95.Visible:=true;

Label96.Visible:=true;

Label97.Visible:=true;

Label98.Visible:=true;

Label129.Visible:=true;

Label130.Visible:=true;

Label131.Visible:=true;

Image18.Visible:=true;

Edit4.Visible:=true;

Edit5.Visible:=true;

Edit22.Visible:=true;

Edit23.Visible:=true;

Label99.Visible:=true;

Label100.Visible:=true;

Label101.Visible:=true;

Label102.Visible:=true;

Label103.Visible:=true;

Label138.Visible:=true;

Label139.Visible:=true;

Label140.Visible:=true;

Image20.Visible:=true;

Label121.Visible:=true;

Label122.Visible:=true;

Label109.Visible:=true;

Label110.Visible:=true;

Edit30.Visible:=true;

Edit31.Visible:=true;

Edit48.Visible:=true;

Label111.Visible:=true;

Label112.Visible:=true;

Label113.Visible:=true;

Label119.Visible:=true;

Label120.Visible:=true;

Label141.Visible:=true;

Label142.Visible:=true;

Label143.Visible:=true;

Image28.Visible:=true;

Label186.Visible:=true;

Image34.Visible:=true;

end;

If (k=3) and (l=3) then

begin

cheh1;

Edit1.Visible:=true;

Edit2.Visible:=true;

Edit16.Visible:=true;

Edit17.Visible:=true;

Label93.Visible:=true;

Label95.Visible:=true;

Label96.Visible:=true;

Label97.Visible:=true;

Label98.Visible:=true;

Label129.Visible:=true;

Label130.Visible:=true;

Label131.Visible:=true;

Image18.Visible:=true;

Edit4.Visible:=true;

Edit5.Visible:=true;

Edit22.Visible:=true;

Edit23.Visible:=true;

Label99.Visible:=true;

Label100.Visible:=true;

Label101.Visible:=true;

Label102.Visible:=true;

Label103.Visible:=true;

Label138.Visible:=true;

Label139.Visible:=true;

Label140.Visible:=true;

Label144.Visible:=true;

Label145.Visible:=true;

Label146.Visible:=true;

Image20.Visible:=true;

Image22.Visible:=true;

Edit7.Visible:=true;

Edit8.Visible:=true;

Label104.Visible:=true;

Label105.Visible:=true;

Label106.Visible:=true;

Label107.Visible:=true;

Label108.Visible:=true;

Edit24.Visible:=true;

Edit25.Visible:=true;

Label121.Visible:=true;

Label122.Visible:=true;

Label109.Visible:=true;

Label110.Visible:=true;

Edit30.Visible:=true;

Edit31.Visible:=true;

Edit48.Visible:=true;

Label111.Visible:=true;

Label112.Visible:=true;

Label113.Visible:=true;

Label119.Visible:=true;

Label120.Visible:=true;

Label141.Visible:=true;

Label142.Visible:=true;

Label143.Visible:=true;

Image28.Visible:=true;

Label186.Visible:=true;

Image29.Visible:=true;

end;

If (k=3) and (l=4) then

begin

cheh1;

Edit1.Visible:=true;

Edit2.Visible:=true;

Edit16.Visible:=true;

Edit17.Visible:=true;

Label93.Visible:=true;

Label95.Visible:=true;

Label96.Visible:=true;

Label97.Visible:=true;

Label98.Visible:=true;

Label129.Visible:=true;

Label130.Visible:=true;

Label131.Visible:=true;

Image18.Visible:=true;

Edit4.Visible:=true;

Edit5.Visible:=true;

Edit22.Visible:=true;

Edit23.Visible:=true;

Label99.Visible:=true;

Label100.Visible:=true;

Label101.Visible:=true;

Label102.Visible:=true;

Label103.Visible:=true;

Label138.Visible:=true;

Label139.Visible:=true;

Label140.Visible:=true;

Label144.Visible:=true;

Label145.Visible:=true;

Label146.Visible:=true;

Image20.Visible:=true;

Image22.Visible:=true;

Edit7.Visible:=true;

Edit8.Visible:=true;

Label104.Visible:=true;

Label105.Visible:=true;

Label106.Visible:=true;

Label107.Visible:=true;

Label108.Visible:=true;

Edit24.Visible:=true;

Edit25.Visible:=true;

Edit10.Visible:=true;

Edit11.Visible:=true;

Edit26.Visible:=true;

Edit27.Visible:=true;

Label114.Visible:=true;

Label115.Visible:=true;

Label116.Visible:=true;

Label117.Visible:=true;

Label118.Visible:=true;

Label147.Visible:=true;

Label148.Visible:=true;

Label149.Visible:=true;

Image24.Visible:=true;

Label121.Visible:=true;

Label122.Visible:=true;

Label109.Visible:=true;

Label110.Visible:=true;

Edit30.Visible:=true;

Edit31.Visible:=true;

Edit48.Visible:=true;

Label111.Visible:=true;

Label112.Visible:=true;

Label113.Visible:=true;

Label119.Visible:=true;

Label120.Visible:=true;

Label141.Visible:=true;

Label142.Visible:=true;

Label143.Visible:=true;

Image28.Visible:=true;

Label186.Visible:=true;

Image38.Visible:=true;

end;

If (k=3) and (l=5) then

begin

cheh1;

Edit1.Visible:=true;

Edit2.Visible:=true;

Edit16.Visible:=true;

Edit17.Visible:=true;

Label93.Visible:=true;

Label95.Visible:=true;

Label96.Visible:=true;

Label97.Visible:=true;

Label98.Visible:=true;

Label129.Visible:=true;

Label130.Visible:=true;

Label131.Visible:=true;

Image18.Visible:=true;

Edit4.Visible:=true;

Edit5.Visible:=true;

Edit22.Visible:=true;

Edit23.Visible:=true;

Label99.Visible:=true;

Label100.Visible:=true;

Label101.Visible:=true;

Label102.Visible:=true;

Label103.Visible:=true;

Label138.Visible:=true;

Label139.Visible:=true;

Label140.Visible:=true;