ED - TAD Árbol - Árbol binario v. 1

UNIT uArbolBinario;
INTERFACE

    USES uElementoInteger;

    TYPE
        TApuntadorArbol = ^TNodo;
        TNodo = RECORD
            info : TElemento;
            izq, dch : TApuntadorArbol;
        END;
        TArbolBin = TApuntadorArbol;

    {Constructoras generadoras}
        PROCEDURE CrearArbolBinVacio(VAR a : TArbolBin);
        PROCEDURE ConstruirArbolBin(VAR a : TArbolBin; i : TArbolBin; e : TElemento; d : TArbolBin);
    {Constructoras no generadoras}
        PROCEDURE Raiz(a : TArbolBin; VAR e : TElemento);
        PROCEDURE HijoIzq(a : TArbolBin; VAR e : TArbolBin);
        PROCEDURE HijoDch(a : TArbolBin; VAR e : TArbolBin);
    {Observadoras selectoras}
    {Observadoras no selectoras}
        FUNCTION EsArbolBinVacio(a : TArbolBin):boolean;

IMPLEMENTATION
{Constructoras generadoras}
    PROCEDURE CrearArbolBinVacio(VAR a : TArbolBin);
        BEGIN
            a := NIL;
        END;
    PROCEDURE ConstruirArbolBin(VAR a : TArbolBin; i : TArbolBin; e : TElemento; d : TArbolBin);
        BEGIN
            new(a);
            Asignar(a^.info, e);
            a^.izq := i;
            a^.dch := d;
        END;

{Constructoras no generadoras}
    PROCEDURE Raiz(a : TArbolBin; VAR e : TElemento);
        BEGIN
            Asignar(e, a^.info);
        END;
    PROCEDURE HijoIzq(a : TArbolBin; VAR e : TArbolBin);
        BEGIN
            e := a^.izq;
        END;
    PROCEDURE HijoDch(a : TArbolBin; VAR e : TArbolBin);
        BEGIN
            e := a^.dch;
        END;

{Observadoras no selectoras}
    FUNCTION EsArbolBinVacio(a : TArbolBin):boolean;
        BEGIN
            EsArbolBinVacio := (a = NIL);
        END;
END.