ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
ช่วยดูโปรแกรม ราคาสินค้า ซื้อมาก ของถูกลง .. แนะนำด้วยค่ะ
แสดงแล้ว 4723 ครั้ง /
กันยายน 14, 2011, 12:59:48
สมาชิกไม่มีภาพ

cartoonzazz

ออฟไลน์
กระทู้ : 3
คะแนนขอบคุณ : 0
คำนวณยอดเงินที่ลูกค้าต้องการชำระจากการซื้อสินค้าชนิดหนึ่ง สินค้าที่ซื้อมีราคาชิ้นละ 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.

ถูกมั้ยคะ ช่วยแนะนำหน่อยค่ะ ยากจิง  :'(

« แก้ไขครั้งสุดท้าย: กันยายน 14, 2011, 14:03:50 โดย cartoonzazz »

สมาชิกไม่มีภาพ

cartoonzazz

ออฟไลน์
กระทู้ : 3
คะแนนขอบคุณ : 0
กันยายน 14, 2011, 13:12:34
จะไปรอดมั้ยเนี๊ยย วิชานิ  :P
« แก้ไขครั้งสุดท้าย: กันยายน 14, 2011, 14:07:43 โดย cartoonzazz »

 

ด้วยฟังค์ชั่น ตอบด่วน คุณสามารถใช้โค๊ดและ เครื่องหมายแสดงอารมณ์ได้ เหมือนการตั้งกระทู้ธรรมดา แต่สามารถทำได้สะดวกกว่า

ระวัง: หัวข้อนี้ไม่มีการอัพเดทมานานถึง 120 วัน

แจ้งเตือน: โพสของคุณจะไม่แสดงจนกว่าผู้ดูแลจะอนุมัติ.
ชื่อ: อีเมล์: