Skrip program nilai akhir pada pascal

Berikut adalah skrip program menghitung penilaian mahasiswa pada pascal. Pada program ini memerlukan 2 proses yaitu yang pertama dengan penggunaan IF... Than... Else dan yang kedua menggunakan perintah Case .... of. Dimana penggunaan IF itu untuk mengonversikan nilai mahasiswa menjadi grade yg didapatkan kemudian diteruskan dengan penggunaan Case ... of untuk menampilkan keterangan grade yg di dapat mahasiswa.
Langsung saja di bawah ini contoh skripnya :


program nilaiakhir;
uses crt;
var
 npm,nm,fak,kls,prodi,mk,ket : string;
 grade, smt : char;
 nilaitgs,nilaiuts,nilaiuas,na : real;
begin
 clrscr;
 writeln('-------------------------------------');
 writeln('Nilai Akhir Semester Mahasiswa Uniska');
 writeln('-------------------------------------');
 write('NPM : ');
 readln(npm);
 write('Nama Mahasiswa : ');
 readln(nm);
 write('Fakultas : ');
 readln(fak);
 write('Program Studi : ');
 readln(prodi);
 write('Semester : ');
 readln(smt);
 write('Kelas : ');
 readln(kls);
 write('Mata Kuliah : ');
 readln(mk);
 write('Nilai Tugas : ');
 readln(nilaitgs);
 write('Nilai UTS : ');
 readln(nilaiuts);
 write('Nilai UAS : ');
 readln(nilaiuas);
 na:=(nilaitgs+nilaiuts+nilaiuas)/3;
 if ((na >= 80) and (na <=100)) then
 grade:='A'
 else if ((na >=70) and (na <=80)) then
 grade:='B'
 else if ((na >=55) and (na <=70)) then
 grade:='C'
 else if ((na >=40) and (na <=55)) then
 grade:='D'
 else
 grade:='E';
 case grade of
 'A':ket:='Lulus Sangat Memuaskan';
 'B':ket:='Lulus Dengan Baik';
 'C':ket:='Lulus Dengan Cukup';
 'D':ket:='Tidak Lulus';
 'E':ket:='Gagal!! Ke Laut Ajah..';
 end;
 writeln;
 writeln('---------------------------------------');
 writeln('Hasil Akhir Semester Mahasiswa');
 writeln('---------------------------------------');
 writeln('Mahasiswa yang bernama : ',nm);
 writeln('Dengan NPM : ',npm);
 writeln('Mendapatkan Nilai Akhir: ',na:0:0);
 writeln('Dan Gradenya Adalah : ',grade);
 writeln('Keterangan : ',ket);
 writeln('---------------------------------------');
 readkey;
end.

Silahkan coba dipascal sendiri yaa..
Semoga bermanfaat. Happy coding^_^