Page 98 - Modul PDKP 20

Modul 3 – Array, Record dan Pemograman Modular 2020

Mulai
Baca(jumlah)
Baca(harga)
(jumlah x harga)
total(jumlah,harga)
Tulis(harga)
Tulis(jumlah x harga)
Selesai

Contoh Source Code Transfer By Location :
Program TransferLocation2;
Uses crt;
Var
jumlah,harga:real;

Procedure Total(jumlah:real; var d:real);
Var
total:real;
Begin
clrscr;
writeln('Jumlah orang :',jumlah:0:0);
writeln('Jumlah Perawatan :',harga:0:0);
total:=jumlah*harga;
writeln('Total biaya Perawatan:',total:0:0);
write('Harga perawatan yang baru:');readln(d);
writeln;
End ;

Begin
clrscr;
writeln('Menghitung Total Pembayaran Perawatan');
write('Jumlah Orang :');readln(jumlah);
write('Harga dari perawatan yang dilakukan:');readln(harga);
writeln('Total biaya perawatan :',(jumlah*harga):0:0);
readln;
total(jumlah,harga);
clrscr;
writeln('Harga Perawatan yang baru adalah ',harga:0:0);
writeln('Total yang perlu dibayar adalah ',(jumlah*harga):0:0);
readln;
End.

b. Fungsi
Seperti halnya prosedur, fungsi berguna untuk mengelompokan baris-baris perintah
dalam sebuah blok. Perbedaan paling mendasar antara 2 subprogram tersebut adalah
kemampuan fungsi yang dapat mengembalikan nilai ke pemanggil fungsi, sehingga pada
fungsi perlu di deklerasikan tipe datanya.
Bedanya dengan prosedur, sebuah fungsi selalu menerima masukan dan menghasilkan
sebuah luaran yang terdefinisi. Ini berarti suatu fungsi mengandung satu atau lebih
parameter masukan, sedangkan parameter luaran tidak dinyatakan secara eksplisist sebab
fungsi “melemparkan” (return) sebuah luaran ke program pemanggilnya.

Praktikum Dasar Komputer & Pemograman 2020 III-81