{"id":1105,"date":"2014-11-02T01:49:45","date_gmt":"2014-11-01T17:49:45","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=1105"},"modified":"2014-11-02T01:53:59","modified_gmt":"2014-11-01T17:53:59","slug":"%e9%80%92%e5%bd%92%e7%9a%84%e5%ba%94%e7%94%a8-%e7%bb%8f%e5%85%b8%e7%9a%84%e6%b1%89%e8%af%ba%e5%a1%94%e6%bc%94%e7%a4%ba","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=1105","title":{"rendered":"\u9012\u5f52\u7684\u5e94\u7528-\u7ecf\u5178\u7684\u201c\u6c49\u8bfa\u5854\u201d\u6f14\u793a"},"content":{"rendered":"

\u201c\u6c49\u8bfa\u5854\u201d\u662f\u4e00\u4e2a\u7531\u6570\u5b66\u5bb6\u7231\u5fb7\u534e\u00b7\u5362\u5361\u65af\u4e8e1883\u5e74\u53d1\u660e\u7684\u4e00\u4e2a\u975e\u5e38\u8457\u540d\u7684\u6e38\u620f\u3002\u6e38\u620f\u7684\u5185\u5bb9\u662f\uff0c\u6709\u4e09\u6839\u7ec6\u67f1\uff08A,B,C)\uff0cA\u67f1\u4e0a\u5957\u77406\u4e2a\u5706\u76d8\u3002\u8fd9\u4e9b\u5706\u76d8\u5927\u5c0f\u5404\u5f02\uff0c\u6309\u4ece\u5927\u5230\u5c0f\u7684\u987a\u5e8f\u81ea\u4e0b\u800c\u4e0a\u6446\u653e\u3002\u5982\u4e0b\u56fe\u6240\u793a\u3002<\/p>\n

\"0001\"<\/a><\/p>\n

\uff08\u56fe\u4e0a\u767d\u8272\u9ed1\u6846\u7684\u4ee3\u8868\u5706\u76d8\uff09<\/p>\n

\u73b0\u5728\u8981\u628a\u5957\u5728A\u4f4f\u4e0a\u76846\u4e2a\u5706\u76d8\u5168\u90e8\u79fb\u5230B\u67f1\u4e0a\u3002\u5e76\u4e14\u5728\u79fb\u52a8\u5706\u76d8\u65f6\u987b\u9075\u5b88\u4e0b\u8ff0\u89c4\u5219\uff1a<\/p>\n

    \n
  1. \u00a0\u4e00\u6b21\u53ea\u80fd\u79fb\u52a8\u67f1\u5b50\u6700\u4e0a\u7aef\u7684\u4e00\u4e2a\u5706\u76d8\u3002<\/li>\n
  2. \u00a0\u5c0f\u5706\u76d8\u4e0a\u4e0d\u80fd\u653e\u5927\u5706\u76d8\u3002<\/li>\n<\/ol>\n

    \u5c061\u4e2a\u5706\u76d8\u4ece\u4e00\u6839\u67f1\u5b50\u79fb\u5230\u53e6\u4e00\u6839\u67f1\u5b50\uff0c\u7b97\u79fb\u52a8\u201c1\u6b21\u201d\u3002\u90a3\u4e48\uff0c\u5c066\u4e2a\u5706\u76d8\u5168\u90e8\u4eceA\u79fb\u5230B\u9700\u8981\u79fb\u52a8\u51e0\u6b21\u5462\uff1f\uff08\u5927\u5bb6\u53ef\u4ee5\u5148\u9ed8\u60f3\u4e00\u4e0b\uff09<\/p>\n

     <\/p>\n

    \u8ba9\u6211\u4eec\u6765\u770b\u770bC\u8bed\u8a00\u7f16\u5199\u7684\u89e3\u6cd5\u7a0b\u5e8f\u5427\uff0c\u8fd9\u662f\u4e00\u4e2a\u9012\u5f52\u7684\u8c03\u7528\uff1a<\/p>\n

    void hanoi(int n, char x, char y, char z) {\r\n  if (n == 0) {\r\n    \/* \u4ec0\u4e48\u4e5f\u4e0d\u505a *\/\r\n   } else {\r\n    hanoi(n-1, x, z, y);\r\n    printf(\"%c->%c, \", x, y);\r\n    hanoi(n-1, z, y, x);\r\n   }\r\n}\r\n\r\nint main(void) {\r\n  hanoi(6, 'A', 'B', 'C');\r\n  return EXIT_SUCCESS;\r\n}<\/pre>\n
    \u4e0a\u9762\u7684\u7a0b\u5e8f\u4f1a\u6b63\u786e\u7684\u8f93\u51fa\u201c6\u5c42\u6c49\u8bfa\u5854\u201d\u7684\u89e3\u51b3\u6b65\u9aa4\u3002hanoi \u5c31\u662f\u6838\u5fc3\u4e86\uff0c\u4e0d\u8fc7\u4e0a\u9762\u7684C\u4ee3\u7801\u5e76\u4e0d\u80fd\u76f4\u89c2\u7684\u663e\u793a\u79fb\u52a8\u7684\u8fc7\u7a0b\uff0c\u6240\u4ee5\u6211\u7279\u522b\u7528delphi\u5199\u4e86\u4e00\u4e2a\u5c0f\u7a0b\u5e8f\uff0c\u7528\u6765\u505a\u6f14\u793a\u3002<\/p>\n
    type\r\n  \/\/ \u7528\u4e8e\u5b58\u653e\u6307\u5b9a\u8f74\u4e0a\u7b2cn\u6b21\u79fb\u52a8\u65f6\u5706\u76d8\u7684\u6570\u91cf\u4e0e\u7f16\u53f7\r\n  THanoiValue = record\r\n    Start: Integer;\r\n    procedure Push(V: Byte);\r\n    function Pop(): Byte;\r\n    function Count: Integer;\r\n    function Get(Index: Integer): Byte;\r\n  end;\r\n\r\n  \/\/ \u8bb0\u5f55\u6bcf\u6b21\u79fb\u52a8\u540e\u7684\u72b6\u6001\uff0c\u4ee5\u4fbf\u52a8\u753b\u663e\u793a\r\n  THanoiList = array of THanoiValue;\r\n\r\n  \/\/ \u6c49\u8bfa\u5854\u6a21\u62df\u79fb\u52a8\r\n  THanoi = class(TObject)\r\n  const\r\n    SPACE = 24;\r\n  private\r\n    FCS: TCanvas;\r\n    FTimer: TTimer;\r\n    FIndex: Integer;\r\n    FLayerCount: Integer;\r\n    FAxis: array of THanoiList;\r\n    FLayerWidth: array of Integer;\r\n    FW, FH: Integer;\r\n    FXx, FYx, FZx, FIW: Integer;\r\n    function GetInterval: Cardinal;\r\n    procedure SetInterval(const Value: Cardinal);\r\n  protected\r\n    procedure Init();\r\n    procedure Hanoi(n: Integer; X, Y, Z: Integer);\r\n    procedure DoTimer(Sender: TObject);\r\n\r\n    procedure DoDrawBackground();\r\n    procedure DoDrawItem(AIndex: Integer);\r\n    procedure DoDraw();\r\n  public\r\n    constructor Create(CS: TCanvas);\r\n    destructor Destroy; override;\r\n    procedure Start;  \/\/ \u5f00\u59cb\u6f14\u793a\r\n    procedure Stop;   \/\/ \u505c\u6b62\u6f14\u793a\r\n    \/\/ \u6f14\u793a\u901f\u5ea6\r\n    property Interval: Cardinal read GetInterval write SetInterval;\r\n    \/\/ \u51e0\u5c42\u5706\u76d8\uff1f \u672c\u793a\u4f8b\u6700\u591a\u652f\u63017\u5c42\uff0c\u53d7\u9650\u4e8eTHanoiValue\u7684\u5b9a\u4e49\uff0c\u9700\u8981\u66f4\u591a\u7684\u8bdd\u8bf7\u4f60\u6539\u8fdb\u5b83\r\n    property LayerCount: Integer read FLayerCount write FLayerCount;\r\n  end;\r\n\r\n\r\n{ THanoi }\r\n\r\nconstructor THanoi.Create(CS: TCanvas);\r\nbegin\r\n  FCS := CS;\r\n  FTimer := TTimer.Create(frmMathTool);\r\n  FTimer.Enabled := False;\r\n  FTimer.Interval := 1000;\r\n  FTimer.OnTimer := DoTimer;\r\nend;\r\n\r\ndestructor THanoi.Destroy;\r\nbegin\r\n  Stop();\r\n  FreeAndNil(FTimer);\r\n  inherited;\r\nend;\r\n\r\nprocedure THanoi.DoDraw;\r\nbegin\r\n  DoDrawBackground();\r\n  DoDrawItem(0);\r\n  DoDrawItem(1);\r\n  DoDrawItem(2);\r\n  FCS.Font.Size := 14;\r\n  FCS.Brush.Color := clWhite;\r\n  FCS.TextOut(10, 6, Format('%d\/%d', [FIndex, High(FAxis[0])]));\r\nend;\r\n\r\nprocedure THanoi.DoDrawBackground;\r\nvar\r\n  R: TRect;\r\n\r\n  procedure DrawAxis(AOffset: Integer; const AName: string);\r\n  begin\r\n    FCS.Brush.Color := clMaroon;\r\n    R.Left := AOffset + (FIW - 12) shr 1;\r\n    R.Right := R.Left + 12;\r\n    R.Top := 40;\r\n    R.Bottom := FH - SPACE;\r\n    FCS.FillRect(R);\r\n    FCS.Brush.Color := clWhite;\r\n    FCS.TextOut(R.Left, 6, AName);\r\n  end;\r\n  \r\nbegin\r\n  FCS.Brush.Color := clWhite;\r\n  FCS.FillRect(FCS.ClipRect);\r\n  \r\n  FCS.Brush.Color := clDkGray;\r\n  SetRect(R, FXx, FH - SPACE, FXx + FIW, FH - 6);\r\n  FCS.FillRect(R);\r\n  SetRect(R, FYx, FH - SPACE, FYx + FIW, FH - 6);\r\n  FCS.FillRect(R);\r\n  SetRect(R, FZx, FH - SPACE, FZx + FIW, FH - 6);\r\n  FCS.FillRect(R);\r\n\r\n  FCS.Font.Size := 16;\r\n  DrawAxis(FXx, 'A');\r\n  DrawAxis(FYx, 'B');\r\n  DrawAxis(Fzx, 'C');  \r\nend;\r\n\r\nprocedure THanoi.DoDrawItem(AIndex: Integer);\r\nconst\r\n  LH = 24;\r\nvar\r\n  X, Y, I, W: Integer;\r\n  V: THanoiValue;\r\n  R: TRect;\r\nbegin\r\n  V := FAxis[AIndex][FIndex];\r\n  if V.Count = 0 then Exit;  \r\n  case AIndex of\r\n    0: X := FXx;\r\n    1: X := FYx;\r\n    2: X := FZx;\r\n  else\r\n    Exit;\r\n  end;\r\n  Y := FH - SPACE;\r\n  FCS.Brush.Color := clWhite;\r\n  for I := 0 to V.Count - 1 do begin\r\n    W := FlayerWidth[V.Get(i) - 1];\r\n    R.Left := X + (FIW - W) div 2;\r\n    R.Right := R.Left + W;\r\n    R.Top := Y - LH;\r\n    R.Bottom := Y;\r\n    Dec(Y, LH);\r\n    FCS.Rectangle(R);\r\n  end;\r\nend;\r\n\r\nprocedure THanoi.DoTimer(Sender: TObject);\r\nbegin\r\n  if FIndex > High(FAxis[0]) then\r\n    FTimer.Enabled := False\r\n  else begin\r\n    DoDraw();\r\n    Inc(FIndex);\r\n  end;\r\nend;\r\n\r\nfunction THanoi.GetInterval: Cardinal;\r\nbegin\r\n  Result := FTimer.Interval;\r\nend;\r\n\r\nprocedure THanoi.Hanoi(n, X, Y, Z: Integer);\r\nbegin\r\n  if n > 0 then begin\r\n    Hanoi(n - 1, x, z, y);\r\n\r\n    FAxis[y][FIndex].Start := FAxis[y][FIndex - 1].Start;  \r\n    FAxis[x][FIndex].Start := FAxis[x][FIndex - 1].Start;\r\n    FAxis[z][FIndex].Start := FAxis[z][FIndex - 1].Start;   \r\n\r\n    FAxis[y][FIndex].Push(FAxis[x][FIndex].Pop);\r\n\r\n    Inc(FIndex);\r\n    Hanoi(n - 1, z, y, x);\r\n  end;\r\nend;\r\n\r\nprocedure THanoi.Init;\r\nvar\r\n  I, J: Integer;\r\nbegin\r\n  I := (2 shl (FLayerCount - 1));\r\n  if Length(FAxis) < 3 then begin\r\n    SetLength(FAxis, 3);\r\n    SetLength(FAxis[0], I);\r\n    SetLength(FAxis[1], I);\r\n    SetLength(FAxis[2], I);\r\n    FillChar(FAxis[0][0], i * 4, 0);\r\n    FillChar(FAxis[1][0], i * 4, 0);\r\n    FillChar(FAxis[2][0], i * 4, 0);\r\n    for i := 1 to FLayerCount do        \r\n      FAxis[0][0].Push(I);\r\n    FIndex := 1;\r\n    Hanoi(FLayerCount, 0, 1, 2);\r\n  end;\r\n  FIndex := 0;\r\n\r\n  FW := FCS.ClipRect.Right - FCS.ClipRect.Left;\r\n  FH := FCS.ClipRect.Bottom - FCS.ClipRect.Top;\r\n\r\n  FIW := Round((FW - SPACE * 4) \/ 3);\r\n  SetLength(FLayerWidth, FLayerCount);\r\n  J := Round(FIW * 0.8 \/ FLayerCount);\r\n  for I := 0 to FLayerCount - 1 do\r\n    FLayerWidth[i] := FIW - (I + 1) * J;\r\n  FXx := SPACE;\r\n  FYx := FXx + FIW + SPACE;\r\n  FZx := FYx + FIW + SPACE;\r\n  DoDrawBackground();\r\nend;\r\n\r\nprocedure THanoi.SetInterval(const Value: Cardinal);\r\nbegin\r\n  FTimer.Interval := Value;\r\nend;\r\n\r\nprocedure THanoi.Start;\r\nbegin\r\n  Init;\r\n  FTimer.Enabled := True;\r\nend;\r\n\r\nprocedure THanoi.Stop;\r\nbegin\r\n  FTimer.Enabled := False;\r\n  Init;\r\nend;\r\n\r\n{ THanoiValue }\r\n\r\nfunction THanoiValue.Count: Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := 0;\r\n  I := Start;\r\n  while (Result < 10) and (I and $7 > 0) do begin\r\n    Inc(Result);\r\n    I := I shr 3;\r\n  end; \r\nend;\r\n\r\nfunction THanoiValue.Get(Index: Integer): Byte;\r\nvar\r\n  I, K: Integer;\r\nbegin\r\n  Result := 0;\r\n  I := Start;\r\n  K := 0;\r\n  while K < 8 do begin\r\n    Result := I and $7;\r\n    if Result > 0 then begin\r\n      if K = Index then\r\n        Break;\r\n      I := I shr 3;\r\n      Inc(K);\r\n    end else \r\n      Break;\r\n  end;   \r\nend;\r\n\r\nfunction THanoiValue.Pop: Byte;\r\nvar\r\n  I, J, K: Integer;\r\nbegin\r\n  Result := 0;\r\n  I := Start;\r\n  K := 0;\r\n  while K < 8 do begin\r\n    J := I and $7;\r\n    if J > 0 then begin\r\n      Result := J;\r\n      I := I shr 3;\r\n      Inc(K);\r\n    end else begin\r\n      if Result > 0 then        \r\n        Start := Start and (not ($7 shl ((K - 1) * 3)));\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure THanoiValue.Push(V: Byte);\r\nvar\r\n  I, K, L: Integer;\r\nbegin\r\n  I := Start;\r\n  L := V;\r\n  K := 0;\r\n  while K < 8 do begin\r\n    if (I and $7) > 0 then begin\r\n      I := I shr 3;\r\n      L := L shl 3;\r\n      Inc(K);\r\n    end else begin\r\n      Start := Start or L;\r\n      Break;\r\n    end;\r\n  end;\r\nend;<\/pre>\n
    \u4f7f\u7528 THanoi \u53ef\u4ee5\u52a8\u6001\u7684\u6f14\u793a\u79fb\u52a8\u8fc7\u7a0b\uff0c\u6211\u7684\u7a0b\u5e8f\u8fd0\u884c\u6548\u679c\u5982\u4e0b\uff1a<\/p>\n
    \"0002\"<\/a><\/p>\n
    \"0003\"<\/a><\/p>\n
    \"0004\"<\/a><\/p>\n
    \"0005\"<\/a><\/p>\n
    \u5728\u4e0a\u9762\u7684\u6f14\u793a\u7a0b\u5e8f\u4e2d\uff0c\u662f\u5148\u5c06\u6574\u4e2a\u79fb\u52a8\u8fc7\u7a0b\u8ba1\u7b97\u597d\u540e\u4fdd\u5b58\u8d77\u6765\uff0c\u7136\u540e\u7528\u5b9a\u65f6\u5668\u52a8\u753b\u663e\u793a\u7684\u3002THanoiValue \u7684\u4f5c\u7528\u5f88\u5173\u952e\uff0c\u5b83\u8bb0\u5f55\u4e86\u6bcf\u6b21\u79fb\u52a8\u540e\u5728\u4e00\u4e2a\u8f74\u4e0a\u7684\u5706\u76d8\u6570\u91cf\u548c\u5927\u5c0f\uff08\u7f16\u53f7\uff09\uff0c\u8fd9\u6837\u624d\u53ef\u4ee5\u51c6\u786e\u7684\u753b\u56fe\u5c55\u793a\u79fb\u52a8\u8fc7\u7a0b\u3002<\/p>\n
     <\/p>\n","protected":false},"excerpt":{"rendered":"
    \u201c\u6c49\u8bfa\u5854\u201d\u662f\u4e00\u4e2a\u7531\u6570\u5b66\u5bb6\u7231\u5fb7\u534e\u00b7\u5362\u5361\u65af\u4e8e […]<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[8],"tags":[],"class_list":["post-1105","post","type-post","status-publish","format-standard","hentry","category-delphi"],"views":5733,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/1105","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1105"}],"version-history":[{"count":3,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/1105\/revisions"}],"predecessor-version":[{"id":1113,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/1105\/revisions\/1113"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1105"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1105"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1105"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}