Page 59 - Modul Daskom 2020
P. 59

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-57
   54   55   56   57   58   59   60   61   62   63   64