BMI計算プログラム(BASIC)

ＢＭＩ計算プログラム（BASIC）

#struct code
'BMI Calculate Program by Mitsuru Sugaya
*hensu
        weight=0 : height=0 : bmi=0 : good_weight=0 : diet=0 : dim a(3)
*start
        cls 3
        txt$="ＢＭＩ計算プログラム"
        TextOut 200,20,txt$,2,6,20,20,"ＭＳ 明朝",AllSet,ShiftJIS

cls
locate 1,7
color 6
print "■ＢＭＩとは？"
print
color 7
print "　ＢＭＩは、身長と体重の関係を次の計算式で求めた数値で「ボディマス指数」とも呼ばれています。"
color 5
print
print "　　　　　ＢＭＩ＝体重(kg)÷身長(m)÷身長(m)　（体重÷身長の２乗）"
color 7
print
print "　疫学調査の結果、ＢＭＩが２２のときに、病気になる確率がもっとも低くなることが判明しています。"
print "　ＢＭＩが２２の理想的な体重は、次の計算式で求められます。"
color 5
print
print "　　　　　標準体重＝身長(m)×身長(m)×22　（身長の２乗×22）"
color 7
print
print "　これからあなたのＢＭＩを計算します。好きなキーを押してください。"

*inkey_0
        a$=inkey$ : if a$="" then goto *inkey_0
*open_file
        open "data.dat" for input as #1
        for i=1 to 2
*input_file
        if eof(1) then goto *close_file
        line input #1, a
        a(i)=a
        next i
*close_file
        close
*height_chk
        cls
        locate 3,7
        print : print "　■あなたのＢＭＩを計算します。"
        print : print "　■あなたの身長は ";a(1);" mでよろしいですか？ (Yes=Enter or Y, No=N)"
*inkey_1
        a$=inkey$ : if a$="" then goto *inkey_1
        if a$=chr$(13) then height=a(1) : goto *weight_chk
        if a$="y" then height=a(1) : goto *weight_chk
        if a$="Y" then height=a(1) : goto *weight_chk
        if a$="n" then goto *height_in
        if a$="N" then goto *height_in
goto *inkey_1
*height_in
        print : print "　■あなたの身長をメートルで入れてください（例：1.71）......";
        input a
        if a>2.5 then cls : goto *height_in
        if a<1 then cls : goto *height_in
        height=a
*weight_chk
        cls
        locate 3,7
        print : print "　■あなたの体重は ";a(2);" kgでよろしいですか？ (Yes=Enter or Y, No=N)"
*inkey_2
        a$=inkey$ : if a$="" then goto *inkey_2
        if a$=chr$(13) then weight=a(2) : goto *cal_1
        if a$="y" then weight=a(2) : goto *cal_1
        if a$="Y" then weight=a(2) : goto *cal_1
        if a$="n" then goto *weight_in
        if a$="N" then goto *weight_in
goto *inkey_2
*weight_in
        print : print "　■あなたの体重をkgで入れてください（例：60.70）......";
        input a
        if a>200 then goto *weight_in
        if a<20 then goto *weight_in
        weight=a
*cal_1
        bmi=weight/height/height
        himando$="肥満度は適正範囲です。"
        notice$="この体重を維持してください。"
        
        if bmi<19 then himando$="肥満度=痩せすぎです(BMI=19以下)／"
        if bmi>25 then himando$="肥満度=Ⅰ(BMI=25～29.9)／"
        if bmi>30 then himando$="肥満度=Ⅱ(BMI=30～34.9)／"
        if bmi>35 then himando$="肥満度=Ⅲ(BMI=35～39.9）／"
        if bmi>40 then himando$="肥満度=Ⅳ(BMI=40以上)／"
        if bmi<19 then notice$="もう少し太りましょう！"
        if bmi>25 then notice$="高血圧、高中性脂肪血症に注意！"
        if bmi>27 then notice$="糖尿病に注意！"
        if bmi>29 then notice$="高コレステロール血症に注意！"
        good_weight=height*height*22
        diet=weight-good_weight
        if diet>=0 then b$="-"
        if diet<0 then b$="+"
        diet=abs(diet)

*result

cls
locate 3,7
print
print "　■あなたのＢＭＩ　 ＝ "; : print using "##.##";bmi
print
color 6
print "　　　　　　";himando$;notice$
print
color 7
print "　■あなたの理想体重 ＝ "; : print using "##.##";good_weight; : print " kg"
print
print "　■理想の体重まで　　";b$; : print using "##.##";diet; : print " kg"
print : print
*fin1
locate 10,20
print "もういちど計算しますか？　 (Yes=Enter or Y, No=N)"

*inkey_3
        a$=inkey$ : if a$="" then goto *inkey_3
        if a$=chr$(13) then goto *height_chk
        if a$="y" then goto *height_chk
        if a$="Y" then goto *height_chk
        if a$="n" then goto *fin2
        if a$="N" then goto *fin2
        goto *inkey_3
*fin2
        a(1)=height : a(2)=weight
        open "data.dat" for output as #1
        for i=1 to 2
        print #1, a(i)
        next i
        close
        cls
        locate 35,10
        print "お疲れさまでした。"
        end

ソフトのページへ戻る
トップページへ戻る