注册 登录
编程论坛 VB6论坛

编写程序,求出一百以内的所有勾股数。

dsq_0 发布于 2013-03-18 19:08, 1201 次点击
编写程序,求出一百以内的所有勾股数。
for a = 1 to 100
 for b = a to 100
  c = sqr( a * a + b * b )
  if c = fix( c ) and c <= 100 then print a,b,c
 next b
next a


这样是否可以?
2 回复
#2
风吹过b2013-03-19 08:33
为什么要加上 FIX 函数??

你取得C 后,再验算一下就是了。
if c*c=a*a+b*b and C<=100  then print a,b,c
你 a,b,c 都要定义为整数类型。
#3
dsq_02013-03-19 20:26
c = sqr( a * a + b * b )
所以C不能是整型,只能是Double
1