FPC использует AVL_TREE - PullRequest
Новая
       8

FPC использует AVL_TREE

2 голосов
/ 30 марта 2012

Я использую Ubuntu 11.04 и Free Pascal Compiler версии 2.4.0-2ubuntu3.1 [2011/06/17] для x86_64. Copyright (c) 1993-2009 Florian Klaempfl

, когда япытаясь скомпилировать этот код: 

program test;
uses AVL_Tree;
const N =  10;
type Number = ^Integer;

var all : TAVLTree;
actual :TAVLTreeNode;
a,i :Integer;
t : array[1..N] of Integer;
x :Number;

function compare(a,b:Pointer):LongInt;
begin
  compare := Number(a)^ - Number(b)^;
end;

begin
randomize;
for i := 1 to N do
  t[i] := i;

all := TAVLTree.Create(@compare);
for i := N downto 1 do
begin
  a:=1+random(i);
  new(x);
  x^:=t[a];
  all.add(x);
  t[a]:=t[i];
end;

actual := all.findLowest;
while actual <> nil do
begin
    Writeln(Number(actual.data)^);
    dispose(Number(actual.data));
    actual := all.FindSuccessor(actual);
end;

all.Free;
end.

он дает мне: 

Compiling avl.pas
Fatal: Can't find unit AVL_Tree used by test
Fatal: Compilation aborted 
Error: /usr/bin/ppcx64 returned an error exitcode (normal if you did not specify a source     file to be compiled)

Я не знаю, что происходит .. в моей школе этот код работал нормально .. Любые идеичто мне делать?

...