用visual foxpro编程求所有100以内的不重复的勾股数组。求程序详细。

追问：怎样加条件使k的范围也在100以内呢？

答案：见下面
? "用visual foxpro编程求所有100以内的不重复的勾股数组。求程序详细。"
t=0
CREATE TABLE gougushu (v1 n(4),v2 n(4),v3 n(4))
FOR j=1 TO 100
  FOR i=1 TO j
    k=SQRT(i*i+j*j)
    IF k=INT(k) then
      t=t+1
      ? "("+ALLTRIM(STR(t))+")",i,j,INT(k)
      INSERT INTO gougushu VALUES (i,j,k)
    ENDIF 
  NEXT
NEXT

上一个：2012年计算机二visual foxpro 成绩何时出?
下一个：怎么使用visual foxpro编程编出一个玫瑰花型，就是用＂*＂来绘制出大概的...