二日酔い

 投稿者：しばっち  投稿日：2016年 5月28日(土)20時49分30秒
  二日酔い

!'二日酔いしない飲酒量ml＝15*体重kg*飲み始めて翌朝までの時間/(エタノール度数*0.8)
INPUT  PROMPT "体重(Kg):":体重
INPUT  PROMPT "飲み始めて翌朝までの時間:":時間
INPUT  PROMPT "アルコール度数:":度数
LET 二日酔いしない飲酒量=15*体重*時間/(度数*0.8)
PRINT "二日酔いしない飲酒量:";二日酔いしない飲酒量;"ml"
END
 		 

戻る