Question

勾股定理三个数的关系是，a ^ 2 + b ^ 2 = c ^ 2.。编写程序，输出30以内满足上述关系的整数组合。

vb编程

Answer 1

递归编程哟，骚年

追问

看不大懂啊，貌似格式不大正确啊！！

Answer 2

for i = 1: 30 ;
for j= 1: 30;
c=sqrt( a^2+b^2);
if abs(c-fix(c))< 0.00001;
then print ( i,j,k)
end if
end
end

追问

看不大懂啊，貌似格式不大正确啊！！

追答

这是matlab的程序

Answer 3

Dim a%, b%, c%
For a = 1 To 30
For b = 1 To 30
For c = 1 To 30
If c ^ 2 = a ^ 2 + b ^ 2 And a < b And b < c And a < c Then
Print a; b; c
Print
End If
Next c
Next b
Next a