{NAMA :WAWAN SETIAWAN}
{NIM :C1457201011}
program kasir;
uses wincrt;
var
kb,nb:string[50];
h:longint;
j,tb,jbar,jbel,d:real;
Ul:char;
begin
repeat
writeln('====================================');
writeln('===========TOKO JAYA ABADI==========');
write('Masukkan Kode Barang : ');readln(kb);
write('Masukkan Jumlah Barang : ');readln(jbar);
if (kb='A') or (kb='a') then
begin
nb:='Mouse';
h:=60000;
jbel:=jbar*h;
d:=0.1*jbel;
tb:=jbel-d;
writeln('Kode Barang : ' , kb);
writeln('Nama Barang : ' ,nb);
writeln('Harga Barang : Rp.',h);
writeln('Jumlah Barang : ',jbar:0:0,' Buah');
writeln('Jumlah Belanja : Rp.',jbel:0:0);
writeln('Diskon 10 % = Rp.',d:0:0);
writeln('Total Belanja : Rp.',tb:0:0);
end;
if (kb='B') or (kb='b') then
begin
nb:='Flashdisk';
h:=150000;
jbel:=jbar*h;
d:=0.1*jbel;
tb:=jbel-d;
writeln('Kode Barang : ',kb);
writeln('Nama Barang : ' ,nb);
writeln('Harga Barang : Rp.',h);
writeln('Jumlah Barang : ',jbar:0:0,' Buah');
writeln('Jumlah Belanja Rp.',jbel:0:0);
writeln('Diskon 10 % = Rp.',d:0:0);
writeln('Total Belanja Rp.',tb:0:0);
end;
if (kb='C') or (kb='c') then
begin
nb:='Card Reader';
h:=115000;
jbel:=jbar*h;
d:=0.1*jbel;
tb:=jbel-d;
writeln('Kode Barang : ',kb);
writeln('Nama Barang : ' ,nb);
writeln('Harga Barang : Rp.',h);
writeln('Jumlah Barang : ',jbar:0:0,' Buah');
writeln('Jumlah Belanja Rp.',jbel:0:0);
writeln('Diskon 10 % = Rp.',d:0:0);
writeln('Total Belanja Rp.',tb:0:0);
end;
if (kb='D') or (kb='d') then
begin
nb:='Keyboard';
h:=75000;
jbel:=jbar*h;
d:=0.1*jbel;
tb:=jbel-d;
writeln('Kode Barang : ',kb);
writeln('Nama Barang : ' ,nb);
writeln('Harga Barang : Rp.',h);
writeln('Jumlah Barang : ',jbar:0:0,' Buah');
writeln('Jumlah Belanja Rp.',jbel:0:0);
writeln('Diskon 10 % = Rp.',d:0:0);
writeln('Total Belanja Rp.',tb:0:0);
end;
if (kb='E') or (kb='e') then
begin
nb:='Speaker';
h:=70000;
jbel:=jbar*h;
d:=0.1*jbel;
tb:=jbel-d;
writeln('Kode Barang : ',kb);
writeln('Nama Barang : ' ,nb);
writeln('Harga Barang : Rp.',h);
writeln('Jumlah Barang : ',jbar:0:0,' Buah');
writeln('Jumlah Belanja Rp.',jbel:0:0);
writeln('Diskon 10 % = Rp.',d:0:0);
writeln('Total Belanja Rp.',tb:0:0);
end;
write('apakah anda ingin membeli lagi? [Y/T] :');readln(Ul);
Until upcase(Ul) <> 'Y';
end.
Home
»
»
program kasir
0 komentar :
Posting Komentar