|
|
基礎代謝量(ハリス・ベネディクト方程式(改良版)
!'男性： 13.397×体重kg＋4.799×身長cm－5.677×年齢+88.362
!'女性： 9.247×体重kg＋3.098×身長cm－4.33×年齢+447.593
INPUT PROMPT "男性(1) 女性(2)":性別
INPUT PROMPT "年齢":年齢
INPUT PROMPT "身長(cm)":身長
INPUT PROMPT "体重(kg)":体重
SELECT CASE 性別
CASE 1
LET カロリ=13.397*体重+4.799*身長-5.677*年齢+88.362
CASE 2
LET カロリ=9.247*体重+3.098*身長-4.33*年齢+447.593
END SELECT
PRINT "基礎代謝量";カロリ;"kcal"
END
|
|