您所在位置：主题：求勾股数问题
googjje
[专家分：0] 发布于 2011-10-28 14:21:00
勾股数是指像3，4，5这样满足x*x+y*y=z*z的数组。求小于一千的勾股数。
下面是我编写的pascal，不知道为什么不能输出。
program gougu(input,output);
Var x,y,z,i,n:real;
begin
x:=1;
y:=1;
while x<1000 do begin
while y<1000 do begin
i:=x*x+y*y;
n:=sqrt(i);
if z=round(n) then
begin
write(x,y,z);
end;
y:=y+1;
end;
x:=x+1;
end;
readln
end.
每个x都与y有序组合，然后验证。
然后输出正确的数组。
下面是我编写的pascal，不知道为什么不能输出。
program gougu(input,output);
Var x,y,z,i,n:real;
begin
x:=1;
y:=1;
while x<1000 do begin
while y<1000 do begin
i:=x*x+y*y;
n:=sqrt(i);
if z=round(n) then
begin
write(x,y,z);
end;
y:=y+1;
end;
x:=x+1;
end;
readln
end.
每个x都与y有序组合，然后验证。
然后输出正确的数组。
