Page 122 - MODUL PDKP'21

Modul 4 – Interface, File dan Kursor 2021

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);
hasil:=hasil+total;
writeln('Hasil dari jumlah pembelian makanan adalah : Rp. ',hasil:5:2);
writeln('=================================');
writeln;
end;
begin
for i:=1 to j do
with pembelian[i] do
begin
assign(berkasteks,'note.txt');
append(berkasteks);
writeln(berkasteks,'Hari/Tanggal:',datetimetostr(now));
writeln(berkasteks,'=============================');
writeln(berkasteks,' Administrasi Restaurant ');
writeln(berkasteks,'=============================');
writeln(berkasteks,'FORM PEMESANAN');
writeln(berkasteks,'Jenis Makanan ke- : ',i);
writeln(berkasteks,'Nama Makanan :',Nama);
writeln(berkasteks,'Harga Makanan:',Harga);
writeln(berkasteks,'Jumlah Makanan:',JB);
writeln(berkasteks,'=============================');
writeln(berkasteks,'Total perjenis makanan adalah : Rp. ',total:5:2);
writeln(berkasteks,'Hasil dari jumlah pembelian adalah : Rp. ',hasil:5:2);
writeln(berkasteks,'Terima Kasih!!! Selamat Datang Kembali');
writeln;
close(berkasteks);
readln;
clrscr;
end;
end;
end;
procedure kursor(kiri,atas,baris:integer;var B:integer);
begin
B:=1;
key:=#0;
repeat
gotoxy(kiri,atas+B);write(' ');
if key=#72 then
if B>1 then

Praktikum Dasar Komputer dan Pemrograman 2021 IV-111