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

Label140.Visible:=true;

Label156.Visible:=true;

Label157.Visible:=true;

Label158.Visible:=true;

Image26.Visible:=true;

Edit7.Visible:=true;

Edit8.Visible:=true;

Edit24.Visible:=true;

Edit34.Visible:=true;

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

Label156.Visible:=true;

Label157.Visible:=true;

Label158.Visible:=true;

Image26.Visible:=true;

Edit10.Visible:=true;

Edit11.Visible:=true;

Edit26.Visible:=true;

Edit36.Visible:=true;

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

Label165.Visible:=true;

Label166.Visible:=true;

Label167.Visible:=true;

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

Label123.Visible:=true;

Label153.Visible:=true;

Label154.Visible:=true;

Edit49.Visible:=true;

Image17.Visible:=true;

Label174.Visible:=true;

Image38.Visible:=true;

end;

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

begin

cheh1;

Edit1.Visible:=true;

Edit2.Visible:=true;

Edit16.Visible:=true;

Edit18.Visible:=true;

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

Label132.Visible:=true;

Label133.Visible:=true;

Label134.Visible:=true;

Image11.Visible:=true;

Label104.Visible:=true;

Label105.Visible:=true;

Label106.Visible:=true;

Label107.Visible:=true;

Label108.Visible:=true;

Label144.Visible:=true;

Label145.Visible:=true;

Label146.Visible:=true;

Label162.Visible:=true;

Label163.Visible:=true;

Label164.Visible:=true;

Image30.Visible:=true;

Image39.Visible:=true;

Edit4.Visible:=true;

Edit5.Visible:=true;

Edit22.Visible:=true;

Edit32.Visible:=true;

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

Label156.Visible:=true;

Label157.Visible:=true;

Label158.Visible:=true;

Image26.Visible:=true;

Edit7.Visible:=true;

Edit8.Visible:=true;

Edit24.Visible:=true;

Edit34.Visible:=true;

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

Label156.Visible:=true;

Label157.Visible:=true;

Label158.Visible:=true;

Image26.Visible:=true;

Edit10.Visible:=true;

Edit11.Visible:=true;

Edit26.Visible:=true;

Edit36.Visible:=true;

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

Label165.Visible:=true;

Label166.Visible:=true;

Label167.Visible:=true;

Image31.Visible:=true;

Edit13.Visible:=true;

Edit14.Visible:=true;

Edit28.Visible:=true;

Edit38.Visible:=true;

Edit39.Visible:=true;

Label124.Visible:=true;

Label125.Visible:=true;

Label126.Visible:=true;

Label127.Visible:=true;

Label128.Visible:=true;

Label150.Visible:=true;

Label151.Visible:=true;

Label152.Visible:=true;

Label168.Visible:=true;

Label169.Visible:=true;

Label170.Visible:=true;

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

Label123.Visible:=true;

Label153.Visible:=true;

Label154.Visible:=true;

Edit49.Visible:=true;

Image17.Visible:=true;

Label174.Visible:=true;

end;

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

begin

cheh1;

Edit1.Visible:=true;

Edit2.Visible:=true;

Edit16.Visible:=true;

Edit18.Visible:=true;

Edit20.Visible:=true;

Edit21.Visible:=true;

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

Label132.Visible:=true;

Label133.Visible:=true;

Label134.Visible:=true;

Label135.Visible:=true;

Label136.Visible:=true;

Label137.Visible:=true;

Image19.Visible:=true;

Edit4.Visible:=true;

Edit5.Visible:=true;

Edit22.Visible:=true;

Edit32.Visible:=true;

Edit40.Visible:=true;

Edit41.Visible:=true;

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

Label156.Visible:=true;

Label157.Visible:=true;

Label158.Visible:=true;

Label171.Visible:=true;

Label172.Visible:=true;

Label173.Visible:=true;

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

Label123.Visible:=true;

Label153.Visible:=true;

Label154.Visible:=true;

Label155.Visible:=true;

Label159.Visible:=true;