早教吧作业答案频道 -->数学-->
勾股定理中三个数的关系是a*a+b*b=c*c.编写程序,输出30以内满足上述关系的整数组合.例如3,4,5就是一个满足要求的整数组合Private Sub Command_Click()End Sub
题目详情
勾股定理中三个数的关系是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
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
看了 勾股定理中三个数的关系是a*...的网友还看了以下:
问一道现代控制理论的题已知系统的输入输出方程为试分别求出满足下述要求的状态空间表达式:y‘’+4y 2020-04-26 …
已知A=2X方+7X-1,B=4X+1.分别求出满足下列条件的X的值.1.A与B的值互为相反数.2 2020-04-27 …
已知关于x的方程2x^2+(2k-3)x-k^2=0有两个实根x1和x2.(1)是否存在常数k,使 2020-05-16 …
已知:关于x的方程x2+(8-4m)x+4m2=0.(1)若方程有两个相等的实数根,求m的值,并求 2020-06-12 …
一个四位数怎么求它各个位上的数一个四位数满足如下特征:千位数字+百位数字=十位数字千位数字*百位数 2020-07-29 …
vb编程求救在一个直角三角形中,三条边a、b、c的长度为整数,且一条直角边a的长度已确定,斜边c的 2020-07-30 …
已知关于X的方程X^2+(2-M)X+M^2=0(1)若方程有两个相等的实数根,求M的值,并求出这 2020-08-02 …
若以1234作为双端队列的输入序列,试分别求出满足以下条件的输出序列:(1)能由输入受限的双端队列得 2020-12-05 …
有关同余的非常简单的练习题1^n+2^n+3^n+4^n=0(mod5)(“=”是同余号),求出满足 2020-12-13 …
已知一次函数y1=x+m与反比例函数y2=(m+1)/x(m≠-1)的图象在第一象限内在交点为P(x 2020-12-30 …