小白兔智斗狐狸。山上有十个洞,每洞之间相距较远,有一只狐狸和一只白兔,住在各自洞里。狡猾的狐狸总想捕捉吃掉白兔。一天二者远远相望,白兔对狐狸说:“把十个洞依次编成
1至
10号,我藏在其中一个洞里,你从你自己住的第
10号洞出发,第一次走一个间隔,进洞找我,第二次走两个间隔找我,第三次走三个间隔找我,依次类推,次数不限。你若能找到我,你就可以饱餐一顿。”狐狸心想,不限次数,它总可以找到这只白兔。如果,从早晨一直找到晚上,也没有寻找到白兔。请算一算白兔可能藏在哪几洞里?
SET TALK OFF
CLEA
DIME m( 10 )
INPUT " 请输入狐狸寻找的次数: " TO N
FOR i = 1 TO 10
m(i) = 0
ENDFOR
k = 0
i = 1
DO WHILE i <= N
k = k + i
l = k - INT(k / 10 ) * 10
IF l = 0
m( 10 ) = m( 10 ) + 1
i = i + 1
LOOP
ENDIF
m(l) = m(l) + 1
i = i + 1
ENDDO
FOR i = 1 TO 10
? " 狐狸进入第 " + STR(i, 2 ) + ;
" 个洞的次数为 " + STR(m(i))
ENDFOR
?
? " 狐狸没有进入过的洞是: "
FOR i = 1 TO 10
IF m(i) = 0
?? STR(i, 3 )
ENDIF
ENDFOR
RETU
算法分析: 狐狸从第10号洞出发,第一次到1号洞,第二次到3号洞,第三次到6号洞,第四次到10号洞...这是一个有关余数的问题。我们设狐狸寻找的次数为n,则这n次中所走过的间隔数就是s=1+2+3+..+N=N(N-1)/2,因为走完10个间隔就转了一圈,所以寻找第n次时进入了哪个洞,就相当于求s除以10所得的余数。我们不妨把10个洞编上0,1,2,3..9这十个号码,狐狸的第10号洞就用0号表示。源程序ex12_1.prg如下:
SET TALK OFF
CLEA
DIME m( 10 )
INPUT " 请输入狐狸寻找的次数: " TO N
FOR i = 1 TO 10
m(i) = 0
ENDFOR
k = 0
i = 1
DO WHILE i <= N
k = k + i
l = k - INT(k / 10 ) * 10
IF l = 0
m( 10 ) = m( 10 ) + 1
i = i + 1
LOOP
ENDIF
m(l) = m(l) + 1
i = i + 1
ENDDO
FOR i = 1 TO 10
? " 狐狸进入第 " + STR(i, 2 ) + ;
" 个洞的次数为 " + STR(m(i))
ENDFOR
?
? " 狐狸没有进入过的洞是: "
FOR i = 1 TO 10
IF m(i) = 0
?? STR(i, 3 )
ENDIF
ENDFOR
RETU