Page 96 - MODUL PDKP'21

Modul 3 – Array, Record dan Pemrograman Modular 2021

Kasus A dari
1:tulis(PembelianPerDus)
2:tulis(PembelianPerPcs)
Selesai
Sampai A=3
Selesai

Contoh Sourcecode :
Program RestoranFastFoodOASI;
Uses crt;
Var
A:integer;

Procedure PembelianPerDus;
Var
JumlahDus,HargaPerDus,total:real;
Begin
clrscr;
write('Masukann jumlah dus yang dibeli =');readln(JumlahDus);
write('Masukan harga dari setiap dus yang dibeli =');readln(HargaPerDus);
total:=JumlahDus*HargaperDus;
writeln('Total keseluruhan biaya yang harus dibayar =',total:0:2);
readln;
End;

Procedure PembelianperPcs;
Var
jumlahPcs,hargaperPcs,TotalHarga:real;
Begin
clrscr;
write('Masukan jumlah pcs yang dibeli =');readln(jumlahPcs);
write('Masukan harga pcs yang dibeli =');readln(hargaperPcs);
TotalHarga:=(jumlahPcs*hargaperPcs);
writeln('Total Harga =',TotalHarga:0:2);
readln;
End;

Begin //Program Utama
Repeat
clrscr;
writeln(' RESTORAN FASTFOOD OASI ');
writeln('silahkan pilih ');
writeln('1. Pembelian Per Dus');
writeln('2. Pembelian Per Pcs');
writeln('3. Keluar');
write('Masukan angka yang Anda pilih :');readln(A);
Case A of
1:PembelianperDus; //memanggil prosedur
2:PembelianperPcs; //memanggil prosedur
End;
Until A=3;
End.

Praktikum Dasar Komputer & Pemrograman 2021 III-85