Data Mahasiswa Pada Pascal

     Hi.... Bro and sis kali ini ane akan memposting tentang pascal lagi karena ane mulai tertarik dangan bahasa pemograman ini yang sangat unik dan sekaligus menantang ketelitian dan juga logika para orang yang membuat programnya. Hari ini tidak jauh dari yang ane posting sebelumnya yaitu tentang data mehasiswa OK berikut sintaks-nya

program data_mahasiswa;

uses crt;

var

   nama, nim : string;

   nilai,jurusan : integer ;

   ulang : char;

begin

   while upcase(ulang) <> 'T' do

   begin

   clrscr;

   writeln(' - - - - - - - - - - - - - - ');

   writeln('    Program Data Mahasiswa   ');

   writeln(' - - - - - - - - - - - - - - ');

   writeln;

   write('Masukkan Nama Mahasiswa : ');

   readln(nama);

   writeln;

   write('Masukkan NIM Mahasiswa : ');

   readln(nim);

   Writeln;

   writeln('Pilihan Jurusan Yang Tersedia : ');

   writeln('1. Teknik Sipil ');

   writeln('2. Teknik Elektro ');

   writeln('3. Teknik Arsitektur ');

   writeln('4. Teknik Mesin ');

   writeln('5. Teknik Perencanaan Wilayah & Kota ');

   writeln('6. Teknik Informatika ');

   writeln;

   write('Masukkan Nomor Jurusan Mahasiswa : ');

   readln(jurusan);

   writeln;

   writeln('Rentang Nilai : ');

   writeln('80 - 100 = A ');

   writeln('60 - 79  = B ');

   writeln('40 - 59  = C ');

   writeln('20 - 39  = D ');

   writeln('0  - 19  = E ');

   writeln;

   write('Masukkan Nilai Akhir Mahasiswa : ');

   readln(nilai);

   writeln;

   writeln;

   writeln('Data-Data Mahasiswa Yang Anda Telah Input Adalah ');

   writeln;

   writeln;

   writeln('Nama Mahasiswa Adalah ',nama);

   writeln;

   writeln('NIM Mahasiswa Adalah ',nim);

   writeln;

   case jurusan of

   1 : begin writeln('Jurusan Mahasiswa Adalah Teknik Sipil ') end;

   2 : begin writeln('Jurusan Mahasiswa Adalah Teknik Elektro '); end;

   3 : begin writeln('Jurusan Mahasiswa Adalah Teknik Arsitektur '); end;

   4 : begin writeln('Jurusan Mahasiswa Adalah Teknik Mesin '); end;

   5 : begin writeln('Jurusan Mahasiswa Adalah Teknik Perencanaan Wilayah Dan Kota '); end;

   6 : begin writeln('Jurusan Mahasiswa Adalah Teknik Informatika'); end;

   end;

   writeln;

   if nilai <=19 then writeln('Nilai Anda ',nilai,' Sama Dengan E ')

   else if nilai <=39 then writeln('Nilai Anda ',nilai, ' Sama Dengan D ')

   else if nilai <=59 then writeln('Nilai Anda ',nilai, ' Sama Dengan C ')

   else if nilai <=79 then writeln('Nilai Anda ',nilai, ' Sama Dengan B ')

   else if nilai <=100 then writeln('Nilai Anda ',nilai, ' Sama Dengan A ')

   else writeln('Anda Salah Memasukkan Nilai Mahasiswa ');

   writeln;

   writeln;

   writeln('Tekan Y untuk Mengiput Data Lagi & T untuk Keluar Dari Program ');

   write('Masukkan Y/T : ');

   readln(ulang);

   end;

end.