九连环游戏算法递归实现
来源:互联网 发布:淘宝学习平台 编辑:程序博客网 时间:2024/04/28 21:37
/////////////////////////////////////////////
//功能:计算九连环游戏中取下第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.
//功能:计算九连环游戏中取下第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.
- 九连环游戏算法递归实现
- 中国传统智力游戏--九连环的递归算法,九连环算法(第1版)
- 九连环-递归解法
- 九连环的递归算法,九连环算法(第2版)
- 九连环的递归算法(C和C++)
- 九连环分析与实现
- 九连环 C语言递归代码
- 九连环的递归算法(C和C++)经验分析
- 九连环
- asp.net 实现“九连环”小游戏
- 用asp.net 实现“九连环” 小游戏
- asp.net实现“九连环”小游戏
- asp.net实现“九连环”小游戏
- asp.net实现“九连环”小游戏
- 用asp.net 实现“九连环” 小游戏
- asp.net 实现“九连环”小游戏
- asp.net 实现“九连环”小游戏
- Asp.net 实现“九连环”小游戏
- 字符串的hash算法
- Android Dalvik 虚拟机
- 关于WSAEWOULDBLOCK
- 有关Matlab 中的Simulink 自动生成DSP可运行的C代码 的问题
- 输入框中按回车相当按TAB(兼容多浏览器)
- 九连环游戏算法递归实现
- hdu3336Count the string
- 请输入关键字
- 线程函数pthread_cancel
- 计算机体系结构之内存讲解
- (转)2012年度最佳Web前端开发工具和框架
- sql2008收缩日志
- LeetCode:Merge Two Sorted Lists
- java异常处理