Kasir sederhana dengan pengulangan menggunakan pascal

Kali ini mo coba berbagi pembuatan program kasir sederhana dengan pengulangan menggunakan turbo pascal.

Untuk apa sih pengulangan di program kasir ini, kalo menurut saya sih biar penulisan script jadi lebih sedikit (pengertian sotoy mode on).

Sebelum mencoba membuatnya musti ada beberapa yang musti di siapkan :

1. Turbo pascal sudah di install
2. Siapkan cemilan dan minum (biar nyantai)
3. Listrik dirumah jangan mati nanti komputernya ga bisa nyala xixixixixixixi
4. Lanjutkan............

Langsung aja yach liat script dibawah ini, untuk lebih enaknya untuk bikin script bisa menggunakan notepade++

uses crt; <===== untuk turbo pascal 7

uses wincrt; <===== untuk turbo pascal 1.5

var

kd, nm :string;

hrg,jmb,tb,jmbb:real;

i,j,p:integer;

begin

clrscr;

tb:=0;

jmbb:=0;

write ('LOOPING ==> ');

readln (p);

for i := 1 to p do

begin

writeln;

write ('Masukan kode barang = ');readln (kd);

if (kd ='A01') or (kd='a01') then

begin

nm := 'Susu Saset';

hrg := 2000;

end

else if (kd ='A02') or (kd='a02') then

begin

nm := 'Mie Rebus';

hrg := 1500;

end

else if (kd ='A03') or (kd='a03') then

begin

nm := 'Roti';

hrg := 1000;

end

else

writeln ('Anda salah memasukan kode');

writeln ('Barang yang ada pesan ',nm);

writeln ('Harga     ===> ',hrg:2:0);

writeln ('----------------------------');

write ('Jumlah Barang ===> ');

readln (jmb);

tb:= jmb * hrg;

jmbb:=tb+jmbb;

writeln ('------------------------------');

writeln ('Jumlah harga ===> ',tb:2:0);

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

end;

write ('Jumlah Harga Bayar ===> ',jmbb:2:0);

readkey;

end.

Hasilnya mudah-mudahan bermanfaat.....

nb: bobo lagi