软件工程

本类阅读TOP10

·PHP4 + MYSQL + APACHE 在 WIN 系统下的安装、配置
·Linux 入门常用命令(1)
·Linux 入门常用命令(2)
·使用 DCPROMO/FORCEREMOVAL 命令强制将 Active Directory 域控制器降级
·DirectShow学习(八): CBaseRender类及相应Pin类的源代码分析
·基于ICE方式SIP信令穿透Symmetric NAT技术研究
·Windows 2003网络负载均衡的实现
·一网打尽Win十四种系统故障解决方法
·数百种 Windows 软件的免费替代品列表
·收藏---行百里半九十

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
九连环算法(pascal)递归实现

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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.



相关文章

相关软件