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

     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
     8110 PRINT “IF I0=70 GOTO 7000":PRINT "IF I0=80 GOTO 9000"
     8120 INPUT I0
     8125 IF I0=70 GOTO 7000
     8130 IF I0=80 GOTO 9000
     9000 К0=0: К3=0: К4=0: К4=Х: К7=0: К8=0: Х0=0: Y0=0
     9010 PRINT “ПOCTPOEHИE ГРАФИКА"
     9015 PRINT "ЗАВИСИМОСТЬ K6(K5) ОТ ФАКТОРА"
     9020 РRINТ "К6(К5)-ОТНОСИТЕЛЬНАЯ ВЕЛИЧИНА ПОКА-
ЗАТЕЛЯ"
     9025 PRINT "K5-HOMEP ВЕЛИЧИНЫ ФАКТОРА И ПОКАЗА-
ТЕЛЯ"
     9030 РRINT “ВЕЛИЧИНЫ ФАКТОРОВ ЗАДАНЫ "
     9035 PRINT “BBOД Х0, Y0, K0, K3"
     9040 РRINT “ПРЕДПОЧТИТЕЛЬНО Х0=20, Y0=180"
     9045 INPUT Х0, Y0, K0, KЗ
     9050 PRINT "X0=";Х0;"Y0=";Y0;"K0=";К0; "К3="; КЗ
     9053 KEY OFF:CLS
     9055 SCREEN 1:COLOR 0,0
     9056 FOR K5=l TO K4:K7(K5)=K5×K0:K8(K5)=K3×K6(K5)
     9057 LINE (K7(K5)-X0,Y0)-(K7(K5)-X0,Y0-K8(K5)):NEXT K5
     9059 J6=0: J6=X-1: J7=0: J8=0: J9=0: K7=0: K8=0: J9=K3×J5
     9060 FOR K5=l TO J6:K7(K5)=K5×K0:K8(K5)=K3×K6(K5)
                                  87