九连环算法（pascal）递归实现

最新推荐文章于 2024-04-22 21:23:16 发布

neupioneer

最新推荐文章于 2024-04-22 21:23:16 发布

阅读量913

点赞数

分类专栏： ACM/ICPC 文章标签： pascal 算法 integer input output

本文链接：https://blog.csdn.net/neupioneer/article/details/114597

版权

ACM/ICPC 专栏收录该内容

15 篇文章 0 订阅

订阅专栏

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.