Page 78 - MODUL DASKOM 2020

Modul 3 – Array, Record dan Pemrograman Modular 2020

Case A of
1:PerawatanKecantikan; // memanggil prosedur
2:RiasanMakeUp; // memanggil prosedur
End;
Until A=3;
End .

b) Dengan Nilai Parameter
Subprogram dengan parameter ini akan lebih fleksibel, yang artinya dapat
digunakan kapanpun tanpa perlu memperhatikan nama variabelnya dan tanpa
mengubah nilai variabel lainnya.
Parameter terbagi menjadi dua yaitu parameter aktual dan parameter formal.
Parameter aktual adalah parameter pengirim nilai dari program utama ke subprogram
yang berada di program utama. Parameter formal adalah parameter penerima nilai dari
program utama yang berada di prosedur.
Tiap-tiap parameter aktual berpasangan dengan parameter formal yang bersesuaian
pada subprogram. Aturan yang harus diperhatikan :
1. Jumlah parameter aktual pada pemanggilan prosedur harus sama dengan
jumlah parameter formal pada deklarasi prosedurnya.
2. Tiap parameter aktual harus bertipe sama dengan parameter formal yang
bersesuain.
3. Tiap parameter aktual harus dideskripsikan sama dengan jenis parameter
formalnya.
Bentuk umum prosedur dengan parameter :
Program PerawatanKecantikanDenganParameter;
Uses crt;
Var
JumlahPerawatan,harga:real;

Procedure PerawatanKecantikan(jmlpwt,hrg:real);
Var total:real;
Begin
clrscr;
total:=jmlpwt*hrg;
writeln('Total Pembayaran:',total:0:3);
End ;

Begin
clrscr;
write('Jumlah Perawatan :');readln(JumlahPerawatan);
write('Harga Perbaikan :');readln(harga);
PerawatanKecantikan(JumlahPerawatan,harga); // jumlahperawatan,harga adalah parameter
aktual
readln;
End .

 Transfer Parameter
Sebenarnya pada pemanggilan subprogram dengan parameter, sudah terjadi
pengiriman parameter dari parameter aktual ke parameter formal.
Pengiriman parameter tersebut dapat dilakukan dengan dua cara, yaitu :
a. Transfer Parameter By Value (secara nilai)
Terjadi aliran 1 arah, dari parameter aktual ke parameter formal.
b. Transfer Parameter By Location/Reference (secara acuan)

Praktikum Dasar Komputer & Pemrograman 2020 III-76