Script Program Kelulusan dengan Pascal

Kali ini saya akan memposting tentang Script Program Kelulusan Dengan Pascal , langsung saja lihat coding dibawah ini :


Program kelulusan;
Uses crt;
var   nilai : integer;
        ket : string;
        grd : char;
        nama : string;
    NIM : integer;
begin clrscr;
textbackground(green);
clrscr;
textcolor(black);
writeln('+------------------------------------------------------------------------------+');
writeln('|                    Program Kelulusan By: Oktarama                            |');
writeln('+------------------------------------------------------------------------------+');

write('Nama Mahasiswa : ');readln(nama);
write('NIM : ');readln(NIM);
write('Masukkan Nilai [1-100] : ');readln(nilai);
writeln;
writeln('--------------------------------------------------------------------------------');
   if nilai>=85 then
   begin
      grd:='A';
      ket:='Sangat Memuaskan';
   end
   else
   if nilai>=70 then
   begin
      grd:='B';
      ket:='Memuaskan';
   end
   else
   if nilai>60 then
   begin
      grd:='C';
      ket:='Cukup';
   end
   else
   if nilai>40 then
   begin
      grd:='D';
      ket:='Kurang';
   end
   else
   if nilai<40 then
   begin
      grd:='E';
      ket:='Sangat Kurang';
   end;
writeln('Nama Mahasiswa : ',nama);
writeln('NIM : ',NIM);
writeln('Nilai : ',nilai);
writeln('Grade : ',grd);
writeln('Keterangan : ',ket);
writeln;
gotoxy(28,30);
textcolor(red);
writeln('SELESAI !');write('TEKAN ENTER UNTUK KEMBALI !');
readkey;
end.

Berikut adalah hasilnya :

Semoga bermanfaat bagi pembaca semua ;)