喫煙者の余命計算

 投稿者:しばっち  投稿日:2016年 5月28日(土)20時51分56秒
  喫煙者の余命計算

!'タバコ1本で約5分30秒寿命が縮まると仮定
!'タバコを吸わないと平均寿命まで生きられると仮定
!'総タバコ代は1箱20本で計算
!'1次方程式(死亡年齢を求める) : 平均寿命-縮んだ寿命-死亡年齢=0
INPUT  PROMPT "一日当たりのたばこの本数:":本数
INPUT  PROMPT "たばこ一箱の価格:":価格
INPUT  PROMPT "吸い始めた年齢:":吸い始めた年齢
INPUT  PROMPT "現在年齢:":現在年齢
INPUT  PROMPT "平均寿命:":平均寿命 !'男性:80.5歳 女性:86.83歳(2015年)
LET 年間あたり縮んだ秒数=本数*365*330
LET 年間秒数=365*24*60*60
LET 年間縮み率=年間あたり縮んだ秒数/年間秒数
LET 死亡年齢=(平均寿命+吸い始めた年齢*年間縮み率)/(1+年間縮み率)
LET 縮んだ寿命=(死亡年齢-吸い始めた年齢)*年間縮み率
LET たばこ総本数=(死亡年齢-吸い始めた年齢)*本数*365
PRINT "寿命:";ROUND(死亡年齢,2);"歳"
PRINT "縮んだ寿命:";ROUND(縮んだ寿命,2);"年"
PRINT "余命:";ROUND(死亡年齢-現在年齢,2);"年"
PRINT "総たばこ箱数:";INT(たばこ総本数/20);"箱"
PRINT "総たばこ代:";INT(たばこ総本数/20)*価格;"円"
END
 

戻る