u="BMIの数値が高ければ高いほど生活習慣病にもかかりやすいです 日本肥満学会では､男女共に22という数値が統計的に最も病気になりにくい数値といわれています" while(!0){ text("key1 BMI(肥満度)を計る",0,0,0) text("key2 体重を計る",0,20,0) text("key3 美人体重(健康的にほっそり見える",0,40,0) text("体重)を計る",0,55,0) text("key4 体脂肪率を計る",0,75,0) text("key5 体脂肪量を計る",0,95,0) if(scan==2){goto "BMI"} if(scan==4){goto "tj"} if(scan==8){goto "by"} if(scan==key4){goto "ts"} if(scan==key5){goto "tr"} if(input(0)==1){end} } label BMI a=inputdlg("体重","",3,0) b=inputdlg("身長 x.xと入力してください",".",3,0) d=b*b c=a/d e=rint(c) if(c<18.5){msgdlg("計算結果"," BMI ".c." 痩せ気味です ".u." ") end} if(c<25){msgdlg("計算結果"," BMI ".e." 平均的です ".u." ") end} if(c<30){msgdlg("計算結果"," BMI ".e." 肥満レベル１です ".u." ") end} if(c<35){msgdlg("計算結果"," BMI ".e." 肥満レベル２です ".u." ") end} if(c<40){msgdlg("計算結果"," BMI ".e." 肥満レベル３です ".u." ") end} if(c>40){msgdlg("計算結果"," BMI ".e." 肥満レベル４です ".u." ") end} label tj f=inputdlg("身長 x.xと入力してください",".",3,0) g=f*f h=g*22 i=rint(h) msgdlg("計算結果","あなたの体重は".i."kgです") end label by j=inputdlg("身長 x.xと入力してください",".",3,0) k=inputdlg("係数","",2,2) l=j*j m=l*k n=rint(m) msgdlg("計算結果","あなたの美人体重は".n."kgです 一般的な美容体重の係数は20ﾌﾟﾗｽﾏｲﾅｽ0.5ですが､ﾓﾃﾞﾙの場合はこの係数が｢17｣程度になるとか！ これにはかなり無理があり､美容体重にしても人によっては健康上適切ではないこともありますので､あくまでも目安として参考にして下さい ") end label ts o=inputdlg("体重","",3,2) p=inputdlg("体脂肪量","",5,2) q=rint(o/p*100) msgdlg("計算結果"," 体脂肪率".q."％です ■男性の適正体脂肪率の目安
･〜14.9% :やせ
･15〜19.9%:適正
･20〜24.9%:軽い肥満
･25%〜 :肥満
■女性の適正体脂肪率の目安
･〜19.9%:やせ
･20〜24.9%:適正
･25〜29.9%:軽い肥満
･30%〜 :肥満
女性の場合､17%以下になると婦人科系ﾄﾗﾌﾞﾙの原因にもなりますので要注意！ ") end label tr r=inputdlg("体重","",3,2) s=inputdlg("体脂肪率","",3,2) t=rint(r*s*0.9) msgdlg("計算結果"," 体脂肪量".t."kgです") end
