作业帮 > 数学 > 作业

勾股定理中三个数的关系是a*a+b*b=c*c.编写程序,输出30以内满足上述关系的整数组合.例如3,4,5就是一个满足

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/18 05:31:08
勾股定理中三个数的关系是a*a+b*b=c*c.编写程序,输出30以内满足上述关系的整数组合.例如3,4,5就是一个满足要求的整数组合
Private Sub Command_Click()
End Sub
既然是组合,那就应该考虑到排列不同但相同组合,1楼的有大量的重复,而且,效率很低,如果你要找的是100以内,那就相当慢了,我改进了一下:用2重循环来做
Private Sub Command1_Click()
Dim Max As Integer,I As Integer,J As Integer,K
Max = 30
For I = 3 To Max - 2
For J = I + 1 To Max - 1
K = Sqr(I ^ 2 + J ^ 2)
If K = Int(K) And K