Вычислительная техника в инженерных расчетах и моделировании. Черный А.А. - 161 стр.

         ПРОГРАММА LV1 (планы 21, 22, 23, 24, 25, Х = 2, Х = 4, Х = 8,
         Х = 16, с добавлением подпрограмм, Х = 32 – без добавления
                             подпрограмм)

      5 PRINT "ПРОГРАММА LV1,РАЗРАБОТКА А.А.ЧЕРНОГО"
      6 CLS
      7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ LV1"
      8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
      9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА LV11"
      10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
      11 OPEN "O", #1, FA$
      17 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ LV1 ЗАНОСЯТСЯ В ФАЙЛ ";
FA$
     40 PRINT "X=2,X=4,X=8,X=16,X=32"
     41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ LV1,РАЗРАБОТАННОЙ А.А.
ЧЕРНЫМ"
     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




                                      161