Page 91 - MODUL PDKP 2020
P. 91

Modul 3 – Array, Record dan Pemograman Modular                                                                             2020

                            Deklerasi
                               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  tititk  dimana  ia  dipanggil.  Pengunaan




                  Praktikum Dasar Komputer & Pemograman 2020                                                                               III-74
   86   87   88   89   90   91   92   93   94   95   96