Mencari Nilai Kelulusan (Pascal)

"Udah lama banget ga buka-buka pascal. Program algoritma pertama waktu di kampus yang bikin pusing tujuh keliling. Yah, namanya juga pemrograman pasti ada hitung-hitungannya, pastinya. Oh ya, tadi pagi adik kelas minta ajarin cara mencari nilai kelulusan dengan turbo PASCAL. hemmm,..kayaknya masih nyimpen deh programnya. Waduh ternyata harus di modifikasi dulu nih.

"Contoh soalnya kayak begini nih,..
Buat program untuk menentukan kelulusan mata kuliah algoritma pemrograman. Kelulusan di hitung dari nilai ujian tengah semester (UTS) dan ujian Akhir semester (UAS). Nilai kelulusan di lihat dari rata-rata dengan ketentuan sbb ;

rata-rata 0 s/d 49 dapat nilai E
rata-rata 50 s/d 59 dapat nilai D
rata-rata 60 s/d 69 dapat nilai C
rata-rata 70 s/d 79 dapat nilai B
rata-rata 80 s/d 100 dapat nilai A

JAWAB :
program KELULUSAN_ALGORITMA;
uses wincrt;
var
UTS,UAS,Hasil: real;
NILAI:CHAR;
begin
clrscr;
writeln ('NILAI KELULUSAN MATA KULIAH ALGORITMA');
write('masukan nilai UTS = ');
readln(UTS);
write('masukan nilai UAS = ');
readln(UAS);
Hasil := (UTS + UAS) / 2;
writeln('Hasil             = ',Hasil:0:0);
IF Hasil >=80 then
NILAI :='A'
else
IF Hasil>=70 then
NILAI:='B'
ELSE
if Hasil>=60 then
NILAI:='C'
else
if Hasil>=50 then
NILAI:='D'
else
NILAI:='E';
writeln('NILAI             = ',NILAI);
readln
end.

Nch, coba di running (Ctrl+F9),...gampang kahn,..hehhehehe sok atuh di coba,...

Tweet