Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- UNIT uElem;
- INTERFACE
- TYPE
- TElem = {El tipo de dato que se defina};
- PROCEDURE Asignar (VAR variable:TElem; elemento:TElem);
- PROCEDURE Mostrar (elemento:TElem);
- FUNCTION Iguales (e1,e2:TElem):boolean;
- FUNCTION EsMayor(e1,e2:TElem):boolean;
- IMPLEMENTATION
- PROCEDURE Asignar (VAR variable:TElem; elemento:TElem);
- BEGIN
- variable := elemento;
- END;{Asignar}
- PROCEDURE Mostrar (elemento:TElem);
- BEGIN
- {Depende del tipo de dato}
- END;{Mostrar}
- FUNCTION Iguales (e1,e2:TElem):boolean;
- BEGIN
- {Depende del tipo de dato}
- END;{Iguales}
- FUNCTION EsMayor(e1,e2:TElem):boolean;
- BEGIN
- {Depende del tipo de dato}
- END;{EsMayor}
- END.
Add Comment
Please, Sign In to add comment