Основы изобретательства и научных исследований. Черный А.А. - 141 стр.

9065 LINE (K7(K5) - X0, Y0 - K8(K5))-(J7(K5) - X0, Y0 - J8(K5))
9066 NEXT K5
9071 A$ = ""
9072 A$ = INKEY$: IF A$ = "" THEN 9072
9073 SCREEN 0: CLS : COLOR 2, 0
9074 PRINT "ВВОД I0=75 GOTO 9000-ПОВТОРЕНИЕ ПОСТРОЕНИЯ ГРАФИКА"
9075 PRINT "ВВОД I0=85 GOTO 7000-ПОВТОРЕНИЕ"
9076 PRINT "       ВЫЧИСЛЕНИЙ ПОКАЗАТЕЛЕЙ Z(K5)"
9078 PRINT "       С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ "
9079 PRINT "       И ПОСТРОЕНИЕ ГРАФИКОВ"
9080 PRINT "ВВОД I0=95 GOTO 6830-КОНЕЦ": PRINT
9081 INPUT I0
9082 IF I0 = 75 GOTO 9000
9090 IF I0 = 85 GOTO 7000
9095 IF I0 = 95 GOTO 6830



      ПРОГРАММА МАТЕМАТИЧЕСКОГО МОДЕЛИРОВАНИЯ VN0 ДЛЯ
           СЛУЧАЕВ ПЛАНИРОВАНИЯ 31 (Х = 3), 41 (Х = 4),
          51 (Х = 5), 32 (Х = 9), 3 ⋅ 4 (Х = 12), 3 ⋅ 5 (Х = 15), 42 (Х = 16),
                       4 ⋅ 5 (Х = 20), 52 (Х = 25), 33 (Х = 27)

5 PRINT "ПРОГРАММА VN0,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ VN0"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА VN01"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ VN0 ЗАНОСЯТСЯ В ФАЙЛ "; FA$
40 PRINT " РАЗРАБОТКИ ДЛЯ X=3,X=4,X=5,X=9,X=12,X=15,X=16,X=20,X=25,X=27"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ VN0, РАЗРАБОТАННОЙ А.А. ЧЕРНЫМ"
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)
51 PRINT "ВВОД X-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
52 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
60 INPUT X: PRINT #1, "X="; X
61 PRINT #1, "ВЕЛИЧИНЫ ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
62 PRINT "ВВОД ВЕЛИЧИН ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
65 IF X = 4 GOTO 200
70 IF X = 16 GOTO 200
80 IF X = 20 GOTO 200
90 IF X = 5 GOTO 270
100 IF X = 25 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
150 IF X = 9 GOTO 350
160 IF X = 27 GOTO 350
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

                                       141