よく分からないが適当にプログラムを書いた ID:Ef2Kbld5

1以下、名無しにかわりましてVIPがお送りします:2016/06/11(土) 23:25:33.26 ID:Ef2Kbld5

#ボディマス指数(BMI)を算出

print"体重を入力して下さい(単位:キログラム):"; $KG1 = <STDIN>;
print"身長を入力して下さい(単位:センチメートル):"; $CM1 = <STDIN>;
print"\n";

#BMI=体重/身長**2

$M1 = $CM1 / 100;
$BMI1 = $KG1 / ($M1 ** 2);
$BMI2 = sprintf("%.1f",$BMI1);

#BMIと肥満の判断基準(状態)を表示

if($BMI2 < 18.5){
$BMI3 = "低体重";
print "あなたのBMIは$BMI2で、状態は「$BMI3」です。\n";
}elsif($BMI2 < 25){
$BMI3 = "普通体重";
print "あなたのBMIは$BMI2で、状態は「$BMI3」です。\n";
}elsif($BMI2 < 30){
$BMI3 = "肥満(1度)";
print "あなたのBMIは$BMI2で、状態は「$BMI3」です。\n";
}elsif($BMI2 < 35){
$BMI3 = "肥満(2度)";
print "あなたのBMIは$BMI2で、状態は「$BMI3」です。\n";
}elsif($BMI2 < 40){
$BMI3 = "肥満(3度)";
print "あなたのBMIは$BMI2で、状態は「$BMI3」です。\n";
}elsif(40 <= $BMI2){
$BMI3 = "肥満(4度)";
print "あなたのBMIは$BMI2で、状態は「$BMI3」です。\n";
}

#標準体重を算出

$AVE1 = $M1 ** 2 * 22;
$AVE2 = sprintf("%.1f",$AVE1);
$M2 = sprintf("%.1f",$M1);

print"身長が$M2"."mの人の標準体重は$AVE2"."kgです。\n";

#標準体重との差を表示

if($KG1 < $AVE2){
$POSI1 = $AVE2 - $KG1;
$POSI2 = sprintf("%.1f",$POSI1);
print"あなたは標準体重より$POSI2"."kg少ないです。";
}elsif($KG1 == $AVE2){
$EQ1 = "差";
print"標準体重との$EQ1はありません。";
}elsif($KG1 > $AVE2){
$NEGA1 = $KG1 - $AVE2;
$NEGA2 = sprintf("%.1f",$NEGA1);
print"あなたは標準体重より$NEGA2"."kg多いです。";
}


このIDをNGリストに追加する

今後このIDの書き込みやスレッドを表示したくない場合、以下のボタンをクリックしてください。
NGリストに追加

このスレッドは過去ログです。