(i, nap_stl) x=1 To 10_P1_10 (i, x)=mas_P1_10 (i, x) - (Y * mas_P1_10 (nap_str, x)) xIfii=1 To 10_Delti (i)=0x=1 To 5 (mas_Sb (x) <> ; 0) Then_Delti (i)=mas_Delti (i) + (mas_Sb (x) * mas_P1_10 (x, i)) Ifx_Delti (i)=mas_Delti (i) - mas_Prib (i) iIfWhile ((vid_resch=1 And optima=« ; n ») Or (vid_resch=2 And optima =« n »And kol_iter <> kol_iter_nado + 1))
'Обчислення оптимальності закінчено.=«y»
'Перевіряємо на оптимальність план:
For i=1 To 10 (mas_Delti (i) <0) Then=«n» If
Next i
'Перевірка на оптимальність закінчена.
If (optima=«y» Or kol_iter=kol_iter_nado) Then.Command1.Enabled=False
'Command2.Enabled=TrueIf
'Висновок результатов.T_bas_1.Text="P" + Str (mas_Bazis (1)). T_bas_2.Text="P" + Str (mas_Bazis (2)). T_bas_3.Text="P" + Str (mas_Bazis (3)). T_bas_4.Text="P" + Str (mas_Bazis (4)). T_bas_5.Text="P" + Str (mas_Bazis (5))
'-----------------. T_sb_1.Text=Str (mas_Sb (1)). T_sb_2.Text=Str (mas_Sb (2)) . T_sb_3.Text=Str (mas_Sb (3)). T_sb_4.Text=Str (mas_Sb (4)). T_sb_5.Text=Str (mas_Sb (5))
'-----------------. T_P0_1.Text=Str (Format (mas_P0 (1), «# .00»)). T_P0_2 . Text=Str (Format (mas_P0 (2), «# .00»)). T_P0_3.Text=Str (Format (mas_P0 (3), «# .00»)). T_P0_4.Text=Str (Format (mas_P0 (4), «# .00»)). T_P0_5.Text=Str (Format (mas_P0 (5), «# .00»))
'-----------------. T_P_11.Text=Format (mas_P1_10 (1, 1), «0. # #»). T_P_12.Text=Format (mas_P1_10 (1, 2), «0. # #»). T_P_13.Text=Format (mas_P1_10 (1, 3), «0. # #»). T_P_14.Text= Format (mas_P1_10 (1, 4), «0. # #»). T_P_15.Text=Format (mas_P1_10 (1, 5), «0. # #»). T_P_16.Text=Format (mas_P1_10 ( 1, 6), «0. # #»). T_P_17.Text=Format (mas_P1_10 (1, 7), «0. # #»). T_P_18.Text=Format (mas_P1_10 (1, 8) , «0. # #»). T_P_19.Text=Format (mas_P1_10 (1, 9), «0. # #»). T_P_110.Text=Format (mas_P1_10 (1, 10), «0 . # # »). T_P_21.Text=Format (mas_P1_10 (2, 1),« 0. # # »). T_P_22.Text=Format (mas_P1_10 (2, 2),« 0. # # » ;). T_P_23.Text=Format (mas_P1_10 (2, 3), «0. # #»). T_P_24.Text=Format (mas_P1_10 (2, 4), «0. # #»). T_P_25 . Text=Format (mas_P1_10 (2, 5), «0. # #»). T_P_26.Text=Format (mas_P1_10 (2, 6), «0. # #»). T_P_27.Text=Format (mas_P1_10 (2, 7), «0. # #»). T_P_28.Text=Format (mas_P1_10 (2, 8), «0. # #»). T_P_29.Text=Format (mas_P1_10 (2 , 9), «0. # #»). T_P_210.Text=Format (mas_P1_10 (2, 10), «0. # #»). T_P_31.Text=Format (mas_P1_10 (3, 1), «0. # #»). T_P_32.Text=Format (mas_P1_10 (3, 2), «0. # #»). T_P_33.Text=Format (mas_P1_10 (3, 3), «0. # # »). T_P_34.Text=Format (mas_P1_10 (3, 4),« 0. # # »). T_P_35.Text=Format (mas_P1_10 (3, 5),« 0. # # » ). T_P_36.Text=Format (mas_P1_10 (3, 6), «0. # #»). T_P_37.Text=Format (mas_P1_10 (3, 7), «0. # #»). T_P_38. Text=Format (mas_P1_10 (3, 8), «0. # #»). T_P_39.Text=Format (mas_P1_10 (3, 9), «0. # #»). T_P_310.Text=Format ( mas_P1_10 (3, 10), «0. # #»). T_P_41.Text=Format (mas_P1_10 (4, 1), «0. # #»). T_P_42.Text=Format (mas_P1_10 (4, 2), «0. # #»). T_P_43.Text=Format (mas_P1_10 (4, 3), «0. # #»). T_P_44.Text=Format (mas_P1_10 (4, 4), « ; 0. # # »). T_P_45.Text=Format (mas_P1_10 (4, 5),« 0. # # »). T_P_46.Text=Format (mas_P1_10 (4, 6),« 0. # # »). T_P_47.Text=Format (mas_P1_10 (4, 7),« 0. # # »). T_P_48.Text=Format (mas_P1_10 (4, 8),« 0. # # ») ....
