- เข้าสู่ระบบล่าสุด
- 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
|
ให้นิสิตเขียนโปรแกรมหาค่า ครน. ของเลข 2 ตัว โดยให้รับค่าตัวเลขสองเข้ามาเก็บไว้ในตัวแปร x,y จากนั้นให้นิสิตใช้วิธีการเขียนโปรแกรมแบบใดก็ได้เพื่อหาค่า ครน. ของเ้จ้าเลขทั้ง 2 ตัว นั้นออกมาโดยใช้คำสั่ง Loop While
ปล. ครน. ก็คือ เลขตัวใดตัวหนึ่งที่ x กับ y นั้นหารลงตัวเหมือนกัน
- Module Example
- Dim i, x, y As Integer
- Sub Main()
- i = 1
- Console.Write("Enter number x : ")
- x = Console.ReadLine()
- Console.Write("Enter number y : ")
- y = Console.ReadLine()
- While (1)
- If i Mod x = 0 AndAlso i Mod y = 0 Then
- Console.WriteLine("Answer = " & i)
- Exit While
- End If
- i += 1
- End While
- End Sub
- End Module
ผลรัน
|
|
