คำนวณยอดเงินที่ลูกค้าต้องการชำระจากการซื้อสินค้าชนิดหนึ่ง สินค้าที่ซื้อมีราคาชิ้นละ 50 บาท
แต่หากซื้อในปริมาณมาก ทางร้านจะขายในราคาที่ถูกลงดังนี้
จำนวนสินค้า ราคาต่อชิ้น
1- 10 50 บ.
11 – 100 45บ.
101 – 1,000 40บ.
มากกว่า 1,000 ขึ้นไป 30บ.
[/color]
program buyGoods;
uses crt;
var goods:integer;
amount :integer;
begin
clrscr;
write('Input the amount you purchase = ');
readln(amount);
clrscr;
writeln('Your goods = ',amount,');
case amount of
1..10:writeln('50');
11..100:writeln('45');
101..1000:writeln('40');
1000... :writeln('30');
else
writeln('thank you');
end;
readln;
end.
ถูกมั้ยคะ ช่วยแนะนำหน่อยค่ะ ยากจิง
