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

         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




                                                 90