Математическое моделирование в литейном производстве. Черный А.А. - 125 стр.

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


                                125