作业帮Free Pascal语言回答
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/08 01:36:00
Free Pascal语言回答
其平方等于某两个正整数平方之和的正整数称为弦数.例如,由于32+42=52,因此5为弦数.求[121,130]之间：（1）弦数数目；（2）最小的弦数；（3）最大的弦数.
其平方等于某两个正整数平方之和的正整数称为弦数.例如,由于32+42=52,因此5为弦数.求[121,130]之间：（1）弦数数目；（2）最小的弦数；（3）最大的弦数.
var
a,b,i,j,top:longint;
s:array[1..100] of longint;
begin
a:=121;b:=130;
top:=0;
for i:=a to b do
for j:=1 to i-1 do
if frac(sqrt(sqr(i)-sqr(j)))=0 then
begin
inc(top);
s[top]:=i;
break;
end;
writeln(top,' ',s[1],' ',s[top]);
end.
//（1）：top （2）s[1] （3）s[top]
再问： 能不能解释一下
再答： var a,b,i,j,top:longint; s:array[1..100] of longint;//储存找到的弦数 begin a:=121;b:=130; top:=0; for i:=a to b do//一个个找 for j:=1 to i-1 do//j是其中一个正整数 if frac(sqrt(sqr(i)-sqr(j)))=0 then//另一个数是不是整数 begin inc(top); s[top]:=i;//加入s数组 break; end; writeln(top,' ',s[1],' ',s[top]); end. //（1）：top （2）s[1] （3）s[top]
a,b,i,j,top:longint;
s:array[1..100] of longint;
begin
a:=121;b:=130;
top:=0;
for i:=a to b do
for j:=1 to i-1 do
if frac(sqrt(sqr(i)-sqr(j)))=0 then
begin
inc(top);
s[top]:=i;
break;
end;
writeln(top,' ',s[1],' ',s[top]);
end.
//（1）：top （2）s[1] （3）s[top]
再问： 能不能解释一下
再答： var a,b,i,j,top:longint; s:array[1..100] of longint;//储存找到的弦数 begin a:=121;b:=130; top:=0; for i:=a to b do//一个个找 for j:=1 to i-1 do//j是其中一个正整数 if frac(sqrt(sqr(i)-sqr(j)))=0 then//另一个数是不是整数 begin inc(top); s[top]:=i;//加入s数组 break; end; writeln(top,' ',s[1],' ',s[top]); end. //（1）：top （2）s[1] （3）s[top]