Membuat Program Kasir dengan Struktur Looping dan Fungsi IF Tunggal

Assalamu’alaikum blogger............. masih berbicara tentang pascal, hari ini kita akan membuat program kasir sederhana dengan menggunakan struktur looping dan fungsi IF tunggal. Stuktur looping digunakan untuk mengulangi langkah-langkah sebelumnya yang telah di kerjakan. Kondisi perulangan

dilakukan sampai beberapa kali, sedangkan IF tunggal di gunakan untuk menyelesaikan suatu persoalan tersebut terdapat suatu syarat yang harus di penuhi dengan dua kemungkinan. Dalam program ini, struktur looping untuk banyak barang yang dibeli dan fungsi IF tunggal untuk pemberian diskon.

Ok! Tanpa basa-basi ini dia struktur programnya:

Uses crt;

var

cd,nm:string;

hrg,jlh,tb,jmlh,disc,bayar,kembali,tbn:real;

i,j,p: integer;

begin

clrscr;

tb:=0;

jmlh:=0;

writeln('===========================');

writeln('        * Aadmart *');

writeln('  Belanja Yang Selalu Smart  ');

writeln('Jl.Menteng VII No. 108a  Medan ');

writeln('_____________________________');

write('LOOPING=====>');

readln(p);

for i:=1to p do

begin

writeln;

Textcolor(Green);

write('Kode Barang:');

readln(cd);

if cd='c01' then

begin

nm:='Kacang Garuda 100g';

hrg:=3000;

end

else if cd='c02' then

begin

nm:='Sari Roti Sandwich Coklat';

hrg:=4500;

end

else if cd='c03' then

begin

nm:='Hit Magic 12 lbr';

hrg:=5000;

end

else if cd='c04' then

begin

nm:='Minyak Fortune 2lt';

hrg:=19000;

end

else if cd='c05' then

begin

nm:='Rinso Anti Noda 1Kg';

hrg:=10000;

end

else if cd='c06' then

begin

nm:='Sarimie Pecel Dou';

hrg:=2500;

end

else if cd='c07' then

begin

nm:='Sunligt 250ml';

hrg:=2000;

end

else if cd='c08' then

begin

nm:='Pepsodent';

hrg:=3500;

end

else if cd='c09' then

begin

nm:='Sabun Lifebouy Lemon';

hrg:=3000;

end

else

writeln('Salah Kode');

Textcolor (Blue);

writeln('Nama Barang :',nm);

writeln('harga    :  ',hrg:2:0);

write('Jumlah Barang   :');

readln(jlh);

tb:=jlh*hrg;

jmlh:=tb+jmlh;

writeln(' Total Harga    :',tb:2:0);

Writeln('-----------------------------------');

end;

write(' Jumlah Bayar      :  ',jmlh:2:0);

if jmlh > 20000 then

  disc:=0.2 *jmlh;

writeln('  ');

writeln('Discount  :  20%');

writeln('Jumlah Discount: ',disc:2:0);

tbn:=jmlh – disc;

writeln(‘Total     :  ‘, tbn:2:0);

write(‘Bayar   :   ‘);

readln(bayar);

kembali:= bayar-tbn;

writeln(‘kembali   :   ‘,kembali:2:0);

writeln('');

writeln('                * Terima Kasih *');

writeln('   * Anda Belanja, Anda Beramal *');

writeln('====================================');

readkey;

end.

Eksekusinya:

 

Ok! Semoga bermanfaat dan sampai jumpa di postingan yang akan datang.....................