Программирование на языке Бейсик применительно к математическому моделированию. Черный А.А. - 34 стр.

                                                                      34

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)
9061 J7(K5)=(K5+1) ×K0: J8( K5)=K3×K6(K5+1)
9062 LINE (K7(K5)-X0,Y0)-(J7(K5)-X0, Y0)
9063 LINE (K7(K5)-X0,Y0-J9)-(J7(K5)-X0, Y0-J9)
9065 LINE (K7(K5)-X0,Y0-К8(К5))-(J7(K5)-X0, Y0-J8(К5)):NEXT K5
9071 A$=” ”
9072 A$=INKEY$:IF A$=” ” THEN 9072
9073 SCREEN 2:CLS
9074 PRINT ”ВВОД I0=75 GOTO 9000, I0=85 GOTO 7000, I0=95 GOTO 6830”
9075 INPUT I0
9080 IF I0=75 GOTO 9000
9090 IF I0=85 GOTO 7000
9095 IF I0=95 DOTO 6830