Diferencia entre revisiones de «Programación en Ada/Unidades predefinidas/Ada.Text IO»
Contenido eliminado Contenido añadido
Especificar que es la versión Linux |
|||
Línea 7:
{{Ada/Reservada|with}} Ada.Text_IO;
{{Ada/Reservada|with}} Ada.Characters.Handling;
{{Ada/--|Lee de entrada un número entero no dejando al usuario escribir}}
Línea 15 ⟶ 14:
{{Ada/Reservada|procedure}} Leer_Entero {{Ada/Reservada|is}}
Char : Character;
Fin : Boolean := False;
Cadena_Número :
Número : Integer := 0;
{{Ada/Reservada|begin}}
Línea 26 ⟶ 24:
Ada.Text_IO.Get_Immediate
(Item => Char
Cadena_número(número):=Char;
Fin := True;
{{Ada/Reservada|
Ada.Text_IO.Put (ASCII.BS & ' ' & ASCII.BS);
Número:=Número-1;
{{Ada/Reservada|end}} {{Ada/Reservada|if}};▼
▲ {{Ada/Reservada|if}} Leído {{Ada/Reservada|then}}
▲ {{Ada/Reservada|if}} Ada.Characters.Handling.Is_Digit (Char) {{Ada/Reservada|then}}
▲ {{Ada/Reservada|elsif}} Char = ASCII.LF {{Ada/Reservada|then}}
▲ Fin := True;
▲ {{Ada/--|Borra el caracter recien escrito debido al "eco"}}
▲ Ada.Text_IO.Put (ASCII.BS & ' ' & ASCII.BS);
▲ {{Ada/Reservada|end}} {{Ada/Reservada|if}};
{{Ada/Reservada|end}} {{Ada/Reservada|loop}};
Ada.Text_IO.New_line;
Número := Integer'Value
Ada.Text_IO.Put_Line ({{Ada/"|Has escrito:}} & Integer'Image (Número));
{{Ada/Reservada|exception}}
{{Ada/Reservada|when}} Constraint_Error =>
Ada.Text_IO.New_line;
Ada.Text_IO.Put_Line ({{Ada/"|Lo siento: }} & {{Ada/"| es demasiado largo para almacenarse}});
{{Ada/Reservada|end}} Leer_Entero;
|