ตัวอย่างโปรแกรมหา ครน. ของเลข 2 ตัว ด้วย Loop While Loop While

ให้นิสิตเขียนโปรแกรมหาค่า ครน. ของเลข 2 ตัว โดยให้รับค่าตัวเลขสองเข้ามาเก็บไว้ในตัวแปร x,y จากนั้นให้นิสิตใช้วิธีการเขียนโปรแกรมแบบใดก็ได้เพื่อหาค่า ครน. ของเ้จ้าเลขทั้ง 2 ตัว นั้นออกมาโดยใช้คำสั่ง Loop While
ปล. ครน. ก็คือ เลขตัวใดตัวหนึ่งที่ x กับ y นั้นหารลงตัวเหมือนกัน

1. Module Example
   
2.     Dim i, x, y As Integer
   
3.     Sub Main()
   
4.         i = 1
   
5.         Console.Write("Enter number x : ")
   
6.         x = Console.ReadLine()
   
7.         Console.Write("Enter number y : ")
   
8.         y = Console.ReadLine()
   
9. 
   
10.         While (1)
    
11.             If i Mod x = 0 AndAlso i Mod y = 0 Then
    
12.                 Console.WriteLine("Answer = " & i)
    
13.                 Exit While
    
14.             End If
    
15.             i += 1
    
16.         End While
    
17.     End Sub
    
18. 
    
19. End Module

คัดลอกไปที่คลิปบอร์ด

ผลรัน

2009-12-27 19:45

แบบนี้นี่เอง งมตั้งนาน งมหาโจทย์หน่ะ ห้าๆ ลืมๆ

ขอถามไรมั่งดิ่ ว่า ใส่รูปลายเว็นไงหว่า ไมใส่ไม่ได้ เซงๆ

อ๋อ...  แบบนี้เหรอ

อืม  แบบนี้หรอ