Теория и практика эффективного математического моделирования. Черный А.А. - 129 стр.

1050 F(13) = E1: H(13) = E2: L(13) = A3: F(14) = E1: H(14) = E2:
L(14) = B3
1060 F(15) = A1: H(15) = A2: L(15) = E3: F(16) = B1: H(16) = A2:
L(16) = E3
1070 F(17) = A1: H(17) = B2: L(17) = E3: F(18) = B1: H(18) = B2:
L(18) = E3
1080 F(19) = A1: H(19) = E2: L(19) = A3: F(20) = B1: H(20) = E2:
L(20) = A3
1090 F(21) = A1: H(21) = E2: L(21) = B3: F(22) = B1: H(22) = E2:
L(22) = B3
1100 F(23) = E1: H(23) = A2: L(23) = A3: F(24) = E1: H(24) = B2:
L(24) = A3
1110 F(25) = E1: H(25) = A2: L(25) = B3: F(26) = E1: H(26) = B2:
L(26) = B3
1120 F(27) = E1: H(27) = E2: L(27) = E3
1130 PRINT "IF I0=6 GOTO 40-НАЧАЛО"
1135 PRINT "IF I0=7 GOTO 1160-ПРОДОЛЖЕНИЕ"
1140 INPUT I0: IF I0 = 6 GOTO 40
1150 IF I0 = 7 GOTO 1160
1160 PRINT "ВВОД ВЕЛИЧИН ПОКАЗАТЕЛЕЙ ПО ПЛАНУ Y(J) "
1161 PRINT #1, "ВЕЛИЧИНЫ ПОКАЗАТЕЛЕЙ В СООТВЕТСТ-
ВИИ С ПЛАНОМ Y(J)"
1165 FOR J = 1 TO X
1166 PRINT "Y("; J; ")": INPUT Y(J)
1170 PRINT #1, "Y("; J; ")="; Y(J): NEXT J
1180 PRINT "IF I0=1 GOTO 1160-ПОВТОРЕНИЕ ВВОДА ПОКА-
ЗАТЕЛЕЙ"
1185 PRINT "IF I0=2 GOTO 1210-ПРОДОЛЖЕНИЕ"
1190 PRINT "ВВОД I0": INPUT I0: IF I0 = 1 GOTO 1160
1200 IF I0 = 2 GOTO 1210
1210 IF X = 3 GOTO 1310
1220 IF X = 4 GOTO 1320
1230 IF X = 5 GOTO 1330
1240 IF X = 9 GOTO 1340
1250 IF X = 12 GOTO 1350
1260 IF X = 15 GOTO 1360
1270 IF X = 16 GOTO 1370
1280 IF X = 20 GOTO 1380
1290 IF X = 25 GOTO 1390
1300 IF X = 27 GOTO 1400
1310 GOSUB 4150: GOTO 1410
1320 GOSUB 4210: GOTO 1410
1330 GOSUB 4290: GOTO 1410


                               129