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

Contenido eliminado Contenido añadido
m Mejoras de codigo y comentarios en el ejemplo de E/S por fichero */
Línea 98:
{{Ada/--|Si hay parametros, usamos el primero como ruta del archivo}}
Open(F,In_File,Argument(1));
Put_Line({{Ada/"|-----------------------------------}});
Put_Line({{Ada/"|- Visor de texto - }} & Argument(1));
Put_Line("{{Ada/"|-----------------------------------}});
New_Line(2);
{{Ada/Reservada|else}}
{{Ada/--|Si no hay parámetros, preguntamos explícitamente la ruta del archivo}}
Línea 108 ⟶ 104:
Open(F,In_File,Linea(1..Indice));
New_Line(3);
Put_Line({{Ada/"|-----------------------------------}});
Put_Line({{Ada/"|- Visor de texto - }} & Linea(1..Indice));
Put_Line({{Ada/"|-----------------------------------}});
New_Line(2);
{{Ada/Reservada|end}} {{Ada/Reservada|if}};
Put_Line({{Ada/"|-----------------------------------}});
Put_Line({{Ada/"|- Visor de texto - }} & ArgumentName(1F));
Put_Line("{{Ada/"|-----------------------------------}});
{{Ada/--|La función Name() nos devuelve la ruta del archivo}}
New_Line(2);
{{Ada/Reservada|while}} {{Ada/Reservada|not}} End_Of_File(F) {{Ada/Reservada|loop}} {{Ada/--|Leemos hasta llegar al final del fichero}}
{{Ada/--|Si llegamos al final e intentamos leer, dará error, por lo que hay que prevenirlo}}
{{Ada/Reservada|if}} Contador>=Lineas_Por_Pantalla-2 {{Ada/Reservada|then}}
New_Line;