menghitung nilai akhir

Di bawah adalah suatu alat hitung yang di rancang dengan menggunakan program Delphi7. Aplikasi ini di gunakan untuk menghitung nilai akhir yang  berupa nilai angka dan nilai huruf. Nilai yang dimasukkan adalah nilai dengan konversi maksimum nilai adalah 100. Aplikasi ini bisa di gunakan untuk para dosen menghitung nilai seseorang secara manual selauin menggunakan excel.

Aplikasi ini dapat di download gratis di http://salimhimafi.blogspot.com

 DOWNLOAD GRATIS DISINI

var NA,A,B,C,D,E:real;

NH:string;

begin

A:=strtofloat(edit1.Text);

B:=strtofloat(edit2.Text);

C:=strtofloat(edit3.Text);

D:=strtofloat(edit4.Text);

E:=strtofloat(edit5.Text);

NA:=0.1*A+0.15*B+0.25*C+0.25*D+0.25*E;

edit6.Text:=floattostr(NA);

begin

if NA>=80 then NH:='A'

else

if NA>=70 then NH:='B'

else

if NA>=56 then NH:='C'

else

if NA>=46 then NH:='D'

else

NH:='E';

end;

label7.caption:='Nilai angka anda adalah:';

label8.caption:='Nilai Huruf Anda adalah:';

edit7.Text:=NH;

edit6.SetFocus;

Share this history on :

Share

0

0digg