Program mengonversi angka menjadi mata kuliah

Berikut merupakan Program untuk mengonversi angka menjadi mata kuliah menggunakan bahasa Pascal dengan menggunakan statement CASE OF.

•  SOURCE CODE

Program mengonversi_angka_menjadi_mata_kuliah;
uses crt;
var
   pilih : integer;
begin
clrscr;
     write('Masukkan nomor mata kuliah : ');
     readln(pilih);
     case pilih of
         1:writeln('Pascal');
         2:writeln('Struktur Data');
         3:writeln('Pemograman Visual');
         4:writeln('RPL');
         5:writeln('Jaringan Komputer');
      end;
readkey;
end.

• PENJELASAN SOURCE CODE

Program mengonversi_angka_menjadi_mata_kuliah;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   pilih : integer;    {Inisiasi program}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Masukkan nomor mata kuliah : ');     {Cetak Masukkan nomor mata kuliah}
     readln(pilih);     {Baca variabel pilih}
     case pilih of     {Jika kasus input ? = pilih maka akan}
         1:writeln('Pascal');     {pilih = 1 Cetak Pascal}
         2:writeln('Struktur Data');      {pilih = 2 Cetak Struktur Data}
         3:writeln('Pemograman Visual');     {pilih = 3 Cetak Pemograman Visual}
         4:writeln('RPL');     {pilih = 4 Cetak RPL}
         5:writeln('Jaringan Komputer');     {pilih = 5 Cetak Jaringan Komputer}
     end;     {Akhir instruksi kondisi}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program           : Mengonversi angka menjadi mata kuliah
• Source Code .pdf      : .:_Download_:.
• Flowchart .png         : .:_Download_:.
• Program .pas            : .:_Download_:.
• Password                  : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file di atas klik Disini, untuk mempelajarinya.