Dayat Day Vierra

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.