Program Menampilkan Mata Kuliah di Turbo Pascal

Bonvisa Satu Hati



PilihJurusan : SI (SistemInformatikan) dan TI (TeknikInformatika)
PilihHari : rabu/kamis/jumat (selaindaripadaitujurusantidakada)
MK SI/TIharirabu/kamis/jumatadalah :
1. LogikaAlgoritma
2. BahasaPemograman (ataumatkulbisaAndatentukansendiri)

Maka Program Menampilkan Mata Kuliah di Turbo Pascal adalah :
Program Menampilkan_Mata_Kuliah;
uses crt;
var
jurusan, hari : string;
begin
     clrscr;
     write('PilihJurusan = ');readln(jurusan);
     write('PilihHari = ');readln(hari);
     writeln('MK ' , jurusan , ' hari ' , hari , ' adalah = ');
     IF(jurusan = 'TI') and (hari = 'rabu') then
   begin
     writeln('1. Bhs. Pemrograman');
     writeln('2. Bhs. Inggris');
   end
else
     IF(jurusan = 'SI') and (hari = 'rabu') then
   begin
     {writeln('MK ', jurusan, ' hari ', hari, ' adalah = ');}
     writeln('1. Penjas');
     writeln('2. Bahasa Indonesia');
   end
else
     IF(jurusan = 'TI') and (hari = 'kamis') then
   begin
    { writeln('MK ', jurusan, ' hari ', hari, ' adalah = '); }
     writeln('1. ManajemenUmum');
     writeln('2. PengantarElektronika');
   end
else
     IF(jurusan = 'SI') and (hari = 'kamis') then
   begin
    { writeln('MK ', jurusan, ' hari ', hari, ' adalah = '); }
     writeln('1. Kimia');
     writeln('2. Matematika');
   end
else
     IF(jurusan = 'TI') and (hari = 'jumat') then
   begin
    { writeln('MK ', jurusan, ' hari ', hari, ' adalah = ');  }
     writeln('1. LogikaAlgoritma');
     writeln('2. FisikaDasar');
   end
else
     IF(jurusan = 'SI') and (hari = 'jumat') then
   begin
    { writeln('MK ', jurusan, ' hari ', hari, ' adalah = '); }
     writeln('1. Metematika');
     writeln('2. Aljabar Linear');
   end
else
     writeln('JurusandanHari Yang AndaInputkan Salah');
readkey;
end.
Makakeluaran Program Menampilkan Mata Kuliah di Turbo Pascal adalah :
PilihJurusan : SI
PilihHari : rabu
MK SI hari rabu adalah :
1. LogikaAlgoritma
2. BahasaPemograman (ataumatkulbisaAndatentukansendiri)
 

0 comments "Program Menampilkan Mata Kuliah di Turbo Pascal", Baca atau Masukkan Komentar

Post a Comment