Компьютерные дополненные программы математического моделирования и расчетов по математическим моделям. Черный А.А. - 251 стр.

                      ПРОГРАММА 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




                                     251