Математическое моделирование при двух уровнях факторов по программам на языках Бейсик и Турбо Паскаль. Черный А.А. - 13 стр.

          ПРОГРАММА LV0 НА ЯЗЫКЕ БЕЙСИК (планы 21, 22, 23, 24, 25,
   Х = 2, Х = 4, Х = 8, Х = 16, Х = 32, с добавлением подпрограммы для
                                         Х = 32)

5 PRINT "ПРОГРАММА LV0,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ LV0"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА LV01"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
11 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ LV0 ЗАНОСЯТСЯ В ФАЙЛ "; FA$
40 PRINT "X=2,X=4,X=8,X=16,X=32"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ LV0,РАЗРАБОТАННОЙ А.А. ЧЕРНЫМ"
42 DIM F(50), H(50), L(50), K(50), M(50), Y(32), I(50), P(50)
44 DIM U(50), Q(50), V(50), O(32), B(32), Z(50), G(20), T(32)
46 DIM K6(50), K7(50), K8(50), J7(50), J8(50), J9(50)
47 DIM Z1(50)
55 PRINT "КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
56 PRINT #1, "ВВОД X-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
60 INPUT X: PRINT #1, "X="; X
61 PRINT "ВВОД ВЕЛИЧИН ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
62 PRINT #1, "ВЕЛИЧИНЫ ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
70 PRINT "ВВОД A1,B1,J1": INPUT A1, B1, J1
75 PRINT #1, "A1="; A1; "B1="; B1; "J1="; J1
80 A = A1: B = B1: N = J1: GOSUB 2480
90 V1 = V0: PRINT #1, "V1="; V1: IF X = 2 GOTO 220
100 PRINT "ВВОД A2,B2,J2": INPUT A2, B2, J2
105 PRINT #1, "A2="; A2; "B2="; B2; "J2="; J2
110 A = A2: B = B2: N = J2: GOSUB 2480
120 V2 = V0: PRINT #1, "V2="; V2: IF X = 4 GOTO 220
130 PRINT "ВВОД A3,B3,J3": INPUT A3, B3, J3
135 PRINT #1, "A3="; A3; "B3="; B3; "J3="; J3
140 A = A3: B = B3: N = J3: GOSUB 2480
150 V3 = V0: PRINT #1, "V3="; V3: IF X = 8 GOTO 220
160 PRINT "ВВОД A4,B4,J4": INPUT A4, B4, J4
165 PRINT #1, "A4="; A4; "B4="; B4; "J4="; J4
170 A = A4: B = B4: N = J4: GOSUB 2480
180 V4 = V0: PRINT #1, "V4="; V4: IF X = 16 GOTO 220
190 PRINT "ВВОД A5,B5,J5": INPUT A5, B5, J5
195 PRINT #1, "A5="; A5; "B5="; B5; "J5="; J5
200 A = A5: B = B5: N = J5: GOSUB 2480
210 V5 = V0: PRINT #1, "V5="; V5: GOTO 220
215 REM ПЛАНЫ
220 F(1) = A1: F(2) = B1: IF X = 2 GOTO 580
230 H(1) = A2: H(2) = A2: F(3) = A1: H(3) = B2
240 F(4) = B1: H(4) = B2: IF X = 4 GOTO 580
250 L(1) = A3: L(2) = A3: L(3) = A3: L(4) = A3
260 F(5) = A1: H(5) = A2: L(5) = B3: F(6) = B1: H(6) = A2
270 L(6) = B3: F(7) = A1: H(7) = B2: L(7) = B3: F(8) = B1
280 H(8) = B2: L(8) = B3: IF X = 8 GOTO 580
290 K(1) = A4: K(2) = A4: K(3) = A4: K(4) = A4: K(5) = A4
300 K(6) = A4: K(7) = A4: K(8) = A4: F(9) = A1: H(9) = A2
310 L(9) = A3: K(9) = B4: F(10) = B1: H(10) = A2: L(10) = A3
320 K(10) = B4: F(11) = A1: H(11) = B2: L(11) = A3: K(11) = B4




                                     13