您所在位置：主题：！大家来看看狐狸捉兔子问题的这种解法啊
菜鸟种菜
[专家分：50] 发布于 2005-08-18 10:51:00
【问题】围绕着山顶有１０个洞，狐狸要吃兔子，兔子说：“可以，但必须找到我，
我就藏身于这十个洞中，你从１０号洞出发，先到１号洞找，第二次隔１个
洞找，第三次隔２个洞找，以后如此类推，次数不限。”但狐狸从早到晚进
进出出了１０００次，仍没有找到兔子。问兔子究竟藏在哪个洞里？
program tuzi;
var
a:array[1..100] of integer;
i,n:integer;
begin
for i:=1 to 10 do a[i]:=0;
i:=10;n:=1;
while n<=1000 do
begin
i:=(i+n-1) mod 10 +1;
a[i]:=1;n:=n+1;
end;
for i:=1 to 10 do
if a[i]=0 then writeln('home'i:3);
end.
i:=(i+n-1) mod 10 +1; 这句不懂~~~~~~~
[em10][em10][em10]
我就藏身于这十个洞中，你从１０号洞出发，先到１号洞找，第二次隔１个
洞找，第三次隔２个洞找，以后如此类推，次数不限。”但狐狸从早到晚进
进出出了１０００次，仍没有找到兔子。问兔子究竟藏在哪个洞里？
program tuzi;
var
a:array[1..100] of integer;
i,n:integer;
begin
for i:=1 to 10 do a[i]:=0;
i:=10;n:=1;
while n<=1000 do
begin
i:=(i+n-1) mod 10 +1;
a[i]:=1;n:=n+1;
end;
for i:=1 to 10 do
if a[i]=0 then writeln('home'i:3);
end.
i:=(i+n-1) mod 10 +1; 这句不懂~~~~~~~
[em10][em10][em10]
