Tính chỉ số khối cơ thể BMI (Body Mass Index) theo công thức: BMI H 2 , trong đó W là cân nặng của một người (tính bằng kg) và H là chiều cao người đó (tính bằng mét ). Theo công thức này người ta biết được tình trạng sức khỏe nếu BMI<18.5 là người gầy, ốm; 18.5<=BMI<25 là người bình thường; BMI>=25 là người mập, béo. Hãy viết chương trình tính và xuất ra màn hình chỉ số BMI. ►Xác định bài toán Input: …………………………………………………………………………… Output:………………………………………………………………………….. ►Viết chương trình bằng NNLT Pascal Uses crt; Var ………………………………….; Begin Clrscr; Write(‘Nhap ..….: ’); Readln(…); ……………………………………………………. ……………………………………………………… Readln; End.
1 câu trả lời
* Chú ý :
+ nếu công thức tính BMI = $\frac{W}{H^2}$ thì BMI := w/(h*h)
+ nếu công thức tính BMI = $\frac{W}{H.2}$ thì BMI := w/(2*h)
=> Bạn xem đề thay vào chỗ mình in đậm nha
* Xác định bài toán :
Input : w ( cân nặng ), h (chiều cao )
Output : chỉ số BMI
* Viết chương trình :
uses crt;
var w, h, bmi : real;
begin
clrscr;
write('nhap chieu cao cua co the (met) :');readln(h);
write('nhap can nang cua co the (kg) :');readln(w);
bmi := w/(2*h);
writeln('chi so BMI la :', bmi:8:2);
if bmi < 18.5 then writeln('la nguoi gay om');
if (bmi >=18.5) and (bmi < 25) then writeln('la nguoi binh thuong');
if (bmi >= 25) then writeln('la nguoi map beo');
readln;
end.