Page 75 - Modul Daskom 2020
P. 75

Modul 3 – Array, Record dan Pemrograman Modular                                                                           2020

                            Deklarasi
                               pelayanan:string
                               harga,total:real
                               jumlah:integer

                            Deskripsi Algoritma
                            Mulai
                                Baca(pelayanan)
                                Baca(jumlah)
                                Baca(harga)
                                Totaljumlah x harga
                                Tulis(total)
                            Selesai

                            Deskripsi Algoritma
                            Mulai
                                Baca(JenisPelayanan)
                                BerbagaiPelayananSalon
                            Selesai

                            Contoh Source code Variabel Lokal dan Global :
                            Program OASIsalon ;
                            Uses crt;
                            Var  // variabel global
                               JenisPelayanan:string;

                            Procedure  BerbagaiPelayananSalon;
                            Var // variabel lokal
                               pelayanan:string;
                               harga,total:real;
                               jumlah:integer;

                            Begin
                            clrscr;
                               write('Jenis Pelayanan    :');readln(pelayanan);
                               write('jumlah Pelayanan :');readln(jumlah);
                               write('Harga Pelayanan :');readln(harga);
                               total:=jumlah*harga;
                               writeln('Total pembayaran Rp. ',total:0:2);
                            readln;
                            End;

                            Begin  // program utama
                              clrscr;
                                writeln('SELAMAT DATANG DI SALON OASI');
                                write('Silahkan masukan jenis pelayanan anda :');readln(JenisPelayanan);
                                readln;
                                BerbagaiPelayananSalon; // memanggil prosedur
                                writeln;
                                readln;
                            End.

                                 Parameter
                                  Parameter  adalah  variabel  dalam  sebuah  subprogram  yang  gunanya  untuk
                               menampung  nilai  yang  dikirim  oleh  program  utama.  Dalam  program  memerlukan
                               pertukaran  informasi  antara  prosedur  dan  titik  dimana  ia  dipanggil.  Penggunaan



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