Program Pascal Data Mahasiswa

Baca Juga

berhubung lagi gencar dan suka coding kali ini saya akan berbagi lagi program 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 kode sumber program. silahkan dipelajarin kode sumber program data mahasiswa dibawah ini.

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.

output dari program :

Program Pascal Data Mahasiswa

Program Pascal Data Mahasiswa

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

Download Program Pascal Data Mahasiswa via ziddu

Ok, pada program ini mengunakan penyeleksian kondisi if..then..else yang sebenarnya dapat juga diganti dengan penyeleksian kondisi case..of tergantung dari kesukaan sobat, perulangan program dapat terjadi selama nilai input yang dimasukkan bukan T jadi jika kita memasukkan input berapapun kecuali bukan T maka program akan terus mengulang hal ini sesuai dengan kondisi yang dipasang dalam program dan input T (besar) ataupun t (kecil) tidak menjadi masalah karena adanya perintah upcase yang mengubah nilai input yang dimasukkan menjadi huruf besar. thankss for reading...

Subscribe to receive free email updates: