Body Mass Index

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:

BMIHasil
< 18Kurus
18-25Normal
26-27Kegemukan
> 27 Obesitas
Untuk membuat aplikasi seperti contoh, buatlah form seperti dibawah ini:


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)

Body Mass Index Rating: 4.5 Diposkan Oleh: Good Dreamer

0 comments:

Posting Komentar

Diberdayakan oleh Blogger.