Page 79 - MODUL PDKP'21
P. 79

Modul 2 – Pengondisian, Looping, Decision dan Compound                                                            2021

                            Contoh Pseudocode Compound :
                              Program compound
                              {Program memilih informasi dari daftar perlengkapan}

                              Deklarasi
                                nama,harga,ukuran:string
                                no:char

                              Deskripsi Algoritma
                              mulai
                                baca(no)
                                jika no='1' maka
                                 mulai
                                  Nama’Seragam’
                                  Harga’Rp120.000,00’
                                  Ukuran’S, M, L, Xl’
                                 selesai
                               jika no='2' maka
                                 mulai
                                  Nama’Sepatu’
                                  Harga’Rp85.000,00’
                                  Ukuran’34, 36, 37, 39’
                                 selesai
                              jika no='3' maka
                                mulai
                                 Nama’Tas’
                                 Harga’Rp150.000,00’
                                 Ukuran’Kecil, Sedang, Besar’
                                selesai
                              tulis(nama)
                              tulis(Harga)
                              tulis(Ukuran)
                              selesai


                            Contoh Sourcecode
                                                  Compound :
                             program compound;
                             uses crt;
                             var
                               nama,harga,ukuran:string;
                               no:char;
                             begin
                               writeln('Daftar Perlengkapan Koperasi OASI');
                               writeln('1. Seragam');
                               writeln('2. Sepatu');
                               writeln('3. Tas');
                               write('Masukkan nomor perlengkapan yang Anda pilih : ');readln(no);
                               if no='1' then
                               begin
                                 Nama:='Seragam';
                                 Harga:='Rp120.000,00';
                                 Ukuran:='S, M, L, Xl';
                               end;
                              if no='2' then


                  Praktikum Dasar Komputer & Pemrograman 2021                                                                                                   II-64
   74   75   76   77   78   79   80   81   82   83   84