Wikilibros

Diferencia entre revisiones de «Programación en Ada/Subunidades»

Explorar historial interactivamente
← Edición anteriorEdición siguiente →
Contenido eliminado Contenido añadido
VisualWikitexto
enlaces
Plantillas
Línea 15:
separado, luego se escribiría:
 
{{Ada/Reservada|package}} {{Ada/Reservada|body}} Pila_Enteros {{Ada/Reservada|is}} {{Ada/-- |Cuerpo.}}
Max : {{Ada/Reservada|constant}} := 100;
Pila: array(1..Max) {{Ada/Reservada|of}} Integer;
Cima: Integer {{Ada/Reservada|range}} 0..Max;
{{Ada/Reservada|procedure}} Poner (Elem: Integer) {{Ada/Reservada|is}} {{Ada/Reservada|separate}}; {{Ada/-- |Se compila aparte.}}
{{Ada/Reservada|function}} Quitar {{Ada/Reservada|return}} Integer {{Ada/Reservada|is}} {{Ada/Reservada|separate}}; {{Ada/-- |Se compila aparte.}}
{{Ada/Reservada|begin}}
Cima := 0; {{Ada/-- |Inicialización.}}
{{Ada/Reservada|end}} Pila_Enteros;
 
A los subprogramas que se van a compilar aparte (Poner y Quitar) se les
Línea 29:
esta forma:
 
{{Ada/Reservada|separate}} (Pila_enteros) {{Ada/-- |Indica la unidad de la que se extrajo.}}
{{Ada/Reservada|procedure}} Poner (Elem: Integer) {{Ada/Reservada|is}}
{{Ada/Reservada|begin}}
Cima := Cima + 1;
Pila (Cima) := Elem;
{{Ada/Reservada|end}} Poner;
 
Y de manera análoga se procedería con Quitar.
Línea 52:
de no complicar las {{Ada:|D|d|ependencia}}s de compilación, se deberá incluir la
cláusula with justo antes de la declaración subunidad, es decir, delante
de <code>separate (Pila_Enteros)</code>.
 
== Manual de referencia de Ada ==
Obtenido de «https://es.wikibooks.org/wiki/Programación_en_Ada/Subunidades»