Инженерная оптимизация оборудования для переработки полимерных материалов. Клинков А.С - 278 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

278
PRINT #1, "
************************************************************"
PRINT " HOMEP CЧETA:"; ICONT, " FDIFER ="; FDIFER#
PRINT #1, " HOMEP CЧETA:"; ICONT, "FDIFER ="; FDIFER#
CALL WRIT
PRINT " ФИHAЛ"
PRINT #1, " ФИHAЛ"
GOTO 10
80 PRINT
"***********************************************************"
PRINT #1, "
************************************************************"
PRINT " HOMEP CЧETA:"; ICONT, " FDIFER ="; FDIFER#
PRINT #1, " HOMEP CЧETA:"; ICONT, "FDIFER ="; FDIFER#
CALL WRIT
PRINT " HET ФИHAЛA"
PRINT #1, " HET ФИHAЛA"
SOUND 1500, 18
SLEEP 30
GOTO 10
9999 PRINT "---------------------------STOP----------------------------"
PRINT #1, " ----------------------------STOP----------------------------"
SOUND 110, 12
CLOSE
END
SUB FEAS
ALFA# = 1#: BETA# = .5#: GAMA# = 2#
XNX = NX
ICONT = 0
LCHEK = 0
ICHEK = 0
250 CALL STAR
FOR I = 1 TO K1
FOR J = 1 TO NX
X#(J) = X1#(I, J)
NEXT J
IN = I
CALL SUMR
NEXT I
28 SUMH# = SUM#(1)
INDEX = 1
FOR I = 2 TO K1
IF SUM#(I) <= SUMH# THEN GOTO 7

Страницы