Program Pascal Data Mahasiswa

kegiatan 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.

output dari kegiatan :

Program Pascal Data Mahasiswa

Program Pascal Data Mahasiswa