【程序3】题目：一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？
【程序3】
题目：一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？
1.程序分析：在10万以内判断，先将该数加上100后再开方，再将该数加上268后再开方，如果开方后的结果满足如下条件，即是结果。请看具体分析：
2.程序源代码：
＃i nclude "math.h"
main()
{
long int i,x,y,z;
for (i=1;i<100000;i++)
{ x=sqrt(i+100); /*x为加上100后开方后的结果*/ y=sqrt(i+268); /*y为再加上168后开方后的结果*/ if(x*x==i+100&&y*y==i+268)/*如果一个数的平方根的平方等于该数，这说明此数是完全平方数*/ printf("\n%ld\n",i);
}
}
第1个回答 2013-01-30
pascal版
var
i,n,f,k:longint;
a:array[1..100000] of longint;
f:boolean;
begin
f:=0;
i:=1;
while i*i<=100000 do
begin
inc(f);
a[f]:=i*i;
inc(i);
end;
for i:=1 to 100000 do
for j:=1 to f do
if a[j]=i+100 then
begin
for k:=1 to f do
if a[j]=i+268 then
begin
write(' ',i);
f2:=true;
break;
end;
if f=true then break;
end;
end.
var
i,n,f,k:longint;
a:array[1..100000] of longint;
f:boolean;
begin
f:=0;
i:=1;
while i*i<=100000 do
begin
inc(f);
a[f]:=i*i;
inc(i);
end;
for i:=1 to 100000 do
for j:=1 to f do
if a[j]=i+100 then
begin
for k:=1 to f do
if a[j]=i+268 then
begin
write(' ',i);
f2:=true;
break;
end;
if f=true then break;
end;
end.
相似回答
