Page 80 - Modul Daskom 2020

Modul 3 – Array, Record dan Pemrograman Modular 2020

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 .

Contoh Flowchart Transfer By Location :

PROCEDURE
MULAI
Total(jumlah,harga)

INPUT INPUT
Jumlah,harga Total

Total  Jumlah*harga Total c*d

PROCEDURE OUTPUT
Total(jumlah,harga) d

OUTPUT SELASAI
harga

SELESAI

Gambar 3.9 Flowchart Transfer By Location

Praktikum Dasar Komputer & Pemrograman 2020 III-78