Program Nilai Semester Mahasiswa Pada Pascal

 Berikut ini saya akan memposting tentang  Contoh Program Nilai Semester Mahasiswa Pada Pascal yang sering menjadi bahan tugas atau latihan mahasiswa yang mepelajari pascal

Berikut adalah Sintaks-nya

Program nilai_akhir_semester_mahasiswa_UNIDAYAN;

uses wincrt;

var

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

   npm,nm,prostudi,mk,grd,ket:string[25];

   grade,smtr:char;

 

begin

writeln(' Nilai Akhir Semester Mahasisiwa UNIDAYAN  ');

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

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

write  ('NPM                    :');readln(npm);

write  ('Program Studi          :');readln(prostudi);

write  ('Semester               :');readln(smtr);

write  ('Mata Kuliah            :');readln(mk);

write  ('masukan Nilai absen    :');readln(nabs);

write  ('masukan Nilai 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 (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 := 'Terkapar';           

    'F' : ket := 'Ke laut ajah';

    end;

writeln;

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

writeln('dengan npm             :',npm);

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

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

writeln('keterangan             :',ket);

writeln;

writeln('*****Developed By: Reza Maxi*******');

readln;

donewincrt;

end.