体感温度

 投稿者：しばっち  投稿日：2016年 5月28日(土)20時50分4秒
  体感温度

INPUT  PROMPT "気温":T
INPUT  PROMPT "湿度":H
INPUT  PROMPT "風速":V
LET A=1.76+1.4*V^(.75)
LET TM=37-(37-T)/(.68-.0014*H+1/A)-.29*T*(1-H/100)
PRINT "体感温度";TM
END
 		 

戻る