Advertisement
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);
- FUNCTION Iguales (v1,v2:TElem):boolean;
- IMPLEMENTATION
- PROCEDURE Asignar (VAR variable:TElem; elemento:TElem);
- BEGIN
- variable := elemento;
- END;{Asigna}
- FUNCTION Iguales (v1,v2:TElem):boolean;
- BEGIN
- {Depende del tipo de dato}
- END;
- END.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement