Page 40 - MODUL DASKOM 2020
P. 40

Modul 1 – Pemrograman, Algoritma dan Pascal                                                                             2020


                                                    Tabel 1.7 Operator Perbandingan Pascal

                                          Operator                  Penjelasan
                                            =                       Sama dengan
                                             <>                   Tidak sama dengan
                                            >                       Lebih besar
                                            <                        Lebih kecil
                                             >=                Lebih besar sama dengan
                                             <=                 Lebih kecil sama dengan


                         e.  Contoh Kasus Program Sederhana
                            Buatlah flowchart, pseudocode dan Source Code  untuk mencari harga tiket dimana didalamnya disisipkan
                         tanggal pada program tersebut !

                                                  Tabel 1.8 Contoh Program Sederhana
                           Flowchart                 Pseudocode                        Source Code
                                             Program perhitungan          Program perhitungan;
                          MULAI              {Program ini digunakan untuk    Uses crt, sysutils;
                                             menghitung pembelian tiket}   Var
                                             Deklarasi                      J :integer;
                                             J:integer                       H, T:real;
                                             H,T:real                     Begin
                          INPUT              Deskripsi Algoritma            Writeln(‘Selamat  Datang OASI
                           J, H              Mulai                          CINEMA’);
                                               Baca (J)                     Writeln;
                                               Baca (H)                     Writeln(‘Hari / Tanggal : ’,datetimetostr(now));
                                               T  J x H                    Writeln;
                                                Tulis (T)                   Write(‘Masukan jumlah : ’);readln(j);
                                             Akhiri                         Write(‘Masukan harga : ‘);readln(h);
                                                                            T:=J*H;
                          T J*H                                            Clrscr;
                                                                            Writeln(‘Hari / Tanggal :’,datetimetostr(now));
                                                                            Writeln;
                                                                            Writeln(‘Total Pembayaran ‘,T:0:2);
                                                                            Readln;
                                                                          End.

                         OUTPUT
                            T





                          SELESAI

















                  Praktikum Dasar Komputer & Pemrograman 2020                                                                         I-39
   35   36   37   38   39   40   41   42   43   44   45