Основы автоматизированного проектирования химических производств. Миронов В.М - 64 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

64
LOCATE 3, 55: PRINT "Gt,МПа"
FOR i = 0 TO n STEP n / 10
LOCATE i / n * 10 + 5, 8: PRINT USING "##"; i / n * 10;
LOCATE i / n * 10 + 5, 19: PRINT USING "###.##"; x(i, j) * 1000;
LOCATE i / n * 10 + 5, 35: PRINT USING "###.##"; gr(i) / 1000000
LOCATE i / n * 10 + 5, 55: PRINT USING "###.##"; gt(i) / 1000000
NEXT
'Определение максимальных напряжений и их вывод
FOR i = 0 TO n
gra(i + 1) = ABS(gr(i))
gta(i + 1) = ABS(gt(i))
NEXT
Sima(1) = max(gra(), n + 1)
COLOR 4
LOCATE 16, 27: PRINT "GrMax = "; USING "###.##"; Sima(1) / 1000000!
Sima(2) = max(gta(), n + 1)
LOCATE 17, 27: PRINT "GtMax = "; USING "###.##"; Sima(2) / 1000000!
COLOR 7, 0: Simax = max(Sima(), 2) / 1000000!
'Меню перехода от таблицы к графику или окончанию расчета
a = wind(19, 10, 23, 56, 3, 0)
COLOR 0, 3
LOCATE 20, 12
PRINT "Построить график................ <пробел>"
LOCATE 21, 12
PRINT "Рассчитать другой диск.......... <Enter>"
LOCATE 22, 12
PRINT "Закончить расчет................ <Esc>"
COLOR 7, 0
'Определение кода нажимаемой клавиши
ss:
k$ = "": WHILE k$ = "": k$ = INKEY$: WEND
cod = ASC(RIGHT$(k$, 1))
'Переход на метку по коду клавиши
SELECT CASE cod
CASE 32: GOTO graph
CASE 13:
GOTO op
CASE 27
CLS 0: STOP
CASE ELSE: GOTO ss
END SELECT

Страницы