pascal程序填空,在线等

来源:百度知道 编辑:UC知道 时间:2024/05/17 09:19:38
圆和正方形
有一个(2N)*(2N)的正方形棋盘,棋盘上有一个直径是2N-1、圆心在棋盘中心的圆。

以下程序可以计算完全在圆里面小正方形的个数。
键盘输入一个数字N,0 < N <= 50。输出是完全在圆里面小正方形的个数。例如:
输入:N = 3
输出:12

var
t,n,i,j : longint;
r,d : real;
begin
repeat
write('N = ');
readln(n);
until (n〉=0)and(n〈=50);
t:=0 ;
r := 3.14 ;
for i := 1 to n do
for j := 1 to n do begin
d := sqrt(i*i+j*j);
if( )then t := t+1;
end;
writeln( t );
end.

这个题目有问题吧?
看样例:N=3 时
for i := 1 to n do
for j := 1 to n do begin
d := sqrt(i*i+j*j);
if( )then t := t+1;
end;
最多 执行 3*3=9 次 既 T<=9 而答案是12
所以要么是程序有问题,要么是样例有问题

这个题目有问题
n=3
111111
100001
100001
100001
100001
111111
t=16