我把范围放到32767去了,算到的结果是:
a= 135
b= 352
c= 377

d= 366
f= 366
e= 132

还是那个程序,用了十分钟.

经过修改之后,一下子就算出来了,
是其中的一句算式不知道是不是数值类型的问题,一直识别不了,所以重新修改一下就算出来了,

deflng a-z

n=1000
for a=1 to n
  for b=a to n
    k=a*a+b*b
    c=(a*a+b*b)^0.5
      if c*c=k then
        sl=a+b+c
        for d=sl\4 to sl\2
            e=sl-2*d
            if e<d*2 then
                 'if a*b=e*(d^2-e^2/4)^0.5 then 这一句有问题,不知道是什么回事
                  s1=a*b
                  s2=e*(d*d-e*e/4)^.5
                  if s1=s2 then
                     print a,b,c,d,e
                     end
                 endif
            endif
        next d
       end if
next b,a