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

      6796 PRINT "IF I0=50 GOTO 40":PRINT "IF I0=51 GOTO 3240"
      6797 PRINT "IF I0=52 GOTO 7000"
      6800 PRINT "ВВОД I0":INPUT I0
      6810 IF I0=18 GOTO 2660
      6820 IF I0=19 GOTO 3190
      6823 IF I0=35 GOTO 1160
      6825 IF I0=44 GOTO 6830
      6827 IF I0=50 GOTO 40
      6828 IF I0=51 GOTO 3240
      6829 IF I0=52 GOTO 7000
      6830 STOP
      7000 PRINT "ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
      7004 PRINT "ПО МАТЕМАТИЧЕСКОЙ МОДЕЛИ"
      7005 PRINT "С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ"
      7006 PRINT ”И ПОСТРОЕНИЕ ГРАФИКОВ"
      7020 PRINT "ВВОД I0=62 ПРИ Х=9"
      7040 PRINT "IF I0=64 GOTO 40"
      7050 PRINT "IF I0=65 GOTO 6830"
      7060 INPUT I0
      7080 IF I0=62 GOTO 7360
      7100 IF I0=64 GOTO 40
      7110 IF I0=65 GOTO 6830
      7360        X=0:F3=0:K5=0:K6=0:F4=0:H3=0:H4=0:       PRINT
"F(1)=F3+F4"
      7370 PRINT “F4-ШАГ ПРИРАЩЕНИЯ 1-ГО ФАКТОРА"
      7380 PRINT "H(1)=H3+H4"
      7390 PRINT "Н4-ШАГ ПРИРАЩЕНИЯ 2-ГО ФАКТОРА"
      7400 PRINT "ВВОД ПРИНЯТЫХ ВЕЛИЧИН X, F3,F4,НЗ,Н4"
      7410 INPUT X, F3, F4, НЗ, Н4: К5=0:К6=0: PRINT
"X=";X;"F3=":F3;"F4=";F4
      7420 PRINT "H3=";H3;"H4=";H4
      7430 FOR K5=l TO X:F(K5)=F3+K5×F4: PRINT "F(";K5;")=
";F(K5)
      7440 Н(К5)=НЗ+К5×Н4:PRINT "Н(";К5;")= ";Н(К5)
      7510 GOSUB 4150:GOSUB 4170:GOSUB 4450
      7570 PRINT "Z(";K5;")=";Z(K5)
      7575 NEXT K5:GOTO 8000
      8000     PRINT   "ВЫЯВЛЕНИЕ       MAX      Z(K5)  И    MIN
Z(K5)":K8=0:K8=Z(1)
      8002 РRINT “ВВОД I0=90"

                                 86