Do While (r 0) ←特别这个(r0)!m = n:n = r r = m Mod n Loop

Do While (r 0) ←特别这个(r0)!m = n:n = r r = m Mod n Loop

题目
Do While (r 0) ←特别这个(r0)!m = n:n = r r = m Mod n Loop
Do While (r 0) ←特别这个(r0)!
m = n:n = r
r = m Mod n
Loop
答案
这是一个利用辗转相除求两个数m和n最大公约数的程序中的一段,其中这一段是最中心的算法.
完整的求m和n的最大大约数的程序如下:
Private Sub Command1_Click()
Dim m As Integer
Dim n As Integer
Dim r As Integer
m = InputBox("请输入一个正整数m:")
n = InputBox("请输入一个正整数n:")
If m < n Then
temp = m
m = n
n = temp
End If
r = m Mod n
Do While r 0 'r = m Mod n,即两数相除的余数,余数为0时将不再循环,不为0时一起除下去
m = n
n = r
r = m Mod n
Loop
Print n
End Sub
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
热门考点

超级试练试题库

© 2017-2019 超级试练试题库,All Rights Reserved.