Изобретения и совершенствование на их основе процессов и материалов с применением математического моделирования. Черный А.А - 128 стр.

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




                                    128