Program Menentukan Status Nilai

Postingan kali ini saya akan menuliskan Program Menentukan nilai.
Dengan menggunakan Software Programing Delphi 2010.

Dengan soal sebagai Berikut..

Implementasikan sebuah program yang menerima input Nilai berupa Angka 0 sampai dengan 100 dan outpu berupa “keterangan Hasil nilai A/B/C/D”.Dengan ketentuan sbb :

  0..15= E
  16..40=D
  41..60=C
  61..80=B
  81..100=A

 Script pada tombol 'Process'

------------------>>

procedure TForm1.Button1Click(Sender: TObject);
var nilai:integer;
begin
nilai:=StrToInt(Edit1.Text);
case nilai of
  0..15: Label3.Caption:= 'E';
  16..40: Label3.Caption:='D';
  41..60: Label3.Caption:='C';
  61..80: Label3.Caption:='B';
  81..100: Label3.Caption:='A';
end;
end;

------------------------------->>

Download Program Here..
http://www.4shared.com/file/giUgzy99/Program-Nilai.html