http://mesran.blogspot.com

uses crt;
var
nabs,nt,uas,nakhir:real;
npm,nm,prostudi,mk,grd,ket:string[25];
grade,smtr:char;

begin
writeln('Nilai Akhir Semester Mahasiswa BUDIDARMA ');
writeln('=========================================');
write ('Nama Mahasiswa       :'); readln(nm);
write ('NPM                  :'); readln(npm);
write ('Program Studi        :'); readln(prostudi);
write ('Semeter              :'); readln(smtr);
write ('Mata Kuliah          :'); readln(mk);
write ('Masukan Nilai Absen  :'); readln(nabs);
write ('Masukan Nillai Tugas :'); readln(nt);
write ('Masukan Nilai UTS    :'); readln(uts);
write ('Masukan Nilai UAS    :'); readln(uas);
nakhir:=(0.15*nabs)+(0.15*nt)+(0.35*uts)+(0.4*uas);

  if (akhir >=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 := 'Tekapar';
  'F' : ket := 'Ke laut aja';
   end;


writeln;
writeln('Mahasiswa yang bernma :',nm);
writeln('Dengan npm            :',npm);
writeln('Mendapat nilai akhir  :',nakhir);
writeln('Dan gradenya adalaah  :',grade);
writeln('Keterangan            :',ket);
writeln;
writeln('*****RIZKI DERMAWAN*****');
readln;
donecrt;
end.