Page 120 - MODUL PDKP'21

Modul 4 – Interface, File dan Kursor 2021

writeln(UTF8ToCP866('╠═══════════════════════════╣'));
writeln(UTF8ToCP866('║ No. ║ Nama Makanan ║ Harga ║'));
writeln(UTF8ToCP866('╠═══╦═════════════╦═════════╣'));
writeln(UTF8ToCP866('║ 1. ║ Ramyeon ║ Rp 20.000 ║'));
writeln(UTF8ToCP866('║ 2. ║ Bulgogi ║ Rp 50.000 ║'));
writeln(UTF8ToCP866('║ 3. ║ Odeng ║ Rp 15.500 ║'));
writeln(UTF8ToCP866('║ 4. ║ Kimchi ║ Rp 12.000 ║'));
writeln(UTF8ToCP866('╚═══════════════════════════╝'));
readln;
clrscr;
end;
procedure FormPembelian;
begin
clrscr;
writeln;
writeln(UTF8ToCP866('╔═══════════════════════╗'));
writeln(UTF8ToCP866('║ ║'));
writeln(UTF8ToCP866('║ Administrasi Restaurant ║'));
writeln(UTF8ToCP866('║ ║'));
writeln(UTF8ToCP866('╠═══════════════════════╣'));
writeln(UTF8ToCP866('║ No. ║ Nama ║ Harga ║'));
writeln(UTF8ToCP866('╠═══╦══════════╦════════╣'));
writeln(UTF8ToCP866('║ 1. ║ Ramyeon ║ Rp 20.000 ║'));
writeln(UTF8ToCP866('║ 2. ║ Bulgogi ║ Rp 50.000 ║'));
writeln(UTF8ToCP866('║ 3. ║ Odeng ║ Rp 15.500 ║'));
writeln(UTF8ToCP866('║ 4. ║ Kimchi ║ Rp 12.000 ║'));
writeln(UTF8ToCP866('╚═══════════════════════╝'));
writeln('====================================');
write('Masukkan jumlah jenis makanan yang akan dibeli :');readln(j);
for i:=1 to j do
with pembelian[i] do
begin
writeln('Jenis Makanan ke-',i);
write('Masukkan nomor makanan yang akan dibeli : ');readln(no);
if no='1'then
begin
Nama:='Ramyeon';
Harga:='Rp. 20.000';
HBB:=20000;
write('Jumlah Makanan = ');readln(JB);
end;
if no='2'then
begin
Nama:='Bulgogi';
Harga:='Rp. 50.000';
HBB:=50000;
write('Jumlah Makanan = ');readln(JB);
end;

Praktikum Dasar Komputer dan Pemrograman 2021 IV-109