有哪些信誉好的足球投注网站- 1、本文档共71页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
队列的基础知识ok
分析问题 判断及输出 Procedure print(q:queue;r:longint); Begin i:=r; repeat writeln(‘(‘,q[i].x,’,’,q[i].y,’)’); i:=q[i].pre until i=0； End; begin read(x,y,z); First.x:=x; First.y:=0; First.pre:=0; Qini(q,f,r); Qadd(q,f,r,first); for i:=0 to x do for j:=0 to y do hash[I,j]:=true; hash[x,0]:=false; flag:=false; While (fr) and not flag do Begin qdel(q,f,r,front); x1:=front.x;y1:=front.y; for p:=1 to 6 do begin case p of 1:f1(q,x1,y1); 2:f2(q,x1,y1); 3:f3(q,x1,y1); 4:f4(q,x1,y1); 5:f5(q,x1,y1); 6:f6(q,x1,y1); End; end; If flag then print else writeln(‘no found’) End. 从x壶向y壶倒酒 Procedure f1(var q:queue;x1,y1:longint); Begin if (x10)and(y1y) then begin if x1+y1y then begin rear.x:=x1+y1-y; rear.y:=y; rear.pre:=f;end else begin rear.y:=y1+x1; rear.x:=0; rear.pre:=f; end; if hash[rear.x,rear.y] then begin qadd(q,f,r,rear); hash[rear.x,rear.y]:=false; if rear.y=z then flag:=true; end; end; End; 从y壶向x壶倒酒 Procedure f2(var q:queue;x1,y1:longint); Begin if (y10)and(x1x) then begin if x1+y1x then begin rear.y:=x1+y1-x; rear.x:=x; rear.pre:=f;end else begin rear.x:=y1+x1; rear.y:=0; rear.pre:=f; end; if hash[rear.x,rear.y] then begin qadd(q,f,r,rear); hash[rear.x,rear.y]:=false; if rear.y=z then flag:=true;
文档评论（0）