Diferencia entre revisiones de «Programación en Ada/Unidades predefinidas/Ada.Text IO»

==Ejemplo==

 

{{Ada/Reservada|with}} Ada.Characters.Handling;

{{Ada/Reservada|with}} Ada.Strings.Unbounded; {{Ada/Reservada|use}} Ada.Strings.Unbounded;

{{Ada/Reservada|begin}}

{{Ada/Reservada|while}} {{Ada/Reservada|not}} Fin {{Ada/Reservada|loop}}

(Item => Char,

Available => Leído);

{{Ada/Reservada|if}} Ada.Characters.Handling.Is_Digit (Char) {{Ada/Reservada|then}}

Cadena_Número := Cadena_Número & Char;

{{Ada/Reservada|else}}

{{Ada/Reservada|end}} {{Ada/Reservada|if}};

Número := Integer'Value (To_String (Cadena_Número));

{{Ada/Reservada|exception}}

{{Ada/Reservada|when}} Constraint_Error =>

 

==Manual de referencia de Ada==