递归转非递归 [复制链接]

下面的程序如何转非递归?
给n个数,要求取任意几个数相加得m


var m,n,m2,i,n2:integer;
  a:array[1..10]of integer;
  b:array[1..10]of boolean;
procedure next(m2,k:integer);
begin
  if k>n then
    begin
    if m2=m then
    begin
      inc(n2);
      for i:=1 to n do
        if b then write(a,' ');
      writeln;
    end;
    end
  else
    begin
    next(m2,k+1);
    b[k]:=true;
    next(m2+a[k],k+1);
    b[k]:=false;
    end;
end;
begin
readln(m,n);
for i:=1 to n do
  begin
    read(a);
    b:=false;
  end;
n2:=0;
next(0,1);
writeln('zu shu:',n2);
end.

情况紧急啊

SOS!!!!!!!!!!!!!!!!!!!!!!!!!!!!

回复啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

555555555555555555555555555~~~~~~~~~~~~~~~~~

正在想

......

苍天啊,帮忙啊

终于编好了

var m,n,m2,i,n2,k:integer;
  a:array[1..10]of integer;
  b:array[1..10]of boolean;
function pan:boolean;
var i:integer;
begin
  pan:=false;
  for i:=1 to n do
    if not(b) then pan:=true;
end;
begin
readln(m,n);
for i:=1 to n do
  begin
    read(a);
    b:=false;
  end;
n2:=0;
k:=1;
while pan do
  begin
    while k=n do
    begin
      m2:=0;
      for i:=1 to n do
        if b then inc(m2,a);
      if m2=m then
        begin
        for i:=1 to n do
          if b then write(a,' ');
        writeln;
        inc(n2);
        end;
      if not(pan) then
        begin
        writeln(n2);
        halt;
        end;
      while b[k]=true do
        begin
        b[k]:=not(b[k]);
        k:=k-1;
        end;
      b[k]:=true;
    end;
    k:=k+1;b[k]:=false;
  end;
end.
(部分,[k]发上去就没了,请见谅,希望坛主早日修复次bug)

[ 此贴被haiwei在2007-07-02 15:49重新编辑 ]