栈及其应用精讲.pptVIP

PROC Dfs(startX, startY : integer); 初始化栈 Current_x?startX Current_y?startY top?1; s[top]?0; {初始结点入栈} 标记(Current_x, Current_y)为已扩展结点 while top0 do 【 s[top]?st[top]+1 if （s[top]=8）and（按s[top]方向扩展的结点属于海洋区域） and（之前没有扩展过）then 【 Current_x?Current_x+d[s[top], 1] Current_y?Current_y+d[s[top], 2] 标记(Current_x, Current_y)为已扩展结点 top?top+1; s[top]?0 {新结点入栈} 】 else 【 top?top-1 {当前结点退栈} if top0 then 【 Current_x?Current_x – d[s[top], 1] Current_y