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

Label160.Visible:=true;

Edit49.Visible:=true;

Edit50.Visible:=true;

Image27.Visible:=true;

Label176.Visible:=true;

Image34.Visible:=true;

end;

If (k=5) and (l=3) 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;

Edit7.Visible:=true;

Edit8.Visible:=true;

Edit24.Visible:=true;

Edit34.Visible:=true;

Edit42.Visible:=true;

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

Label177.Visible:=true;

Label178.Visible:=true;

Label179.Visible:=true;

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

Label160.Visible:=true;

Edit49.Visible:=true;

Edit50.Visible:=true;

Image27.Visible:=true;

Label176.Visible:=true;

Image29.Visible:=true;

end;

If (k=5) and (l=4) 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;

Edit7.Visible:=true;

Edit8.Visible:=true;

Edit24.Visible:=true;

Edit34.Visible:=true;

Edit42.Visible:=true;

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

Label177.Visible:=true;

Label178.Visible:=true;

Label179.Visible:=true;

Image35.Visible:=true;

Edit10.Visible:=true;

Edit11.Visible:=true;

Edit26.Visible:=true;

Edit36.Visible:=true;

Edit44.Visible:=true;

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

Label166.Visible:=true;

Label167.Visible:=true;

Label165.Visible:=true;

Label180.Visible:=true;

Label181.Visible:=true;

Label182.Visible:=true;

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

Label160.Visible:=true;

Edit49.Visible:=true;

Edit50.Visible:=true;

Image27.Visible:=true;

Label176.Visible:=true;

Image38.Visible:=true;

end;

If (k=5) and (l=5) 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;