Применение вычислительной техники при моделировании - 7 стр.

                  ПРОГРАММА НА ЯЗЫКЕ БЕЙСИК NV6


5 PRINT "ПРОГРАММА NV6,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV6"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА NV61"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV6 ЗАНОСЯТСЯ В ФАЙЛ "; FA$
40 PRINT " РАЗРАБОТКА ДЛЯ X=16"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ VN6, РАЗРАБОТАННОЙ А.А. ЧЕРНЫМ"
42 DIM F(20), H(20), L(20), Y(20), I(20), K(20), P(20)
44 DIM Q(20), U(20), V(20), O(20), B(20), Z(20), G(20), T(20)
46 DIM K6(20), K7(20), K8(20), J7(20), J8(20), J9(20)
47 DIM Z1(50)
51 PRINT "ВВОД X-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
52 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
60 INPUT X: PRINT #1, "X="; X
61 PRINT #1, "ВЕЛИЧИНЫ ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
62 PRINT "ВВОД ВЕЛИЧИН ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
200 PRINT "ВВОД A1,C1,D1,B1,J1,O1,P1"
210 INPUT A1, C1, D1, B1, J1, O1, P1
213 PRINT #1, "A1="; A1; " C1="; C1; " D1="; D1
215 PRINT #1, " B1="; B1; " J1="; J1; " O1="; O1; " P1="; P1
220 A = A1: B = B1: C = C1: D = D1: N = J1: R = O1: S = P1: GOSUB 3710
230 V1 = V0: U1 = U0: Q1 = Q0: I1 = I0: M1 = M0: F1 = F0
240 PRINT #1, "V1="; V1; " U1="; U1; " Q1="; Q1
243 PRINT #1, " I1="; I1; " M1="; M1; " F1="; F1
245 IF X = 16 GOTO 400
400 PRINT "ВВОД A2,C2,D2,B2,J2,O2,P2"
410 INPUT A2, C2, D2, B2, J2, O2, P2: PRINT #1, "A2="; A2
413 PRINT #1, "C2="; C2; " D2="; D2; " B2="; B2; " J2="; J2
415 PRINT #1, "O2="; O2; "P2="; P2
420 A = A2: B = B2: C = C2: D = D2: N = J2: R = O2: S = P2: GOSUB 3710
430 V2 = V0: U2 = U0: Q2 = Q0: I2 = I0: M2 = M0: F2 = F0
440 PRINT #1, "V2="; V2; " U2="; U2; " Q2="; Q2; " I2="; I2
443 PRINT #1, "M2="; M2; " F2="; F2
450 IF X = 16 GOTO 770
770 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
780 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = C2: F(6) = B1: H(6) = C2
790 F(7) = A1: H(7) = D2: F(8) = B1: H(8) = D2: F(9) = C1: H(9) = A2
800 F(10) = C1: H(10) = C2: F(11) = C1: H(11) = D2: F(12) = C1
805 H(12) = B2
810 F(13) = D1: H(13) = A2: F(14) = D1: H(14) = C2: F(15) = D1
815 H(15) = D2
820 F(16) = D1: H(16) = B2: GOTO 1130
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 1270-ПРОДОЛЖЕНИЕ"
1190 PRINT "ВВОД I0": INPUT I0: IF I0 = 1 GOTO 1160
1200 IF I0 = 2 GOTO 1270
1270 IF X = 16 GOTO 1370

                                       7