Viết trương chình kiểm tra chỉ số sức khoẻ của người dùng thông qua chỉ số BMI
Chỉ số BMI = cân nặng/(chiều cao * chiều cao)
Gia tri BMI nằm trong khoảng 18.5-24.9 thì in ra màn hình “sức khoẻ bình thường”.
Nếu không thì thông báo ra màn hình “ bạn cần điều chỉnh chế độ ăn”
Trong đó chiều cao cân nặng là các số được nhập từ bàn phím
Chỉ số BMI = cân nặng/(chiều cao * chiều cao)
Gia tri BMI nằm trong khoảng 18.5-24.9 thì in ra màn hình “sức khoẻ bình thường”.
Nếu không thì thông báo ra màn hình “ bạn cần điều chỉnh chế độ ăn”
Trong đó chiều cao cân nặng là các số được nhập từ bàn phím
Quảng cáo
1 câu trả lời 140
Program chi_so_suckhoe;
Uses crt;
Var a,b,BMI:real;
Begin
Clrscr;
Writeln('Nhap can nang:');readln(a);
Writeln('Nhap chieu cao:');readln(b);
BMI :=a/(b*b);
If BMI=18.5-24.9 then writeln('Suc khoe binh thuong')else writeln('Can dieu chinh che do an');
Readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45285 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34717 -
Đã trả lời bởi chuyên gia
30502 -
Hỏi từ APP VIETJACK27893
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22260
Gửi báo cáo thành công!
