Ngày tải lên :
07/08/2013, 01:25
... chuyển không đẩy hàng, chữ in hoa (E,W,S,N) thể bước di chuyển có đẩy hàng Ví dụ: This image has been resized Click this bar to view the full image The original image is sized 987x274 and weights ... TraceBFS: array[1 max, max] of ShortInt; nHeap: Integer; XS, YS, kD, XD, YD, XR, YR: Integer; res: LongInt; procedure Enter; var f: Text; i, j: Integer; begin FillChar(a, SizeOf(a), '#'); Assign(f, ... Update(pk, px, py); end; end; procedure GetResult; var dis: Integer; k: Integer; begin res := MaxLongInt; for k := to if Valid(k, xS, yS) then begin dis := BFS(xS + dx[k], yS + dy[k], xR, yR, xS,...