set talk off
clear
public num
num=0
input "金片数量：" to n
do haoni with n,"A","B","C"
?"总移动次数为:",num
set talk on
return

proce haoni
para m,ca,cb,cc
if m=1
    do mymove with ca,cc
else
    do haoni with m-1,ca,cc,cb
    do mymove with ca,cc
    do haoni with m-1,cb,ca,cc
endif
return
endproc

proce mymove
para ca,cc
num=num+1
?m-1,ca,cc,cb
?ca,cc
?m-1,cb,ca,cc
return
endproc
运行时，那些ABC是什么意思啊 还有怎么是0ABC或者1
m-1怎么是那样

[ 本帖最后由 qq252649272 于 2010-5-20 01:03 编辑 ]

这些都是变量名，是传递给程序（也可以说是自定义函数）的参数。

怎么来的啊
详细解释下咯
谢谢

详细解释下为什么要这样写咯
谢谢
我是大一新生，想学习下

本人理解：
 set talk off
 clear
 public num
 num=0
 input "金片数量：" to n

 do haoni with n,"A","B","C"     && 第1行参数
 ?"总移动次数为:",num
 set talk on
 return

 proce haoni                     && 执行换位   
 para m,ca,cb,cc &&              && 第2行参数 首次代入 m=n,ca="A",cb="B",cc="C"
  if m=1
     do mymove with ca,cc        && 参数的显示
  else
     do haoni with m-1,ca,cc,cb  && 2次代入 m=m-1,ca=ca,cb=cc,cc=cb 2行同位参数=本行的参数,再执行换位
     do mymove with ca,cc        && 参数的显示
     do haoni with m-1,cb,ca,cc  && 3次代入 m=m-1,ca=cb,cb=ca,cc=cc 2行同位参数=本行的参数 再执行换位
 endif
return
endproc

 proce mymove && 参数的显示
 para ca,cc
 num=num+1
 ?m-1,ca,cc,cb && m-1 显示 0 时,类似于显示大写字母 'O' (美观吧,否则 1 太多啦)
 ?ca,cc
 ?m-1,cb,ca,cc
 return
 endproc

补充：
第1行参数是将参数传递给自定义函数，第2行参数是自定义函数接收传递过来的参数。

m-1怎么不是从n那一直减小显示下来
都是1，01，0

个人理解：在执行过程 do haoni (参数换位传递吧)中，如果 m>1时,会继续重复执行 proce haoni，一直到 m=1 时，才执行 do mymove 显示，跳出  if .. endif 的条件。所以，显示的 m-1 值必然从 0 开始。  
实际上， m>1 时，else 后面的第2句 do mymove with ca,cc 与第3句 do haoni with m-1,cb,ca,cc 是相当于若干个相同的过程模块，排在了一起，从第1个模块开始执行，一直到到最后一个模块为止。   

[ 本帖最后由 qingfameng 于 2010-5-23 10:26 编辑 ]