Câu lệnh If Then - Viết chương trình tính chỉ số cơ thể BMI

#Xác định bài toán

Input: Chiều cao(h), cân nặng(w).

Ouput: Chỉ số cơ thể BMI.

#Ý tưởng

Đầu tiên sẽ tính BMI:=W/(h*h), nếu BMI < 18.5 là gầy, nếu 18.5 <= BMI <= 25 là mức trung bình, Nếu không xảy ra hai trường hợp trên nghĩa là BMI >= 25. 

#Chương trình

program chi_so_co_the;
uses crt;
var bmi,w,h:real;
    n: string;
const bmi1 = (18.5) ;
      bmi2 = 25;
begin
clrscr;
   write(' Moi nhap ten nguoi dung : '); readln(n);
clrscr;
   writeln(' Xin chao ',n,'! Chao mung ban den voi chuong trinh tinh BMI, moi ban nhan enter de tiep tuc ');
   write(' Moi nhap can nang (kg) : '); readln (w);
   writeln;
   write(' Moi nhap chieu cao (met): '); readln (h);
   writeln;
   bmi:=w/ (h*h);
   writeln ('Chi so co the cua ban la : ',bmi:6:2);
   if bmi < bmi1 then
      writeln('Ban rat gay');
   if (bmi2 >= bmi) and ( bmi >= bmi1) then
      writeln (' Ban rat can doi')
   else
       begin
          if bmi>bmi2  then
            writeln ('Ban rat map ');
       end;
readln;
clrscr;
    Write(' Code by khanh9 8.blogspot.com ');
readln
end.

Hãy dùng chương trình trên để kiểm tra chỉ số BMI của bạn nhé!!!