Page 75 - Modul PDKP 20
P. 75

Modul 2 – Pengkondisian, Looping, Decision dan Compound                               2020

                             Contoh Pseudocode Case Of Else :
                              Program case_of_else
                              {Program untuk memilih tayangan di XXI}

                              Deklarasi
                              movie:string

                              Deskripsi Algoritma
                              Mulai
                               Baca(movie)
                                kasus movie dari
                                '1':tulis('”Kursi Tersedia'”)
                                '2':tulis(“Kursi Tersedia”')
                                '3':tulis(“Kursi sudah Penuh”)
                              lainnya tulis('Tayangan lainnya tidak tersedia’)
                                Selesai
                              Selesai.

                             Contoh Source code Case Of Else :
                              Program  case_of_else;
                              var
                                movie:string;
                              begin
                                writeln('Daftar tayangan Film XXI September 2020');
                                writeln('1. Black Widow');
                                writeln('2. Venom II');
                                writeln('3. The Eternal');
                                Write('Pilihlah tayangan yang anda inginkan : ');readln(movie);
                                case movie of
                                '1':writeln('Kursi Tersedia');
                                '2':writeln('Kursi Tersedia');
                                '3':writeln('Kursi sudah penuh');
                              else  writeln(Tayangan lainnya Tidak Tersedia’);
                                end;
                                readln;
                              end.
























                  Praktikum Dasar Komputer & Pemrograman 2020                                                                         II-58
   70   71   72   73   74   75   76   77   78   79   80