Delphi - Penggunaan Case Of - Membuat Program Klasifikasi Usia

Rancangan form nya adalah seperti berikut :

Baris Program

Button Lihat

procedure TForm1.Button1Click(Sender: TObject);

var usia : integer;

klasifikasi : string;

begin

  usia := StrToInt(Edit1.Text);

  case usia of

    0..2 :

      klasifikasi :='Bayi';

    3..12 :

      klasifikasi :='Anak-anak';

    13..17 :

      klasifikasi :='Remaja';

    18..40 :

      klasifikasi :='Dewasa'

    else

      klasifikasi :='Manula';

   end;

   Edit2.Text := klasifikasi;

end;

end.

Share on Google Plus

About Stevanina

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.