（一開始dep=1,y=1)procedure search(dep,y,tot:longint);beginif tot<0 then exit;if sum[dep,y]<tot then exit;if tot=0 thenbegincheck;exit;end;if dep>5 then exit;if y=5 then search(dep+1,1,tot)else search(dep,y+1,tot);map[dep,y]:=true;if y=5 then search(dep+1,1,tot-1)else search(dep,y+1,tot-1);map[dep,y]:=false;end;這里的第一個遞歸：if y=5 then search(dep+1,1,tot)else search(dep,y+1,tot);map[dep,y]:=true;當你開始search(dep,y+1,tot)后，后面的map[dep,y]:=true;還要執(zhí)行么，如果要，這是執(zhí)行的dep和y的值會是原來的值（dep,y)，還是現(xiàn)在的值（dep,y+1),如果是（dep,y+1)話，是每遞歸一次就執(zhí)行一次map[dep,y]:=true;還是等到y(tǒng)=5再執(zhí)行這一步呢，我希望得到詳細的解釋，謝謝了！最好是每一步是什么樣，都能做出具體的解和解釋，謝謝了！如果不行的話，可以解釋一下這個程序，這個會比較完整例1.用順序存儲方式建立一棵有31個結(jié)點的滿二叉樹，并對其進行先序遍歷。program erchashu1;var b:array[1..31] of char;e:array[1..63] of byte;n,h,i,k:integer;procedure tree(t:integer);beginif e[t]=0 then exitelsebeginwrite(b[t]);e[t]:=0;t:=2*t;tree(t);（也是在這里出問題，不太懂，當t=2是，tree(t)是不是t:=t+1;tree(t); 會一直遞歸下去，然后再執(zhí)行t:=t+1,但這時肯定會過end; ，我知道我說的不太對，請您以當N=3時一步一步解釋end; ，謝謝了beginrepeatwrite('n=');readln(n);until (n>0) and (n<6);fillchar(e,sizeof(e),0);k:=trunc(exp(n*ln(2)))-1;for i:=1 to k do e[i]:=1;for i:=1 to 26 do b[i]:=chr(64+i);for i:=1 to 5 do b[26+i]:=chr(48+i);h:=1 ;tree(h);writeln;end.
1 回答
ABOUTYOU
TA貢獻1812條經(jīng)驗 獲得超5個贊
我對PASCAL語言了解不太多，所以回答的可能有點問題，湊合著看吧，呵呵
第一題：
map[dep,y]:=true;是執(zhí)行原來的y值，因為search（）的參數(shù)為形參，是傳值的，所以函數(shù)結(jié)束后不會改變參數(shù)的值，
第二題：
二叉樹的PASCAL語言表示我沒看過，就淺淺的分析一下吧，當t=2時，執(zhí)行t=t*2,就是就是尋找左孩子，執(zhí)行tree(t),這時當然不會一直遞歸下去，因為tree()函數(shù)中有這樣一條語句if e[t]=0 then exit；當t達到上限時，就沒有節(jié)點了，這就保證了遞歸會及時的退出（當沒有孩子時）。找完左孩子，再找右孩子，t:=t+1;tree(t)，原理同上，當沒有孩子時退出。
再說下我的感受，其實簡單遞歸是很好理解的，也很好寫，但是遞歸中有難題是非常繁瑣的，遞歸的思想還是很重要的，建議先從簡單的遞歸學起，抓住要害，再向高級遞歸前進
- 1 回答
- 0 關(guān)注
- 184 瀏覽
添加回答
舉報
0/150
提交
取消