Procedimiento | Función | Unidad |
Procedure Nombre(Variable:Integer) Var Begin Sentencia; End; Begin Nombre(Variable) End. | Function Nombre(Variable:Integer) : Real Var Begin Sentencia; VarReal:=Variable; End; Begin A:=Nombre(X); End. | Interface Uses crt; Type Const Var Procedure Pausa; Implementation Procedure Pausa: Var ch:Char; Begin ch :=Readkey; End; End. |
No hay comentarios:
Publicar un comentario