|
Written by pnyet
|
|
program minipos;
uses crt;
label
start,finish;
var
name,code,symbols,size:string[20];
qty,price,totprice:longint;
bill,payment,discount,cashback:real;
next:char;
begin
clrscr;
write('Name : ');readln(name);
write('Category [Shirt / T-Shirt] : ');readln(code);
write('Size [S/M/L] : ');readln(symbols);
write('Quantity : ');readln(qty);
if code='Dress Shirt'then
begin
symbols:='S';
size:='Small';
price:=100000;
end
else if code='Dress Shirt'then
begin
symbols:='M';
size:='Medium';
price:=150000;
end
else
begin
symbols:='L';
size:='Large';
price:=200000;
end;
if code='T-Shirt' then
begin
symbols:='S';
size:='Small';
price:=300000;
end
else if code='T-Shirt' then
begin
symbols:='M';
size:='Medium';
price:=350000;
end
else
begin
symbols:='L';
size:='Large';
price:=400000;
end;
if symbols='S' then
symbols:='Small'
else if
symbols='M' then
symbols:='Medium'
else if symbols='L' then
symbols:='Large'
else
symbols:='Null';
totprice:=qty*price;
if qty>5 then
discount:=0.15*totprice
else
discount:=0;
bill:=totprice-discount;
writeln('###### Butik ID ######');
writeln('Clothes : ',code);
writeln('Size : ',size);
writeln('Quantity : ',qty);
writeln('Total Price : Rp. ',totprice);
writeln('-------------------------');
writeln('Billing : Rp. ',bill:2:0);
write('Payment : Rp. ');readln(payment);
cashback:=payment-bill;
writeln('Cash back : Rp. ',cashback:2:0);
readln;
end.
|
vibram 
