Script Program Konversi Suhu dengan Pascal

kali ini saya akan mempostingkan tentang Script Program Konversi Suhu dengan Pascal, langsung saja lihat codingnya di bawah ini :


Program kelulusan;
Uses crt;
var   nilai : integer;
        ket : string;
        grd : char;
        nama : string;
    NIM : integer;
BEGIN clrscr;
      textbackground(white);
      clrscr;
      textcolor(black);writeln('---------------------------------------------------------------');
      textcolor(red);writeln('                PROGRAM MENENTUKAN KELULUSAN                     ');
      textcolor(blue);writeln('            I Komang Oktarama Bagus Permatawan                 ');
      textcolor(black);writeln('---------------------------------------------------------------');

write('Nama Mahasiswa : ');readln(nama);
write('NIM : ');readln(NIM);
write('Masukkan nilai yang diperoleh ! [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;
textcolor(lightblue);writeln('                     Terimakasih      ');
textcolor(lightred);writeln('               Tekan ENTER untuk Keluar ! ');
textcolor(black);writeln('            http://oktaramabp.blogspot.com ');
readln;
end.



Dan Berikut adalah hasilnya :

Celcius

Fahrenheit

Kelvin

Reamur

Semoga bermanfaat bagi pembaca semua ;)