UC知道电脑pascal题
来源：百度知道 编辑：UC知道 时间：2024/05/23 17:33:52
圆和正方形
有一个(2N)*(2N)的正方形棋盘，棋盘上有一个直径是2N-1、圆心在棋盘中心的圆。当N = 3时，如下图所示。
以下程序可以计算完全在圆里面小正方形的个数。
键盘输入一个数字N，0 < N <= 50。输出是完全在圆里面小正方形的个数。例如：
输入：N = 3
输出：12
var
t,n,i,j : longint;
r,d : real;
begin
repeat
write('N = ');
readln(n);
until ;
;
r := ;
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( );
end.
有一个(2N)*(2N)的正方形棋盘，棋盘上有一个直径是2N-1、圆心在棋盘中心的圆。当N = 3时，如下图所示。
以下程序可以计算完全在圆里面小正方形的个数。
键盘输入一个数字N，0 < N <= 50。输出是完全在圆里面小正方形的个数。例如：
输入：N = 3
输出：12
var
t,n,i,j : longint;
r,d : real;
begin
repeat
write('N = ');
readln(n);
until ;
;
r := ;
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( );
end.
var
t,n,i,j : longint;
r,d : real;
begin
repeat
write('N = ');
readln(n);
until (n>0) and (n<=50);
t := 0 ;
r := (2*n-1)/2 ;
for i := 1 to n do
for j := 1 to n do begin
d := sqrt(i*i+j*j);
if d <= r then t := t+1;
end;
writeln(t*4);
end.