Jawaban:

Program nilai_akhir_semester;

uses wincrt;

var

nt,np,uts,uas,nakhir:real;

nm,nim,grd,ket:string[25];

grade:char;

begin

writeln(' Nilai Akhir Semester Mahasisiwa STMIK');

writeln('================================');

write ('Nama Mahasiswa             :');readln(nm);

write ('Nim                                       :');readln(nim);

write ('masukan Nilai Tugas       :');readln(nt);

write ('masukkan Nilai Praktek   :');readln(np);

write ('masukan Nilai UTS           :');readln(uts);

write ('masukan Nilai UAS           :');readln(uas);

nakhir:=(0.20*nt)+(0.20*np)+(0.25*uts)+(0.35*uas);

if (nakhir >= 80 ) and (nakhir <= 99.99) then

grade := 'A'

else if (nakhir >= 70) and (nakhir <= 79.99) then

grade := 'B'

else if (nakhir >= 60) and (nakhir <= 69.99) then

grade := 'C'

else if (nakhir >= 50) and (nakhir <= 59.99) then

grade := 'D'

else if (nakhir >= 40) and (nakhir <= 49.99) then

grade := 'E'

else if (nakhir >= 30) and (nakhir <= 0) then

grade := 'F';

case grade of

'A' : ket := 'Lulus Sangat Memuaskan';

'B' : ket := 'Lulus Dengan Baik';

'C' : ket := 'Lulus Dengan Cukup';

'D' : ket := 'Gagal';

'E' : ket := 'Tak Berdaya';

'F' : ket := 'Terdampar';

end;

writeln;

writeln('mahasiswa yang bernama :',nm);

writeln('dengan nim :',nim);

writeln('mendapatkan nilai akhir:',nakhir:2:0);

writeln('dan gradenya adalah :',grade);

writeln('keterangan :',ket);

writeln;

readln;

donewincrt;

end.