program penjualan_supermaket;
uses wincrt;
var i,b:byte;
n_brg,kd_brg:array [1..50] of string[20];
banyak,jmlharga,harga:array[1..50]of real;
totb,totjml,total,uang,kembalian,diskon:real;
lagi,baca_t:char;
begin
lagi := 'y';
while
(lagi) = 'y' do
begin
clrscr;
writeln(' WELCOME TO SUPERMARKET IST AKPRIND
YOGYAKARTA');
writeln('=======================================================');
writeln('Nama Pemegang Saham Supermarket Ini Adalah:');
writeln('NAMA : ALFIANDRI : 121051128');
writeln('NAMA : ZAINAL ABIDIN : 121051066');
writeln('NAMA : ASRI RESPATI : 121051070');
write('masukan jumlah barang = ');readln(b);
for i:=1 to b do
begin
writeln;
writeln('barang ke- ',i);
writeln;
write('masukan kode barang :
');readln(kd_brg[i]);
write('masukan jumlah barang :
');readln(banyak[i]);
end;
writeln;
clrscr;
writeln(' WELCOME TO SUPERMARKET IST AKPRIND YOGYAKARTA');
writeln('=======================================================');
writeln('NO NAMA BARANG HARGA SATUAN|BANYAK
BELI|JUMLAH HARGA');
writeln;
for i:=1 to b do
begin
if kd_brg[i]='111'then
begin
n_brg[i]:='wafer tenggo ' ;
harga[i]:=5800;
end else if kd_brg[i]='123'then begin
n_brg[i]:='fanta 250 ml';
harga[i]:=4000;
end else if kd_brg[i]='1234' then begin
n_brg[i]:='sprite 1,5 ltr';
harga[i]:=12000;
end else if kd_brg[i]='12345' then begin
n_brg[i]:='aqua Botol 1500 ml';
harga[i]:=2800;
end else if kd_brg[i]='1234567' then begin
n_brg[i]:='Coca-cola botol 1,5 ltr zero';
harga[i]:=12000;
end else if kd_brg[i]='12345678' then begin
n_brg[i]:='green tea 8gr';
harga[i]:=4500;
end else if kd_brg[i]='123456789' then begin
n_brg[i]:='Nu green tea apple 330ml';
harga[i]:=4400;
end else if kd_brg[i]='12345678910' then begin
n_brg[i]:='Bimoli minyak goreng botol 1000
ml';
harga[i]:=26500;
end else if kd_brg[i]='220' then begin
n_brg[i]:='pedia sure complete cokelat 400gr';
harga[i]:=90000;
end else if kd_brg[i]='221' then begin
n_brg[i]:='Sania minyak goreng 5 ltr';
harga[i]:=67000;
end else if kd_brg[i]='222' then begin
n_brg[i]:='sasa 250gr';
harga[i]:=6200;
end else if kd_brg[i]='223' then begin
n_brg[i]:='ABC sambal extra pedas 140 ml';
harga[i]:=4300;
end else if kd_brg[i]='224' then begin
n_brg[i]:='ABC Saus tomat 340 ml';
harga[i]:=9000;
end else if kd_brg[i]='225' then begin
n_brg[i]:='Dji sam soe kretek 12 - 1 slop';
harga[i]:=195000;
end else if kd_brg[i]='226' then begin
n_brg[i]:='Dji sam soe kotak 16 - per
bungkus';
harga[i]:=22000;
end else if kd_brg[i]='227' then begin
n_brg[i]:='Gudang Garam per bungkus';
harga[i]:=11800;
end else if kd_brg[i]='228' then begin
n_brg[i]:='marlboro filter merah per bungkus';
harga[i]:=11500;
end else if kd_brg[i]='229' then begin
n_brg[i]:='marlboro menthol per bungkus';
harga[i]:=11500;
end else if kd_brg[i]='2210' then begin
n_brg[i]:='Sampoerna mild merah 16s - per
bungkus';
harga[i]:=10800;
end else if kd_brg[i]='330' then begin
n_brg[i]:='sampoerna mild menthol 16s - per
bungkus';
harga[i]:=10800;
end else if kd_brg[i]='331' then begin
n_brg[i]:='Johnsons kit shampo mobil 800ml';
harga[i]:=20000;
end else if kd_brg[i]='332' then begin
n_brg[i]:='Sabon lux';
harga[i]:=2500;
end else if kd_brg[i]='333' then begin
n_brg[i]:='Sabon lifebuoy';
harga[i]:=2500;
end else if kd_brg[i]='334' then begin
n_brg[i]:='Sampo panten 1 saset';
harga[i]:=5000;
end else if kd_brg[i]='335' then begin
n_brg[i]:='Sampo rejois 1 saset';
harga[i]:=5500;
end else if kd_brg[i]='336' then begin
n_brg[i]:='pasta gigi pepsoden 120 g ';
harga[i]:=5500;
end else if kd_brg[i]='337' then begin
n_brg[i]:='korek gas warning';
harga[i]:=1500;end;
jmlharga[i]:=harga[i]*banyak[i];
totb:=totb+jmlharga[i];
diskon:=totb*0.05;
totjml:=totjml+banyak[i];
total:=totb-diskon;
end;
for i:=1 to b do
begin
writeln(i:1,n_brg[i]:20,harga[i]:30:0,banyak[i]:9:0,jmlharga[i]:15:0);
end;
writeln('==============================================================================');
writeln('jumlah barang = ',totjml:2:0);
writeln('jumlah bayar = Rp.',totb:2:0);
writeln('diskon = Rp. ',diskon:2:0);
writeln('total bayar = Rp.',total:2:0);
write('masukan jumlah uang = Rp.');readln(uang);
writeln('==============================================================================');
kembalian:=uang-total;
writeln('uang kembalian = Rp.',kembalian:2:0);
writeln;
writeln('===============================================================================');
writeln(' TERIMA KASIH ATAS
KUNJUNGANNYA') ;
writeln(' SAMPAI JUMPA LAGI DI LAIN WAKTU
');
writeln(' IST AKPRIND YOGYAKARTA');
write('Ada lagi pembelian baru.....???????
tekan (y/t) : ');readln(lagi);
writeln;
end;
end.
0 komentar:
Posting Komentar