勾股定理中三个数的关系是a*a+b*b=c*c。编写程序,输出30以内满足上述关系的整数组合。
来源:百度知道 编辑:UC知道 时间:2024/08/22 02:28:00
勾股定理中三个数的关系是a*a+b*b=c*c。编写程序,输出30以内满足上述关系的整数组合。例如3,4,5就是一个满足要求的整数组合
Private Sub Command_Click()
End Sub
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 <= Max Then Print I, J, K
Next
Next
End Sub
Private Sub Command1_Click()
Dim n
dim I
dim J
dim k
n=inputbox(输入n值)
For I = 3 To n - 2
For J = I + 1 To n - 1
K = Sqr(I ^ 2 + J ^ 2)
If K = Int(K) And K <=n Then Print I, J, K
Next
Next
End Sub
想找多少以内就是多少
form1.show
for a=1 to 30
for b=1 to 30
for c=1 to 30
if a^2+b^2=c^2 then
print a,b,c
next c
next b
next a
从键盘输入三个数放在数组a[3]中,要求输出最大的数?
已知b是a与c的等差中项 lg(b-5)是lg(a-1)与lg(c-6)的等差中项 又a b c 三数之和为33 求这三个数
要求从屏幕上输入三个数A,B,C输出这三个数中最大的一个来
A.B两数的最大公约数是12.最小公倍数是72.且A.B不是倍数关系.求A.B
a的相反数是负A,A是啥子数
a b c 都是正数 a+b+c=2 abc=4 求a b c 三个数中最大数的最小值
A、B、C三个数,A、B的最大公约数是18,B、C的最大公数是15,A、B、C的最大公约数是多少?为什么?谢谢!
三个不同的正整数a,b,c,使a b c=133,且任意两个数的和都是完全平方数,则a,b,c是 .
a.b.c三个数,a与b的和是18,b与c的和是26,则
从键盘输入三个数放在数组a[3]中,然后从小到大的顺序输出?