Buat Program dengan ketentuan sbb:
1. Buat record dengan nama kue yang berisi kode,nm,hrg,jb,total.
2. Buat procedure dengan nama input. Untuk menginput data.
3. Buat Procedure dengan
nama tampil
Ketentuan soal :
Untuk kode Kue:
Jika kode A maka nama Kue “Brownies”, harga 2000
Jika kode B maka nama Kue “Tart”, harga 1500
Jika kode C maka nama Kue “Bolu”, harga 1000
Total = harga x jumlah beli
Total bayar = total + total bayar
uses crt;
type reckue=record
kode,nm:string;
hrg,jb,total:real;
end;
var
kue:array[1..50] of reckue;
tbyr:real;
i,jd:byte;
lagi:char;
label awal,akhir;
procedure input; {Procedure Input}
begin
clrscr;
write('masukan jumlah data:');readln(jd);
for i:=1 to jd do
begin
with kue[i] do
begin
writeln('data ke-',i);
write('masukan kode kue:');readln(kode);
if kode='A' then
begin
nm:='Brownies';
hrg:=2000;
end
else
if kode='B' then
begin
nm:='Tart';
hrg:=1500;
end
else
begin
nm:='bolu';
hrg:=1000;
end;
writeln('nama kue:',nm);
writeln('harga:',hrg:2:0);
write('masukan jumlah beli :');readln(jb);
end;
end;
end;
procedure tampil; {Procedure Tampil}
begin
clrscr;
writeln(' TOKO KUE "RAMAI PENGUNJUNG"');
writeln(' JL. KAlibat Timur No.37');
writeln('======================================================');
writeln('no kode nama harga jumlah total');
writeln('=======================================================');
tbyr:=0;
for i:=1 to jd do
begin
with kue[i] do
begin
total:=hrg*jb;
tbyr:=total+tbyr;
end;
end;
for i:=1 to jd do
begin
with kue[i] do
begin
writeln(i:1,kode:3,nm:5,hrg:6:0,jb:8:0,total:10:0);
end;
end;
writeln('=============================================================');
writeln('total bayar :',tbyr:2:0);
end;
begin {Program Utama}
awal:
clrscr;
input; {Pemanggilan Procedure input}
tampil; {Pemanggilan Procedure tampil}
writeln;
write('mau input data lagi[Y/T]=');readln(lagi);
if (lagi='Y') or (lagi='y') then
goto awal
else
goto akhir;
akhir:
readln;
end.
SIMPAN DALAM FLASHDISH, NAMA FOLDER NAMA ANDA, NAMA FILE TUGAS_11
