主题:!大家来看看狐狸捉兔子问题的这种解法啊
【问题】围绕着山顶有10个洞,狐狸要吃兔子,兔子说:“可以,但必须找到我,
我就藏身于这十个洞中,你从10号洞出发,先到1号洞找,第二次隔1个
洞找,第三次隔2个洞找,以后如此类推,次数不限。”但狐狸从早到晚进
进出出了1000次,仍没有找到兔子。问兔子究竟藏在哪个洞里?
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]
我就藏身于这十个洞中,你从10号洞出发,先到1号洞找,第二次隔1个
洞找,第三次隔2个洞找,以后如此类推,次数不限。”但狐狸从早到晚进
进出出了1000次,仍没有找到兔子。问兔子究竟藏在哪个洞里?
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]