Пористые материалы и изделия, их улучшение на основе математического моделирования. Черный А.А - 33 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

33
9062 J7(K5) = (K5 + 1) * K0: J8(K5) = K3 * K6(K5 + 1): J9 = K3 * J5
9063 LINE (K7(K5) - X0, Y0)-(J7(K5) - X0, Y0)
9064 LINE (K7(K5) - X0, Y0 - J9)-(J7(K5) - X0, Y0 - J9)
9065 LINE (K7(K5) - X0, Y0 - K8(K5))-(J7(K5) - X0, Y0 - J8(K5))
9066 NEXT K5
9071 A$ = ""
9072 A$ = INKEY$: IF A$ = "" THEN 9072
9073 SCREEN 0: CLS : COLOR 2, 0
9074 PRINT "ВВОД I0=75 GOTO 9000-ПОВТОРЕНИЕ ПОСТРОЕНИЯ ГРАФИКА"
9075 PRINT "ВВОД I0=85 GOTO 7000-ПОВТОРЕНИЕ"
9076 PRINT " ВЫЧИСЛЕНИЙ ПОКАЗАТЕЛЕЙ Z(K5)"
9078 PRINT " С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ "
9079 PRINT " И ПОСТРОЕНИЕ ГРАФИКОВ"
9080 PRINT "ВВОД I0=95 GOTO 6830-КОНЕЦ": PRINT
9081 INPUT I0
9082 IF I0 = 75 GOTO 9000
9090 IF I0 = 85 GOTO 7000
9095 IF I0 = 95 GOTO 6830 
9062 J7(K5) = (K5 + 1) * K0: J8(K5) = K3 * K6(K5 + 1): J9 = K3 * J5
9063 LINE (K7(K5) - X0, Y0)-(J7(K5) - X0, Y0)
9064 LINE (K7(K5) - X0, Y0 - J9)-(J7(K5) - X0, Y0 - J9)
9065 LINE (K7(K5) - X0, Y0 - K8(K5))-(J7(K5) - X0, Y0 - J8(K5))
9066 NEXT K5
9071 A$ = ""
9072 A$ = INKEY$: IF A$ = "" THEN 9072
9073 SCREEN 0: CLS : COLOR 2, 0
9074 PRINT "ВВОД I0=75 GOTO 9000-ПОВТОРЕНИЕ ПОСТРОЕНИЯ ГРАФИКА"
9075 PRINT "ВВОД I0=85 GOTO 7000-ПОВТОРЕНИЕ"
9076 PRINT "       ВЫЧИСЛЕНИЙ ПОКАЗАТЕЛЕЙ Z(K5)"
9078 PRINT "       С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ "
9079 PRINT "       И ПОСТРОЕНИЕ ГРАФИКОВ"
9080 PRINT "ВВОД I0=95 GOTO 6830-КОНЕЦ": PRINT
9081 INPUT I0
9082 IF I0 = 75 GOTO 9000
9090 IF I0 = 85 GOTO 7000
9095 IF I0 = 95 GOTO 6830




                                   33

Страницы