Page 77 - Modul PDKP 20
P. 77

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 nomor='2' maka
                              mulai
                               Nama’Venom II’
                               Harga’Rp. 35.000,00’
                               Jadwal’12.30, 17.30, 19.20’
                              selesai
                           jika nomor='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 nomor='1' then
                             begin
                               Nama:='Black Widow';
                               Harga:='Rp. 35.000,00';
                               Jadwal:='11.30, 16.30, 19.20';
                             end;
                            if  nomor='2' then
                             begin
                                Nama:='Venom II';
                               Harga:='Rp. 35.000,00';
                               Jadwal:='12.30, 17.30, 19.20';
                             end;
                           if  nomor='3' then
                           begin
                               Nama:='The Eternal';
                               Harga:='Rp. 35.000,00';


                  Praktikum Dasar Komputer & Pemrograman 2020                                                                         II-60
   72   73   74   75   76   77   78   79   80   81   82