Advertisement
zyy12

NotaRestoran

Nov 8th, 2023
692
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 2.12 KB | None | 0 0
  1. program NotaRestoran;
  2.  
  3. const
  4.   JumlahMakanan = 5;
  5.  
  6. type
  7.   Makanan = record
  8.     Nama: string;
  9.     Harga: integer;
  10.     Jumlah: integer;
  11.   end;
  12.  
  13. var
  14.   NamaRestoran, AlamatRestoran, NamaPembeli: string;
  15.   DaftarMakanan: array[1..JumlahMakanan] of Makanan;
  16.   Total, Pembayaran, Kembalian: integer;
  17.   i: integer;
  18.  
  19. begin
  20.   // Mengisi data restoran
  21.   NamaRestoran := 'Warung Makan 89';
  22.   AlamatRestoran := 'Jl. Siliwangi 1, no.113, Bandung';
  23.  
  24.   // Mengisi data makanan
  25.   DaftarMakanan[1].Nama := 'Sate Ayam';
  26.   DaftarMakanan[1].Harga := 15000;
  27.   DaftarMakanan[1].Jumlah := 2;
  28.  
  29.   DaftarMakanan[2].Nama := 'Soto Mie';
  30.   DaftarMakanan[2].Harga := 18000;
  31.   DaftarMakanan[2].Jumlah := 3;
  32.  
  33.   DaftarMakanan[3].Nama := 'Nasi Putih';
  34.   DaftarMakanan[3].Harga := 5000;
  35.   DaftarMakanan[3].Jumlah := 5;
  36.  
  37.   DaftarMakanan[4].Nama := 'Es Teh Manis';
  38.   DaftarMakanan[4].Harga := 7000;
  39.   DaftarMakanan[4].Jumlah := 2;
  40.  
  41.   DaftarMakanan[5].Nama := 'Es Jeruk';
  42.   DaftarMakanan[5].Harga := 10000;
  43.   DaftarMakanan[5].Jumlah := 3;
  44.  
  45.   // Mengisi data pembeli
  46.   NamaPembeli := 'John Doe';
  47.  
  48.   // Menghitung total pembelian
  49.   Total := 0;
  50.   for i := 1 to JumlahMakanan do
  51.     Total := Total + (DaftarMakanan[i].Harga * DaftarMakanan[i].Jumlah);
  52.  
  53.   // Memasukkan data pembayaran
  54.   Pembayaran := 200000;
  55.   Kembalian := Pembayaran - Total;
  56.  
  57.   // Menampilkan nota
  58.   writeln(NamaRestoran);
  59.   writeln(AlamatRestoran);
  60.   writeln('==================================================================');
  61.   writeln('Nama Pembeli : ', NamaPembeli);
  62.   writeln('No. Nama Makanan');
  63.  
  64.   for i := 1 to JumlahMakanan do
  65.     writeln(i, '. ', DaftarMakanan[i].Nama);
  66.  
  67.   writeln('Banyaknya Harga');
  68.  
  69.   for i := 1 to JumlahMakanan do
  70.     writeln(DaftarMakanan[i].Jumlah, ' ', DaftarMakanan[i].Harga * DaftarMakanan[i].Jumlah);
  71.  
  72.   writeln('Jumlah');
  73.  
  74.   for i := 1 to JumlahMakanan do
  75.     writeln(DaftarMakanan[i].Harga * DaftarMakanan[i].Jumlah);
  76.  
  77.   writeln('Total : ', Total);
  78.   writeln('Pembayaran : ', Pembayaran);
  79.   writeln('Kembalian : ', Kembalian);
  80.   writeln('==================================================================');
  81. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement