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

        ПРОГРАММА NW6 (планы 31, 41, 51, 3 · 4, 3 · 5, 4 · 5, Х = 3, Х = 4,
                 Х = 5, Х = 12, Х = 15, Х = 20)

5 PRINT "ПРОГРАММА NW6,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NW6"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА NW61"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NW6 ЗАНОСЯТСЯ В
ФАЙЛ "; FA$
40 PRINT " РАЗРАБОТКИ ДЛЯ X=3,X=4,X=5,X=12,X=15,X=20"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NW6, РАЗРАБОТАН-
НОЙ А.А. ЧЕРНЫМ"
42 DIM F(50), H(50), L(50), Y(27), I(50), K(50), M(50), P(50)
44 DIM Q(50), U(50), V(50), O(27), B(27), Z(50), G(20), T(27)
46 DIM K6(50), K7(50), K8(50), J7(50), J8(50), J9(50)
47 DIM Z1(50)
51 PRINT "ВВОД X-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
52 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
60 INPUT X: PRINT #1, "X="; X
61 PRINT #1, "ВЕЛИЧИНЫ ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
62 PRINT "ВВОД ВЕЛИЧИН ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
65 IF X = 4 GOTO 200
80 IF X = 20 GOTO 200
90 IF X = 5 GOTO 270
120 PRINT "ВВОД A1,E1,B1,J1,O1": INPUT A1, E1, B1, J1, O1
130 PRINT #1, "A1="; A1; " E1="; E1; " B1="; B1
133 PRINT #1, "J1="; J1; " O1="; O1: A = A1: B = B1: E = E1: N = J1: R = O1
140 GOSUB 3660: V1 = V0: U1 = U0: Q1 = Q0
144 PRINT #1, "V1="; V1; " U1="; U1; " Q1="; Q1
170 IF X = 12 GOTO 400
180 IF X = 15 GOTO 460
190 IF X = 3 GOTO 590
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
260 IF X = 4 GOTO 600
270 PRINT "ВВОД A1,C1,E1,D1,B1,J1,O1,P1,T1"
280 INPUT A1, C1, E1, D1, B1, J1, O1, P1, T1




                                     211