九连环游戏算法递归实现

/////////////////////////////////////////////

//功能：计算九连环游戏中取下第n个环需要几步

//整个游戏所需步数=取下第1个环所需步数+...+取下第9个环所需步数

//实现方法：通过递归模拟取环动作

//语言：pascal

//时间：1999-05

//作者E-mail:sendtowxd@163.net

//源码天地-专业提供Delphi,VB,VC源码 http://www.codesky.net

////////////////////////////////////////////

program jlh(input,output);

VAR

k,s,i,j,total:integer;

PROCEDURE move(n:integer;VAR s:integer);

VAR

j,i:integer;

BEGIN

IF (n=1) OR (n=2)

THEN s:=s+1

ELSE BEGIN

FOR i:=1 TO n-2 DO

move(i,s);

s:=s+1;

FOR j:=1 TO n-2 DO

move(j,s)

END

END;

BEGIN

k:=0;

write(’input total=’);

read(total);

move(total,k);

writeln;

writeln(’s=’,k)

END.