将下面C++代码翻译成Pascal代码

答案：const maxn=1000001;
type arr=array[0..maxn] of integer;
var wa,wb,wv,ws,rank,height,RMQ,mm:arr;
    best:array[0..19] of arr;
function cmp(r:arr;a,b,l:integer):boolean;
begin
  exit((r[a]=r[b])and(r[a+l]=r[b+l]));
end;
procedure da(r,sa:arr;n,m:integer);
var i,j,p:longint;
    x,y,t:arr;
begin
  x:=wa; y:=wb;
  for i:=0 to m-1 do ws[i]:=0;
  for i:=0 to n-1 do inc(ws[x[i]=r[i]]);
  for i:=n-1 downto 0 do begin
    dec(ws[x[i]]);
    sa[ws[x[i]]]:=i;
  end;
  j:=1;
  for p:=1 to n-1 do begin
    j:=j*2;
    m:=p;
    p:=0;
    for i:=n-j to n-1 do begin y[p]:=i; inc(p); end;
    for i:=0 to n-1 do if sa[i]>=j then begin y[p]=sa[i]-j; p:=p+1; end;
    for i:=0 to n-1 do wv[i]=x[y[i]];
    for i:=0 to m-1 do ws[i]:=0;
    for i:=0 to n-1 do inc(ws[wv[i]]);
    for i:=1 to m-1 do ws[i]:=ws[i]+ws[i-1];
    for i:=n-1 downto 0 do begin dec(ws[wv[i]]); sa[ws[wv[i]]]=y[i];
    t:=x; x:=y; y:=t; p:=1; x[sa[0]]:=0;
    for i:=1 to n-1 do
      if cmp(y,sa[i-1],sa[i],j)=true then x[sa[i]]:=p-1 else begin x[sa[i]]:=p; inc(p); end;
  end;
  exit;
end;
procedure calheight(r,sa:arr;n:integer);
var i,j,k:integer;
begin
  k:=0;
  for i:=1 to n do rank[sa[i]]:=i;
  for i:=0 to n-1 do height[rank[i]]:=k;
  if k>0 then k:=k-1 else k:=0;
  j:=sa[rank[i]=1];
  while not(r[i+k]==r[j+k]) do inc(k);
  exit;
end;
procedure initRMQ(n:integer);
var i,j,a,b:integer;
begin
  mm[0]:=-1;
  for i:=1 to n-1 do if ((i and (i-1))=0) then mm[i]=mm[i-1]+1 else mm[i]:=mm[i-1];
  for i:=1 to n do best[0][i]:=i;
  for i:=1 to mm[n] do
    for j:=1 to n+1-(1 << i) do begin
      a:=best[i-1][j];
      b:=best[i-1][j+(1<<(i-1))];
      if (RMQ[a]<RMQ[b]) best[i][j]:=a else best[i][j]:=b;
    end;
end;
function askRMQ(a,b:integer)
var t:itneger;
begin
  y:=mm[b-a+1];
  b:=b-(1<<t)-1;
  a:=best[t][a]; b=best[b];
  if RMQ[a]<RMQ[b] then exit(a) else exit(b);
end;
function lcp(a,b:itneger);
var t:integer;
begin
  a:=rank[a]; b:=rank[b];
  if (a>b) then begin t:=a; a:=b; b:=t; end;
  exit(height[askRMQ(a+1,b)]);
end;
 
注：你这段代码无主函数。

上一个：C++ Builder通过WMI获取系统信息
下一个：关于C++ TCP/IP通信的问题