ดูโปรแกรมนี่ให้หน่อยครับ ปาสคาล
โจทย์ จงกำหนด และวิเคาะห์ปัญหา ออกแบบอัลกอริทึม และเขียนโปรแกรมด้วยปาสคาล ของโปรแกรมในการรับค่าจำนวนเงินบาทที่ไม่มีเศษสตางค์จากผู้ใช้ทางแป้นพิมพ์ และให้แสดงว่าจำนวนเงินที่ป้อนจะต้องใช้ธนบัตรในละ 1000,500,100,50,20,10,และเหรียญ 5,1 เป็นจำนวนอย่างละเท่าไหร่
ทำไมรันไม่ได้อ่ะถ้าใส่เป็น 34569 อะครับดูหน่อยซิ
CODE Program change; Uses Crt; Var money,b1000,b500,b100,b50,b20,b10,b5,b1 : integer; Begin Clrscr; Writeln ('============================================'); Writeln ('|| Change Money ||'); Writeln ('============================================'); Write ('Enter Money : '); Readln(money); b1000 := money div 1000; b500 := money mod 1000 div 500; b100 := money mod 500 div 100; b50 := money mod 100 div 50; b20 := money mod 50 div 20; b10 := money mod 20 div 10; b5 := money mod 10 div 5; b1 := money mod 5 div 1; Writeln ('============================================'); Writeln (' 1000 : ',b1000); Writeln (' 500 : ',b500); Writeln (' 100 : ',b100); Writeln (' 50 : ',b50); Writeln (' 20 : ',b20); Writeln (' 10 : ',b10); Writeln ('============================================'); Readln;
End.
|