|
|
不快指数
INPUT PROMPT "気温(℃)":T
INPUT PROMPT "湿度 (%)":H
LET DI=.81*T+H/100*(.99*T-14.3)+46.3
PRINT "不快指数";DI
SELECT CASE DI
CASE IS<55
PRINT "寒い"
CASE 55 TO 60
PRINT "肌寒い"
CASE 60 TO 65
PRINT "何も感じない"
CASE 65 TO 70
PRINT "快い"
CASE 70 TO 75
PRINT "暑くない"
CASE 75 TO 80
PRINT "やや暑い"
CASE 80 TO 85
PRINT "暑くて汗が出る"
CASE IS>85
PRINT "暑くてたまらない"
END SELECT
END
|
|