Body Mass Index (BMI) adalah suatu cara untuk mengetahui apakah orang tersebut mempunyai berat badan ideal. BMI didapat dengan membagi berat badan dalam kg dengan tinggi kali tinggi.
BMI = Berat Badan / (TinggiBadan * TinggiBadan)
Hasil BMI tersebut kemudian digolong-golongkan sebagai berikut:
untuk Pria:
BMI | Hasil |
---|---|
< 17 | Kurus |
17-22 | Normal |
23-27 | Kegemukan |
> 27 | Obesitas |
untuk Wanita:
BMI | Hasil |
---|---|
< 18 | Kurus |
18-25 | Normal |
26-27 | Kegemukan |
> 27 | Obesitas |
Pengguna akan mengisi tinggi badan dan berat badan di TEdit edtTinggi dan edtBeratBadan serta memilih jenis kelamin di TRadioButton.
Aplikasi mulai menghitung setelah pengguna menekan tombol "Kerjakan" yang berisi kode program berikut:
procedure TForm1.Button1Click(Sender: TObject);
var
bb, tinggi, BMI : single;
hasil : string;
begin
tinggi:= StrToFloat(edtTinggi.Text) / 100;
bb := StrToFloat(edtBeratBadan.Text);
BMI := bb / ( tinggi * tinggi) ;
if rbPria.Checked then
begin
if BMI < 17 then
hasil := 'Kurus'
else
if (BMI >= 17) and (BMI < 23) then
hasil := 'Normal'
else
if (BMI >= 23) and (BMI <= 27) then
hasil := 'Kegemukan'
else
if BMI > 27 then
hasil := 'Obesitas';
end
else
begin
if BMI < 18 then
hasil := 'Kurus'
else
if (BMI >= 18) and (BMI < 25) then
hasil := 'Normal'
else
if (BMI >= 25) and (BMI <= 27) then
hasil := 'Kegemukan'
else
if BMI > 27 then
hasil := 'Obesitas';
end;
ShowMessage(
'BMI anda = ' + FormatFloat('#,##0.00;;0',BMI) + #13#10 +
'Anda ' + hasil
);
end;
Kode Selengkapnya:
Unduh Kode Program (Delphi 7)
0 comments:
Posting Komentar