Simple Pascal Programming: Program Pembelian Rinso


 

Program Pascal Sederhana kali ini bertujuan untuk menghitung total belanja rinso di suatu supermarket. Kasir akan memasukkan harga satuan rinso dan jumlah pembelian kemudian program akan menghitung total belanjaan. Jika total belanja lebih dari batas diskon maka pembeli mendapat diskon 5%, bila tidak lebih dari batas diskon, pembeli tidak mendapat diskon. Program ini menggunakan Struktur Seleksi Kondisi, IF. Bagi sobat yang sedang belajar IF dalam bahasa pascal, semoga postingan ini membantu. Berikut adalah kode programnya.




program pembelian_rinso;
uses crt;

var
jmlrinso : integer;
hrgrinso, ttlharga, diskon, ttlbayar, btsdiskon :real;
ket : string;

BEGIN
clrscr;
write('Masukan jumlah pembelian rinso: ');
  readln(jmlrinso);
write('Masukan harga rinso persatuan: ');
  readln(hrgrinso);
write('Diskon 5% untuk pembelian lebih dari ');
  readln(btsdiskon);

ttlharga := hrgrinso * jmlrinso;

if (ttlharga > btsdiskon) then
  begin
   diskon := ttlharga * 5/100;
   ket := 'Selamat Anda mendapat diskon 5% dari total belanja Anda';
  end
  else
  begin
   diskon := 0;
   ket:= 'Anda tidak mendapat diskon.';
  end;

ttlbayar :=ttlharga - diskon;

writeln();
writeln('Total belanja Anda adalah',ttlharga:7:0);
writeln(ket);
writeln('Anda harus membayar sebesar: Rp',ttlbayar:7:0);
readln();
END.


Hasil dari program pascal sederhana di atas adalah sebagai berikut;
Untuk pembelian lebih dari batas diskon
Untuk pembelian tidak lebih dari batas diskon

Catatan Kaki:
Tulisan kali ini adalah tugas awal mata kuliah pemrograman penulis. Meskipun ini adalah pemrograman sederhana, pemulis berharap kode sederhana ini dapat menjadi referensi bagi pembaca untuk memasuki dunia pemrograman. Penulis tidak berkeberatan bila kode program di atas di copy-paste hanya saja penulis sangat menyarankan agar tidak copy-paste untuk sekedar memenuhi tugas mata kuliah sobat tanpa sobat paham apa yang penulis tulis. Mohon maaf dan terima kasih.


No comments:

Post a Comment