Program Menampilkan Mata Kuliah di Turbo Pascal

Tweet

Program Menampilkan Mata Kuliah di Turbo Pascal - Berikut adalah program dengan data sebagai berikut :

Pilih Jurusan : SI (Sistem Informatikan) dan TI (Teknik Informatika)
Pilih Hari : rabu/kamis/jumat (selain dari pada itu jurusan tidak ada)
MK SI/TI hari rabu/kamis/jumat adalah :
1. Logika Algoritma
2. Bahasa Pemograman (atau matkul bisa Anda tentukan sendiri)

Maka Program Menampilkan Mata Kuliah di Turbo Pascal adalah :

Program Menampilkan_Mata_Kuliah;
uses crt;
var
jurusan, hari : string;
begin
     clrscr;
     write('Pilih Jurusan = ');readln(jurusan);
     write('Pilih Hari = ');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. Manajemen Umum');
     writeln('2. Pengantar Elektronika');
   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. Logika Algoritma');
     writeln('2. Fisika Dasar');
   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('Jurusan dan Hari Yang Anda Inputkan Salah');
readkey;
end.

Maka keluaran Program Menampilkan Mata Kuliah di Turbo Pascal adalah :

Pilih Jurusan : SI
Pilih Hari : rabu
MK SI hari rabu adalah :
1. Logika Algoritma
2. Bahasa Pemograman (atau matkul bisa Anda tentukan sendiri)

Maka, demikianlah artikel Program Menampilkan Mata Kuliah di Turbo Pascal semoga dapat membantu Anda untuk lebih paham. Terima kasih telah membaca artikel diatas.