#!/usr/bin/perl
# your code goes here
#ボディマス指数(BMI)を算出
print"体重を入力して下さい(単位:キログラム):"; $KG1 = <STDIN>; print"身長を入力して下さい(単位:センチメートル):"; $CM1 = <STDIN>;
#BMI=体重/身長**2
$M1 = $CM1 / 100;
$BMI1 = $KG1 / ($M1 ** 2);
#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;
print"身長が$M2"."mの人の標準体重は$AVE2"."kgです。\n";
#標準体重との差を表示
if($KG1 < $AVE2){
$POSI1 = $AVE2 - $KG1;
print"あなたは標準体重より$POSI2"."kg少ないです。"; }elsif($KG1 == $AVE2){
$EQ1 = "差";
print"標準体重との$EQ1はありません。"; }elsif($KG1 > $AVE2){
$NEGA1 = $KG1 - $AVE2;
print"あなたは標準体重より$NEGA2"."kg多いです。"; }
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKI+ODnOODh+OCo+ODnuOCueaMh+aVsChCTUkp44KS566X5Ye6CgpwcmludCLkvZPph43jgpLlhaXlipvjgZfjgabkuIvjgZXjgYQo5Y2Y5L2N77ya44Kt44Ot44Kw44Op44OgKe+8miI7ICRLRzEgPSA8U1RESU4+OwpwcmludCLouqvplbfjgpLlhaXlipvjgZfjgabkuIvjgZXjgYQo5Y2Y5L2N77ya44K744Oz44OB44Oh44O844OI44OrKe+8miI7ICRDTTEgPSA8U1RESU4+OwpwcmludCJcbiI7CgojQk1JPeS9k+mHjS/ouqvplbcqKjIKCiRNMSA9ICRDTTEgLyAxMDA7CiRCTUkxID0gJEtHMSAvICgkTTEgKiogMik7CiRCTUkyID0gc3ByaW50ZigiJS4xZiIsJEJNSTEpOwoKI0JNSeOBqOiCpea6gOOBruWIpOaWreWfuua6lijnirbmhYsp44KS6KGo56S6CgppZigkQk1JMiA8IDE4LjUpewokQk1JMyA9ICLkvY7kvZPph40iOwpwcmludCAi44GC44Gq44Gf44GuQk1J44GvJEJNSTLjgafjgIHnirbmhYvjga/jgIwkQk1JM+OAjeOBp+OBmeOAglxuIjsKfWVsc2lmKCRCTUkyIDwgMjUpewokQk1JMyA9ICLmma7pgJrkvZPph40iOwpwcmludCAi44GC44Gq44Gf44GuQk1J44GvJEJNSTLjgafjgIHnirbmhYvjga/jgIwkQk1JM+OAjeOBp+OBmeOAglxuIjsKfWVsc2lmKCRCTUkyIDwgMzApewokQk1JMyA9ICLogqXmuoAoMeW6pikiOwpwcmludCAi44GC44Gq44Gf44GuQk1J44GvJEJNSTLjgafjgIHnirbmhYvjga/jgIwkQk1JM+OAjeOBp+OBmeOAglxuIjsKfWVsc2lmKCRCTUkyIDwgMzUpewokQk1JMyA9ICLogqXmuoAoMuW6pikiOwpwcmludCAi44GC44Gq44Gf44GuQk1J44GvJEJNSTLjgafjgIHnirbmhYvjga/jgIwkQk1JM+OAjeOBp+OBmeOAglxuIjsKfWVsc2lmKCRCTUkyIDwgNDApewokQk1JMyA9ICLogqXmuoAoM+W6pikiOwpwcmludCAi44GC44Gq44Gf44GuQk1J44GvJEJNSTLjgafjgIHnirbmhYvjga/jgIwkQk1JM+OAjeOBp+OBmeOAglxuIjsKfWVsc2lmKDQwIDw9ICRCTUkyKXsKJEJNSTMgPSAi6IKl5rqAKDTluqYpIjsKcHJpbnQgIuOBguOBquOBn+OBrkJNSeOBryRCTUky44Gn44CB54q25oWL44Gv44CMJEJNSTPjgI3jgafjgZnjgIJcbiI7Cn0KCiPmqJnmupbkvZPph43jgpLnrpflh7oKCiRBVkUxID0gJE0xICoqIDIgKiAyMjsKJEFWRTIgPSBzcHJpbnRmKCIlLjFmIiwkQVZFMSk7CiRNMiA9IHNwcmludGYoIiUuMWYiLCRNMSk7CgpwcmludCLouqvplbfjgYwkTTIiLiJt44Gu5Lq644Gu5qiZ5rqW5L2T6YeN44GvJEFWRTIiLiJrZ+OBp+OBmeOAglxuIjsKCiPmqJnmupbkvZPph43jgajjga7lt67jgpLooajnpLoKCmlmKCRLRzEgPCAkQVZFMil7CiRQT1NJMSA9ICRBVkUyIC0gJEtHMTsKJFBPU0kyID0gc3ByaW50ZigiJS4xZiIsJFBPU0kxKTsKcHJpbnQi44GC44Gq44Gf44Gv5qiZ5rqW5L2T6YeN44KI44KKJFBPU0kyIi4ia2flsJHjgarjgYTjgafjgZnjgIIiOwp9ZWxzaWYoJEtHMSA9PSAkQVZFMil7CiRFUTEgPSAi5beuIjsKcHJpbnQi5qiZ5rqW5L2T6YeN44Go44GuJEVRMeOBr+OBguOCiuOBvuOBm+OCk+OAgiI7Cn1lbHNpZigkS0cxID4gJEFWRTIpewokTkVHQTEgPSAkS0cxIC0gJEFWRTI7CiRORUdBMiA9IHNwcmludGYoIiUuMWYiLCRORUdBMSk7CnByaW50IuOBguOBquOBn+OBr+aomea6luS9k+mHjeOCiOOCiiRORUdBMiIuImtn5aSa44GE44Gn44GZ44CCIjsKfQ==