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

Contenido eliminado Contenido añadido
mSin resumen de edición
mSin resumen de edición
Línea 1:
'''<tt>Ada.Text_IO</tt>''' es un paquete predefinido para la [[Programación en Ada / Entrada-salida|entrada y salida]] de texto.
 
==Ejemplo:==
 
with Ada.Text_Io;
{{Ada/Reservada|with}} Ada.Characters.HandlingText_Io;
{{Ada/Reservada|with}} Ada.Characters.Handling;
{{Ada/Reservada|with}} Ada.Strings.Unbounded; {{Ada/Reservada|use}} Ada.Strings.Unbounded;
-- Lee de entrada un número entero no dejando al usuario escribir
-- caracteres que no sean dígitos.
{{Ada/Reservada|procedure}} Leer_Entero {{Ada/Reservada|is}}
Char : Character;
Leído : Boolean;
Línea 16 ⟶ 17:
Número : Integer;
{{Ada/Reservada|begin}}
{{Ada/Reservada|while}} {{Ada/Reservada|not}} Fin {{Ada/Reservada|loop}}
Ada.Text_Io.Get_Immediate
Línea 24 ⟶ 25:
Available => Leído);
{{Ada/Reservada|if}} Leído {{Ada/Reservada|then}}
{{Ada/Reservada|if}} Ada.Characters.Handling.Is_Digit (Char) {{Ada/Reservada|then}}
Cadena_Número := Cadena_Número & Char;
{{Ada/Reservada|else}}
{{Ada/Reservada|if}} Char = ASCII.LF {{Ada/Reservada|then}}
Fin := True;
{{Ada/Reservada|else}}
-- Borra el caracter recien escrito
Ada.Text_Io.Put (ASCII.BS & ' ' & ASCII.BS);
{{Ada/Reservada|end}} {{Ada/Reservada|if}};
{{Ada/Reservada|end}} {{Ada/Reservada|if}};
{{Ada/Reservada|end}} {{Ada/Reservada|if}};
-- Espera para no saturar la CPU
{{Ada/Reservada|delay}} 0.01;
{{Ada/Reservada|end}} {{Ada/Reservada|loop}};
Número := Integer'Value (To_String (Cadena_Número));
Ada.Text_Io.Put_Line ("Has escrito:" & Integer'Image (Número));
{{Ada/Reservada|exception}}
{{Ada/Reservada|when}} Constraint_Error =>
Ada.Text_Io.Put_Line ("Lo siento: " & To_String (Cadena_Número) &
" es demasiado largo para almacenarse");
{{Ada/Reservada|end}} Leer_Entero
 
==Manual de referencia de Ada==
*[http:{{Ada//adaic.org/standards/95lrm/html/RM-RM3|A-|10-|1.html A.10.1 |The Package Text_IO]}}