Page 100 - Modul PDKP 20
P. 100

Modul 3 – Array, Record dan Pemograman Modular                                                                             2020

                               Contoh Source Code Fungsi :
                               Program  contohfunction;
                               Uses  crt;
                               Var
                                 jumlah,harga,total:integer;

                               Function  totalbiaya(jumlah,harga:integer):integer;
                               Begin
                               totalbiaya:=(jumlah*harga);
                               End;

                               Begin
                                 writeln('Selamat Datang di SALON OASI');
                                 writeln('Menghitung total biaya perawatan');
                                 write('Masukan jumlah perawatan  =');readln(jumlah);
                                 write('Masukan harga perawatan    =');readln(harga);
                                 total:=totalbiaya(jumlah,harga);
                                 writeln('Total biaya perawatan adalah ', total);
                                 readln;
                               End.


                                                        LATIHAN SOAL


                  1.  Apa  kelebihan  dan  kelemahan  Array  dan  Record  ?  dan  mengapa  mereka  di  gabungkan  menjadi
                     Gabungan Array dan Record ?
                  2.  Kenapa sebuah program diperlukan adanya subprogram? Jelaskan!
                  3.  Jelaskan  perbedaan  cara  mendeklerasikan  subprogram,  tanpa  nilai  parameter  dan  dengan  nilai
                     parameter!
                  4.  Buatlah contoh Flowchart  dari kehidupan sehari-hari menggunakan perintah tipe data bentukan pada
                     modul 3!
                  5.  Buatlah contoh program dari kehidupan sehari-hari yang terdapat pada soal nomor 4!

































                  Praktikum Dasar Komputer & Pemograman 2020                                                                               III-83
   95   96   97   98   99   100   101   102   103   104   105