Page 96 - Modul PDKP 20

Modul 3 – Array, Record dan Pemograman Modular 2020

Mulai
total=jmlh x hrg
Tulis(total)
Selesai
Mulai
Baca(jumlah)
Baca(harga)
total(jumlah,harga)
Baca(x)
Baca(y)
total(x,y)
End.

Contoh Source Code Transfer Parameter By Value
Program transvervalue;
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 Perawatan di SALON OASI :');
write('Jumlah Perawatan :');readln(jumlah);
write('Harga Perawatan :');readln(harga);
total(jumlah,harga);
writeln;
writeln('Menghitung Total Biaya Pelayanan di SALON OASI :');
write('Jumlah Orang :');readln(x);
write('Harga Pelayanan :');readln(y);
total(x,y);
writeln;
End .

Praktikum Dasar Komputer & Pemograman 2020 III-79