Wikilibros

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

Explorar historial interactivamente
← Edición anteriorEdición siguiente →
Contenido eliminado Contenido añadido
VisualWikitexto
m →‎Portabilidad: Modificado debido a lo "descubierto" en la discusión :p
Línea 16:
Fin : Boolean := False;
Cadena_Número : String (1..10);
Número : IntegerNatural := 0;
{{Ada/Reservada|begin}}
Línea 23:
{{Ada/Reservada|while}} {{Ada/Reservada|not}} Fin {{Ada/Reservada|loop}}
Ada.Text_IO.Get_Immediate (Char);
(Item => Char);
{{Ada/Reservada|if}} Ada.Characters.Handling.Is_Digit (Char) {{Ada/Reservada|then}}
Número:=Número+1;
Cadena_número(número):=Char;
Ada.Text_IO.Put(Char);
{{Ada/Reservada|elsif}} Char = ASCII.LF {{Ada/Reservada|then}}
Fin := True;
{{Ada/Reservada|elsif}} NumeroNúmero>0 {{Ada/Reservada|and}} Char = ASCII.Del {{Ada/Reservada|then}}
{{Ada/--|BorraSi el caracterusuario recienha escritopulsado la tecla backspace}}
{{Ada/--|borra el dígito escrito anteriormente}}
Ada.Text_IO.Put (ASCII.BS & ' ' & ASCII.BS);
Número:=Número-1;
{{Ada/Reservada|end}} {{Ada/Reservada|if}};
{{Ada/Reservada|end}} {{Ada/Reservada|loop}};
Ada.Text_IO.New_line;
Número := Integer'Value (Cadena_Número(1..Número));
Ada.Text_IO.Put_Line ({{Ada/"|Has escrito:}} & Integer'Image (Número));
{{Ada/Reservada|exception}}
Obtenido de «https://es.wikibooks.org/wiki/Programación_en_Ada/Unidades_predefinidas/Ada.Text_IO»