Математическое моделирование при трех уровнях факторов по программам на языках Бейсик и Турбо Паскаль. Черный А.А. - 38 стр.

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
1240 IF X = 9 GOTO 1340
1300 IF X = 27 GOTO 1400
1310 GOSUB 4150: GOTO 1410
1340 GOSUB 4150: GOSUB 4170: GOTO 1410
1400 GOSUB 4150: GOSUB 4170: GOSUB 4190: GOTO 1410
1410 S = 0: O(1) = 0: FOR J = 1 TO X: S = S + Y(J): O(1) = O(1) + 1: NEXT J
1420 B(1) = S / O(1): S = 0: O(2) = 0: FOR J = 1 TO X: S = S + I(J) * Y(J)
1430 O(2) = O(2) + I(J) ^ 2: NEXT J: B(2) = S / O(2): S = 0: O(3) = 0
1440 FOR J = 1 TO X: S = S + K(J) * Y(J): O(3) = O(3) + K(J) ^ 2: NEXT J
1450 B(3) = S / O(3): IF X = 3 GOTO 2390
1480 S = 0: O(4) = 0: FOR J = 1 TO X: S = S + P(J) * Y(J)
1490 O(4) = O(4) + P(J) ^ 2: NEXT J: B(4) = S / O(4): S = 0: O(5) = 0
1500 FOR J = 1 TO X: S = S + I(J) * P(J) * Y(J): O(5) = O(5) + (I(J) * P(J)) ^ 2
1510 NEXT J: B(5) = S / O(5): S = 0: O(6) = 0: FOR J = 1 TO X
1520 S = S + Q(J) * Y(J): O(6) = O(6) + Q(J) ^ 2: NEXT J: B(6) = S / O(6)
1530 S = 0: O(7) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * Y(J)
1540 O(7) = O(7) + (I(J) * Q(J)) ^ 2: NEXT J: B(7) = S / O(7): S = 0
1550 O(8) = 0: FOR J = 1 TO X: S = S + P(J) * K(J) * Y(J)
1560 O(8) = O(8) + (P(J) * K(J)) ^ 2: NEXT J: B(8) = S / O(8): S = 0: O(9) = 0
1570 FOR J = 1 TO X: S = S + K(J) * Q(J) * Y(J): O(9) = O(9) + (K(J) * Q(J)) ^ 2
1580 NEXT J: B(9) = S / O(9): IF X = 9 GOTO 2390
1590 IF X = 27 GOTO 2040
2040 S = 0: O(10) = 0: FOR J = 1 TO X: S = S + U(J) * Y(J)
2050 O(10) = O(10) + U(J) ^ 2: NEXT J: B(10) = S / O(10): S = 0: O(11) = 0
2060 FOR J = 1 TO X: S = S + I(J) * U(J) * Y(J): O(11) = O(11) + (I(J) * U(J)) ^ 2
2070 NEXT J: B(11) = S / O(11): S = 0: O(12) = 0: FOR J = 1 TO X
2080 S = S + P(J) * U(J) * Y(J): O(12) = O(12) + (P(J) * U(J)) ^ 2: NEXT J
2090 B(12) = S / O(12): S = 0: O(13) = 0: FOR J = 1 TO X
2100 S = S + I(J) * P(J) * U(J) * Y(J): O(13) = O(13) + (I(J) * P(J) * U(J)) ^ 2
2110 NEXT J: B(13) = S / O(13): S = 0: O(14) = 0: FOR J = 1 TO X
2120 S = S + V(J) * Y(J): O(14) = O(14) + V(J) ^ 2: NEXT J: B(14) = S / O(14)
2130 S = 0: O(15) = 0: FOR J = 1 TO X: S = S + I(J) * V(J) * Y(J)
2140 O(15) = O(15) + (I(J) * V(J)) ^ 2: NEXT J: B(15) = S / O(15): S = 0
2150 O(16) = 0: FOR J = 1 TO X: S = S + P(J) * V(J) * Y(J)
2160 O(16) = O(16) + (P(J) * V(J)) ^ 2: NEXT J: B(16) = S / O(16): S = 0
2170 O(17) = 0: FOR J = 1 TO X: S = S + U(J) * K(J) * Y(J)
2180 O(17) = O(17) + (U(J) * K(J)) ^ 2: NEXT J: B(17) = S / O(17): S = 0
2190 O(18) = 0: FOR J = 1 TO X: S = S + U(J) * Q(J) * Y(J)
2200 O(18) = O(18) + (U(J) * Q(J)) ^ 2: NEXT J: B(18) = S / O(18): S = 0
2210 O(19) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * V(J) * Y(J)
2220 O(19) = O(19) + (I(J) * P(J) * V(J)) ^ 2: NEXT J: B(19) = S / O(19)



                                                 38