Diferencia entre revisiones de «Programación en Ada/Unidades predefinidas/Ada.Text IO»
Contenido eliminado Contenido añadido
→Ejemplo de E/S por consola: Mejoras y notas de portabilidad |
m Cambiado New_line para que no haya dos espacios en caso de error |
||
Línea 50:
{{Ada/Reservada|end}} {{Ada/Reservada|loop}};
Ada.Text_IO.New_line;▼
Número := Integer'Value (Cadena_Número (1 .. Número));
▲ Ada.Text_IO.New_line;
Ada.Text_IO.Put_Line ({{Ada/"|Has escrito:}} & Integer'Image (Número));
{{Ada/Reservada|exception}}
| |||