fork download

copy

program main;
 
type
  Node = record
    data : integer;
    left : ^Node;
    right : ^Node
  end;
  pNode = ^Node;
 
procedure push(var root : pNode; data : integer);
var
  r : pNode;
begin
  if root = nil then begin
    new(r);
    r^.data := data;
    r^.left := nil;
    r^.right := nil;
    root := r
  end else if data < root^.data then
    push(root^.left, data)
  else
    push(root^.right, data)
end;
 
function pop(var root : pNode; var data : integer) : boolean;
var
  r : pNode;
begin
  if root = nil then
    pop := false
  else if root^.left <> nil then 
    pop := pop(root^.left, data)
  else begin
    r := root;
    root := r^.right;
    data := r^.data;
    dispose(r);
    pop := true
  end
end;
 
type
  pBinTree = ^BinTree;
  BinTree = object
  private
    root : pNode;
  public
    procedure init;
    procedure pushNode(data : integer);
    function popNode(var data : integer) : boolean;
  end;
 
 
procedure BinTree.init;
begin
  root := nil
end;
 
procedure BinTree.pushNode(data : integer);
begin
  push(root, data);
end;
 
function BinTree.popNode(var data : integer) : boolean;
begin
  popNode := pop(root, data);
end;  
 
const
  N = 10;
  MAX = 1000;
var
  root : pBinTree;
  data, i : integer;
begin
  new(root);
  root^.init;
  randomize;
  i := 0;
  while (i < 10) do begin
    data := random(MAX);
    root^.pushNode(data);
    i := i + 1
  end;
  while (root^.popNode(data) = true) do
    writeln(data);
  dispose(root);
end.
{ end }
 

Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(6,17) Error: Type "Node" is not completely defined
prog.pas(8,3) Error: Type "Node" is not completely defined
prog.pas(22,20) Error: Incompatible types: got "^<erroneous type>" expected "pNode"
prog.pas(24,21) Error: Incompatible types: got "^<erroneous type>" expected "pNode"
prog.pas(34,26) Error: Incompatible types: got "^<erroneous type>" expected "pNode"
prog.pas(37,14) Error: Incompatible types: got "^<erroneous type>" expected "pNode"
prog.pas(92) Fatal: There were 6 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty