Categories: Program Pascal

Program Pascal Data Mahasiswa

berhubung lagi gencar dan suka coding kali ini aku akan membuatkan lagi kegiatan input data mahasiswa yang cukup sederhana namun ditambah sedikit variasi dengan perintah perulangan while..do dengan penyeleksian kondisi sehingga perulangan hanya akan terjadi sesuai dengan kondisi yang terpasang pada arahan sumber program. silahkan dipelajarin arahan sumber kegiatan data mahasiswa dibawah ini.

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 :

Jika anda pribadi ingin mencoba kegiatan ini aku menyertakan file kegiatan yang sudah dikompilasi dan tentu saja akan running di sistem operasi windows. silahkan di download file kegiatan ini via ziddu.

Download Program Pascal Data Mahasiswa via ziddu

Ok, pada kegiatan ini mengunakan penyeleksian kondisi if..then..else yang tolong-menolong sanggup juga diganti dengan penyeleksian kondisi case..of tergantung dari kesukaan sobat, perulangan kegiatan sanggup terjadi selama nilai input yang dimasukkan bukan T jadi kalau kita memasukkan input berapapun kecuali bukan T maka kegiatan akan terus mengulang hal ini sesuai dengan kondisi yang dipasang dalam kegiatan dan input T (besar) ataupun t (kecil) tidak menjadi problem alasannya adanya perintah upcase yang mengubah nilai input yang dimasukkan menjadi karakter besar. thankss for reading…

Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like Fan Page kami, dan SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.

Ahmad Code