关于PASCAL的语言的一道程序题

来源：百度知道 编辑：UC知道 时间：2024/05/24 18:10:39
有一个(2N)*(2N)的正方形棋盘,棋盘上有一个直径是2N-1.
圆心在棋盘中心的圆.

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

var
t,n,i,j : longint
r,d : real
begin
repeat
write(`N= __`)
readin(n)
until_____________;
___________;
r:=_____________;
for i :=l 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= _?_`) 输入提示
readin(n)
until___((n>0)AND(n<=50))___; 判断所输入的N是否适合要求0<N<=50
__j:=(2*n-1)/2__;
r:=__j__; 圆的半径
for i :=l to n do begin
d :=sqrt(i*i+j*j); 勾股定理
if__(d<=(2*r))__then t := t+1 正方形的对角线小于等于直径，则该正方形在圆内
end
writeln(__t__) 输出t
end