- เข้าสู่ระบบล่าสุด
- 2011-10-20
- เวลาออนไลน์
- 37 ชั่วโมง
- จิตพิศัย
- 64
- Money
- 51
- สมัครสมาชิกเมื่อ
- 2009-12-20
- สิทธิ์ในการอ่าน
- 200
- โพสต์
- 136
- กระทู้
- 45
- สำคัญ
- 0
- เครดิต
- 64
- UID
- 2
 
- Money
- 51
- จิตพิศัย
- 64
- สมัครสมาชิกเมื่อ
- 2009-12-20
- เครดิต
- 64
- โพสต์
- 136
|
แก้ไขล่าสุด noom เมื่อ 2009-12-27 16:54
จงเขียนโปรแกรมแลกธณบัตรฉบับละ 100 บาท โดยรับจำนวนเงินเข้ามา จากนั้นให้ดปรแกรมแสดงออกมาว่าเงินจำนวนเท่านั้น สามารถแลกเปลี่ยนเป็นธนบัตรละ 100 บาท ได้ทั้งหมดกี่ฉบับ และคงเหลืออีกกี่บาทที่แลกไม่ได้ โดยโปรแกรมจะวนถามเรื่อยๆ จนกว่า user จะกรอกเลข -1 เข้ามาในระบบ โปรแกรมถึงจะจบการทำงาน โดยใช้คำสั่ง loop while
- Module LoopWhile
- Dim n100, money As Integer
- Sub Main()
- Console.Write("Enter money (-1 for exit) : ")
- money = Console.ReadLine()
- While (1)
- n100 = money \ 100
- money = money Mod n100
- If money = -1 Then
- Exit While
- End If
- Console.WriteLine("Note 100 = " & n100)
- Console.WriteLine("Rest = " & money)
- Console.Write("Enter money (-1 for exit) : ")
- money = Console.ReadLine()
- End While
- End Sub
- End Module
ผลรัน
|
|
