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

                      ПРОГРАММА NW9 (план 4 · 5, Х = 20)

5 PRINT "ПРОГРАММА NW9,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NW9"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА NW91"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NW9 ЗАНОСЯТСЯ В ФАЙЛ "; FA$
40 PRINT " РАЗРАБОТКA ДЛЯ X=20"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NW9, РАЗРАБОТАННОЙ А.А. ЧЕР-
НЫМ"
42 DIM F(30), H(30), L(30), Y(27), I(30), K(30), M(30), P(30)
44 DIM Q(30), U(30), V(30), O(27), B(27), Z(30), G(20), T(27)
46 DIM K6(30), K7(30), K8(30), J7(30), J8(30), J9(30)
47 DIM Z1(50)
51 PRINT "ВВОД X-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ 4*5 "
52 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ 4*5 "
60 X = 20: PRINT #1, "X="; X
61 PRINT #1, "ВЕЛИЧИНЫ ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
62 PRINT "ВВОД ВЕЛИЧИН ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
80 IF X = 20 GOTO 200
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
250 IF X = 20 GOTO 460
460 PRINT "ВВОД A2,C2,E2,D2,B2,J2,O2,P2,T2"
470 INPUT A2, C2, E2, D2, B2, J2, O2, P2, T2
480 PRINT #1, "A2="; A2; " C2="; C2; " E2="; E2; " D2="; D2
483 PRINT #1, "B2="; B2; " J2="; J2; " O2="; O2
485 PRINT #1, "P2="; P2; " T2="; T2: A = A2: B = B2
490 C = C2: D = D2: E = E2: N = J2: R = O2: S = P2: W = T2: GOSUB 3860
500 V2 = V0: U2 = U0: Q2 = Q0: I2 = I0: M2 = M0: F2 = F0: G2 = G0: H2 = H0
510 K2 = K0: L2 = L0: PRINT #1, "V2="; V2; "U2="; U2; "Q2="; Q2
513 PRINT #1, "I2="; I2; " M2="; M2; " F2="; F2; " G2="; G2
515 PRINT #1, "H2="; H2; " K2="; K2; " L2="; L2
530 IF X = 20 GOTO 830
589 REM ПЛАН
830 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
840 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = E2: F(6) = B1: H(6) = E2
850 F(7) = A1: H(7) = C2: F(8) = B1: H(8) = D2: F(9) = A1: H(9) = D2
860 F(10) = B1: H(10) = C2: F(11) = C1: H(11) = A2: F(12) = C1: H(12) = C2
870 F(13) = C1: H(13) = E2: F(14) = C1: H(14) = D2: F(15) = C1: H(15) = B2
880 F(16) = D1: H(16) = A2: F(17) = D1: H(17) = C2: F(18) = D1: H(18) = E2
890 F(19) = D1: H(19) = D2: F(20) = D1: H(20) = 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)"




                                     203