Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program NotaRestoran;
- const
- JumlahMakanan = 5;
- type
- Makanan = record
- Nama: string;
- Harga: integer;
- Jumlah: integer;
- end;
- var
- NamaRestoran, AlamatRestoran, NamaPembeli: string;
- DaftarMakanan: array[1..JumlahMakanan] of Makanan;
- Total, Pembayaran, Kembalian: integer;
- i: integer;
- begin
- // Mengisi data restoran
- NamaRestoran := 'Warung Makan 89';
- AlamatRestoran := 'Jl. Siliwangi 1, no.113, Bandung';
- // Mengisi data makanan
- DaftarMakanan[1].Nama := 'Sate Ayam';
- DaftarMakanan[1].Harga := 15000;
- DaftarMakanan[1].Jumlah := 2;
- DaftarMakanan[2].Nama := 'Soto Mie';
- DaftarMakanan[2].Harga := 18000;
- DaftarMakanan[2].Jumlah := 3;
- DaftarMakanan[3].Nama := 'Nasi Putih';
- DaftarMakanan[3].Harga := 5000;
- DaftarMakanan[3].Jumlah := 5;
- DaftarMakanan[4].Nama := 'Es Teh Manis';
- DaftarMakanan[4].Harga := 7000;
- DaftarMakanan[4].Jumlah := 2;
- DaftarMakanan[5].Nama := 'Es Jeruk';
- DaftarMakanan[5].Harga := 10000;
- DaftarMakanan[5].Jumlah := 3;
- // Mengisi data pembeli
- NamaPembeli := 'John Doe';
- // Menghitung total pembelian
- Total := 0;
- for i := 1 to JumlahMakanan do
- Total := Total + (DaftarMakanan[i].Harga * DaftarMakanan[i].Jumlah);
- // Memasukkan data pembayaran
- Pembayaran := 200000;
- Kembalian := Pembayaran - Total;
- // Menampilkan nota
- writeln(NamaRestoran);
- writeln(AlamatRestoran);
- writeln('==================================================================');
- writeln('Nama Pembeli : ', NamaPembeli);
- writeln('No. Nama Makanan');
- for i := 1 to JumlahMakanan do
- writeln(i, '. ', DaftarMakanan[i].Nama);
- writeln('Banyaknya Harga');
- for i := 1 to JumlahMakanan do
- writeln(DaftarMakanan[i].Jumlah, ' ', DaftarMakanan[i].Harga * DaftarMakanan[i].Jumlah);
- writeln('Jumlah');
- for i := 1 to JumlahMakanan do
- writeln(DaftarMakanan[i].Harga * DaftarMakanan[i].Jumlah);
- writeln('Total : ', Total);
- writeln('Pembayaran : ', Pembayaran);
- writeln('Kembalian : ', Kembalian);
- writeln('==================================================================');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement