小编use*_*325的帖子

我正在从C#叛逃到Delphi 2009,我非常喜欢它.

我写了一个二进制搜索程序,工作正常.我在proc的末尾添加了一个简单的if-else语句,它只是不会触发!我看不出有什么不妥,我不好意思说我被卡住了.请帮忙!

procedure BinSearch;
var
  min,max,mid, x: integer;
  A : array[0..4] of integer;
  rslt : integer;

begin

  writeln('binary search');
  A[0] := 34; A[1] := 65; A[2] := 98; A[3] := 123; A[4] := 176;
  listarray(a);
  x := 62;
  min := 0;
  max := 4;

  repeat
    begin
    mid := (min + max) div 2;
    if x > A[mid] then
      min := mid + 1
    else
      max := mid - 1;
    end;
  until (A[mid] = x) or (min > max);

  writeln(mid); …