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

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"
8004 INPUT I0
8010 FOR K5=l TO X
8020 IF Z(K5) >= K8 THEN K8=Z(K5)
8040 NEXT K5:PRINT"MAX Z(K5)=";K8
8041 FOR K5=l TO X
8042 IF Z(K5)=K8 THEN PRINT'MAX Z(";K5;")=";Z(K5)
8044 NEXT K5
8050 K7=0:K7=Z(1)
8060 FOR K5=l TO X
8070 IF Z(K5) <= K7 THEN K7=Z(K5)
8090 NEXT K5:PRINT"MIN Z(K5)=";K7
8091 FOR K5=l TO X
8092 IF Z(K5)=K7 THEN PRINT'MIN Z(";K5;")=";Z(K5)
8094 NEXT K5:K6=0
8095 FOR K5=l TO X:K6(K5)=(Z(K5)+ABS(K7))/(ABS(K7)+ABS(K8))
8096 PRINT"K6(";K5;")=";K6(K5):NEXT K5
8098 J5=0: J5=ABS(K7)/(ABS(K7)+ABS(K8)): PRINT" J5="; J5




                                           89