Page 121 - MODUL PDKP'21

Modul 4 – Interface, File dan Kursor 2021

if no='3' then
begin
Nama:='Odeng';
Harga:='Rp. 15.500';
HBB:=15500;
write('Jumlah Makanan = ');readln(JB);
end;
if no='4' then
begin
Nama:='Kimchi';
Harga:='Rp. 12.000';
HBB:=12000;
write('Jumlah Makanan = ');readln(JB);
end;
total:=JB*HBB;
readln;
end;

clrscr;
writeln('Hari/Tanggal:',datetimetostr(now));
writeln('================================');
writeln(' Administrasi Restaurant ');
writeln('================================');
writeln('FORM PEMESANAN');
for i:=1 to j do
with pembelian[i] do
begin
writeln('Jenis Makanan ke- : ',i);
writeln('Nama Makanan :',Nama);
writeln('Harga Makanan :',Harga);
writeln('Jumlah Makanan :',JB);
writeln('=================================');
writeln('Total perjenis makanan adalah : Rp. ',total:5:2);
writeln('=================================');
writeln;
readln;
end;
clrscr;
end;

procedure NotaPembelian;
begin
clrscr;
writeln('Hari/Tanggal:',datetimetostr(now));
writeln('================================');
writeln(' Administrasi Restaurant ');
writeln('================================');
writeln('FORM PEMESANAN');

Praktikum Dasar Komputer dan Pemrograman 2021 IV-110