Page 99 - MODUL PDKP'21

Modul 3 – Array, Record dan Pemrograman Modular 2021

Contoh Pseudocode Transfer by Value :

Program transfervalue
{program akan menghitung total biaya pelayanan di restoran oasi dan menghitung total biaya
pelayanan di restoran oasi}

Deklarasi
jumlah,harga,x,y:integer

Procedure Total(jmlh,hrg:real)
Deklarasi
total:real
Mulai
Totaljmlh x hrg
Tulis(total)
Selesai
Mulai
Baca(jumlah)
Baca(harga)
total(jumlah,harga)
Baca(x)
Baca(y)
total(x,y)
Selesai
Contoh Sourcecode Transfer Parameter By Value :
Program transfervalue;
Uses crt;
Var
jumlah,harga,x,y:integer;

Procedure Total(jmlh,hrg:real);
Var
total:real;
Begin
total:=jmlh*hrg;
writeln('Total:',total:0:0);
readln;
End;

Begin
clrscr;
writeln('Menghitung Total Biaya pembelian di Restoran OASI :');
write('Jumlah Pembelian :');readln(jumlah);
write('Harga Pembelian :');readln(harga);
total(jumlah,harga);
writeln;
writeln('Menghitung Total Biaya Pelayanan di RESTORAN OASI :');
write('Jumlah Orang :');readln(x);
write('Harga Pelayanan :');readln(y);
total(x,y);
writeln;
End.

Praktikum Dasar Komputer & Pemrograman 2021 III-88