已知小列各点之间的通向问题，请用程序打印0至N（N由键盘输入）的所有走法
1————→3-----------→5------→9
↑、        ↑、      ↑、       ↑
|   、      |   、     |  、      |
|     、    |     、   |    、    |
|       、  |      、  |      、  |
|         、|        、|        、|
0————→2————→4———----→8
提示：用一个10*10的数字矩阵（定义一个二维数组）来存放各点之间的相同情况，然后用递归一点往一点逐步展开，到目标点为止。如：我们定义的下列二维数组常量就说明了任意两点之间是否相同：
const a:=array[0..9,0..9] of integer=((1,1,0,0,0,0,0,0,0),
                                      (0,1,1,0,0,0,0,0,0),
                                      (0,0,1,1,0,0,0,0,0),
                                      (0,0,0,1,1,0,0,0,0),
                                      (0,0,0,0,1,1,0,0,0),
                                      (0,0,0,0,0,1,1,0,0),
                                      (0,0,0,0,0,0,1,1,0),
                                      (0,0,0,0,0,0,0,1,1),
                                      (0,0,0,0,0,0,0,0,0),
帮帮忙啊······高手！！！！

老师刚刚告诉我们的答案：
var total:integer;
procedure dg(x:integer;s:string);
  var y:integer;
      y1:string;
  begin
    if x=9 then begin
       inc(total);
       writeln(total,':',copy(s,1,length(s)-1));
    end else begin
      if x=8 then dg(9,s+'9'+'-')
      else begin
        for y:=x+1 to x+2 do begin
          str(y,y1);
          dg(y,s+y1+'-');
        end;
      end;
    end;
  end;
begin
  total:=0;
  dg(0,'');
end.

a











..................................

好难呀~都没有看懂~

var a,n,b,l,m,y:longint;
    s,s3,s1:string;
begin
s:='';
l:=0;
readln(n,m);
  for a:=1 to n do s:=s+'1';
  repeat
  for b:=1 to n do begin
  if s[b]<>'0' then l:=l+1;
   if l=m then begin
   s[b]:='0';
   str(b,s3);
   s1:=s1+s3+'->';
   l:=0;
    end;
  end;
  val(s,y);
  until y=0;
  writeln(copy(s1,1,length(s1)-2));
  writeln;
end.

好简单啊。。。。。

[em10]
我头晕了

同上.....

[em6][em6]
你给他30分干吗？？？？？？？？？？？？？？？？？？？？？？？？

[fly][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][/fly]