Page 77 - Modul Daskom 2020

Modul 3 – Array, Record dan Pemrograman Modular 2020

Prosedur RiasanMakeUp
jumlahorang,hargarias,TotalRiasan:real
Deskripsi Algoritma
Mulai
Baca(jumlahorang)
Baca(hargarias)
TotalRiasan(jumlahorang x hargarias)
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
JumlahPerawatan,HargaPerawatan,total:real;
Begin
clrscr;
write('Masukann jumlah perawatan kecantikan yang digunakan =');readln(JumlahPerawatan);
write('Masukan harga dari perawatan kecantikan yang digunakan =');readln(HargaPerawatan);
total:=JumlahPerawatan*HargaPerawatan;
writeln('Total keseluruhan biaya perawatan kecantikan =',total:0:2);
readln;
End ;

Procedure RiasanMakeUp;
Var
jumlahorang,hargarias,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');
writeln('1. Perawatan Kecantikan');
writeln('2. Riasan Make-Up');
writeln('3. Keluar');
write('Masukan angka yang anda pilih :');readln(A);

Praktikum Dasar Komputer & Pemrograman 2020 III-75