Page 61 - MODUL DASKOM 2020
P. 61

Modul 2 – Pengkondisian, Looping, Decision dan Compound                               2020

                           Contoh Pseudocode Compound :
                           Program compound
                           {Program jadwal tayangan Film XXI}

                           Deklarasi
                             nama,harga,jadwal:string
                             no:char

                           Deskripsi Algoritma
                           mulai
                             baca(no)
                             jika no='1' maka
                              mulai
                               Nama’Black Widow’
                               Harga’Rp. 35.000,00’
                               Jadwal’11.30, 16.30, 19.20’
                              selesai
                            jika no='2' maka
                              mulai
                               Nama’Venom II’
                               Harga’Rp. 35.000,00’
                               Jadwal’12.30, 17.30, 19.20’
                              selesai
                           jika no='3' maka
                             mulai
                              Nama’The Eternal’
                              Harga’Rp. 35.000,00’
                              Jadwal’13.30, 20.30, 21.20’
                             selesai
                           tulis(nama)
                           tulis(Harga)
                           tulis(Jadwal)
                           selesai

                         Contoh Source Code Compound :
                           program  compound;
                           uses  crt;
                           var
                             nama,Harga,Jadwal:string;
                             no:char;
                           begin
                             writeln('Jadwal Tayangan Film XXI 23 September 2020');
                             writeln('1. Black Widow');
                             writeln('2. Venom II');
                             writeln('3. The Eternal');
                             write('Masukkan nomor pilihan film yang anda pilih : ');readln(no);
                             if no='1' then
                             begin
                               Nama:='Black Widow';
                               Harga:='Rp. 35.000,00';
                               Jadwal:='11.30, 16.30, 19.20';
                             end;
                            if  no='2' then
                             begin
                                Nama:='Venom II';
                               Harga:='Rp. 35.000,00';
                               Jadwal:='12.30, 17.30, 19.20';
                             end;
                           if  no='3' then
                           begin
                               Nama:='The Eternal';
                               Harga:='Rp. 35.000,00';
                               Jadwal:='13.30, 20.30, 21.20';


                  Praktikum Dasar Komputer & Pemrograman 2020                                           II-59
   56   57   58   59   60   61   62   63   64   65   66