0

我有一个学校的作业来创建一个计算整数数组中的反转的项目。我首先尝试暴力破解它,但正如我所料,我没有超过时间限制。因此,经过一番谷歌搜索并试图完全理解 mergeSort 以及如何实现倒数计数,我编写了这段代码,不幸的是,它输出了错误的计数,同时正确地对数组进行了排序:

procedure mergeSort(var arr, pomarr : array of longint; start, stop : 
longint; var inv : longint);
var
  mid,i,j,k : longint;
begin
  mid := (start + stop) div 2;
  if (start < mid) then mergeSort(arr,pomarr,start,mid,inv);
  if (mid+1 < stop) then mergeSort(arr,pomarr,mid+1,stop,inv);

  i := start;
  k := start;

  while (i<= mid) and (j <= stop) do begin
    if (arr[i] < arr[j]) then begin
      pomarr[k] := arr[i];
      i += 1;
    end
    else begin
      pomarr[k] := arr[j];
      inv += mid - i;
      j += 1;
    end;
    k += 1;
  end;
  while (i <= mid) do begin
    pomarr[k] := arr[i];
    i += 1;
    k += 1;
  end;
  while (j <= stop) do begin
    pomarr[k] := arr[j];
    j += 1;
    k += 1;
  end;

  for k := start to stop do begin
    arr[k] := pomarr[k];
  end;
end;  

提前感谢您的所有帮助。我知道这只是声明中的一些愚蠢错误,但我似乎找不到它。

4

1 回答 1

0

所以我在某种程度上设法解决了我的问题。我问我的老师是什么导致了这个问题,他告诉我,在程序的头部声明一种变量和在程序体中声明它实际上是有区别的。之后我通过创建一个数组类型来修复我的程序:

type
  numlist = array[1..250000] of longint;

并通过这种类型在函数和其他任何地方声明了我使用的数组。它确实奏效了。

据我所知,如果你声明一个数组而不使用类型,迭代实际上是从 0 开始的,而不是像往常一样从 1 开始。老实说,我不知道这两个事实是如何相关的,但它解决了我的问题,现在它按预期运行。

如果有人知道导致这种迭代转变的原因,请告诉我。我其实比以前更困惑。

于 2017-12-21T01:32:09.623 回答