Page 93 - Modul PDKP 20

Modul 3 – Array, Record dan Pemograman Modular 2020

Tulis(total)
Selesai

Prosedur RiasanMakeUp
Deskripsi Algoritma
jumlah_orang,harga_rias,TotalRiasan:real
Mulai
Baca(jumlah_orang)
Baca(harga_rias)
TotalRiasan=(jumlah_orang x harga_rias)
Tulis(TotalRiasan)
Selesai

Mulai
Ulangi
Baca(A)
Kasus A dari
1:tulis(PerawatanKecantikan)
2:tulis(RiasanMakeUp)
Selesai
Sampai A=3
Selesai

Contoh Source Code :
Program PerawatanOASI;
Uses crt;
Var
A:integer;

Procedure PerawatanKecantikan;
Var
Jumlah_Perawatan,Harga_Perawatan,total:real;
Begin
clrscr;
write('Masukann jumlah perawatan kecantikan yang digunakan =');readln(Jumlah_Perawatan);
write('Masukan harga dari perawatan kecantikan yang digunakan =');readln(Harga_Perawatan);
total:=Jumlah_Perawatan*Harga_Perawatan;
writeln('Total keseluruhan biaya perawatan kecantikan =',total:0:2);
readln;
End ;

Procedure RiasanMakeUp;
Var
jumlah_orang,harga_rias,TotalRiasan:real;
Begin
clrscr;
write('Masukan jumlah orang yang dirias =');readln(jumlah_orang);
write('Masukan harga rias =');readln(harga_rias);
TotalRiasan:=(jumlah_orang*harga_rias);
writeln('Total keseluruhan biaya riasan =',TotalRiasan:0:2);
readln;
End ;

Begin //program utama
Repeat
clrscr;
writeln(' SALON OASI ');
writeln('silahkan pilih menu');

Praktikum Dasar Komputer & Pemograman 2020 III-76