El Proyecto | Sobre nosotros | Contribuir | Donaciones | Licencia
HOME Mis cursos Finalizados
◄ Anterior
◄

Escritura de Archivos

Siguiente ►
►

En este tema, aprenderemos cómo escribir datos en archivos utilizando Fortran. La capacidad de escribir en archivos es esencial para guardar resultados de cálculos, generar informes y compartir datos entre diferentes programas. Exploraremos las funciones y procedimientos básicos para la escritura de archivos, así como algunos ejemplos prácticos y ejercicios para reforzar el aprendizaje.

Conceptos Clave

  1. Abrir un archivo para escritura: Utilizar la instrucción OPEN para abrir un archivo en modo de escritura.
  2. Escribir datos en el archivo: Utilizar la instrucción WRITE para escribir datos en el archivo.
  3. Cerrar el archivo: Utilizar la instrucción CLOSE para cerrar el archivo después de escribir en él.

Abrir un Archivo para Escritura

Para escribir en un archivo, primero debemos abrirlo utilizando la instrucción OPEN. Aquí está la sintaxis básica:

OPEN(unit=unit_number, file='filename', status='status', action='write')
  • unit_number: Un número entero que identifica el archivo en el programa.
  • filename: El nombre del archivo.
  • status: Puede ser 'new' (crea un nuevo archivo) o 'replace' (reemplaza un archivo existente).
  • action: Debe ser 'write' para abrir el archivo en modo de escritura.

Ejemplo

PROGRAM WriteExample
  IMPLICIT NONE
  INTEGER :: unit_number

  unit_number = 10
  OPEN(unit=unit_number, file='output.txt', status='replace', action='write')

  ! Escribir datos en el archivo
  WRITE(unit_number, *) 'Hola, Fortran!'
  WRITE(unit_number, *) 'Este es un ejemplo de escritura en archivo.'

  ! Cerrar el archivo
  CLOSE(unit_number)
END PROGRAM WriteExample

En este ejemplo, abrimos un archivo llamado output.txt en modo de escritura, escribimos dos líneas de texto y luego cerramos el archivo.

Escribir Datos en el Archivo

La instrucción WRITE se utiliza para escribir datos en el archivo. La sintaxis básica es:

WRITE(unit_number, format) data
  • unit_number: El número de unidad del archivo.
  • format: El formato de salida (puede ser * para formato libre).
  • data: Los datos que se van a escribir.

Ejemplo

PROGRAM WriteDataExample
  IMPLICIT NONE
  INTEGER :: unit_number
  INTEGER :: i

  unit_number = 10
  OPEN(unit=unit_number, file='data.txt', status='replace', action='write')

  ! Escribir una serie de números en el archivo
  DO i = 1, 10
    WRITE(unit_number, '(I2)') i
  END DO

  ! Cerrar el archivo
  CLOSE(unit_number)
END PROGRAM WriteDataExample

En este ejemplo, escribimos los números del 1 al 10 en un archivo llamado data.txt.

Cerrar el Archivo

Es importante cerrar el archivo después de terminar de escribir en él para asegurarse de que todos los datos se guarden correctamente. Utilizamos la instrucción CLOSE para cerrar el archivo:

CLOSE(unit_number)

Ejercicio Práctico

Ejercicio 1: Escribir una Tabla de Multiplicar

Escribe un programa en Fortran que genere una tabla de multiplicar del 1 al 10 y la guarde en un archivo llamado tabla_multiplicar.txt.

Solución

PROGRAM TablaMultiplicar
  IMPLICIT NONE
  INTEGER :: unit_number
  INTEGER :: i, j

  unit_number = 10
  OPEN(unit=unit_number, file='tabla_multiplicar.txt', status='replace', action='write')

  ! Escribir la tabla de multiplicar en el archivo
  DO i = 1, 10
    DO j = 1, 10
      WRITE(unit_number, '(I2, " x ", I2, " = ", I3)') i, j, i*j
    END DO
  END DO

  ! Cerrar el archivo
  CLOSE(unit_number)
END PROGRAM TablaMultiplicar

Ejercicio 2: Guardar Datos de Temperatura

Escribe un programa en Fortran que lea una serie de temperaturas desde el teclado y las guarde en un archivo llamado temperaturas.txt.

Solución

PROGRAM GuardarTemperaturas
  IMPLICIT NONE
  INTEGER :: unit_number, n, i
  REAL :: temperatura

  PRINT *, '¿Cuántas temperaturas desea ingresar?'
  READ *, n

  unit_number = 10
  OPEN(unit=unit_number, file='temperaturas.txt', status='replace', action='write')

  ! Leer y escribir las temperaturas en el archivo
  DO i = 1, n
    PRINT *, 'Ingrese la temperatura ', i, ':'
    READ *, temperatura
    WRITE(unit_number, '(F6.2)') temperatura
  END DO

  ! Cerrar el archivo
  CLOSE(unit_number)
END PROGRAM GuardarTemperaturas

Conclusión

En esta sección, hemos aprendido cómo abrir, escribir y cerrar archivos en Fortran. La capacidad de escribir en archivos es fundamental para muchos programas, ya que permite guardar y compartir datos de manera eficiente. Asegúrate de practicar con los ejemplos y ejercicios proporcionados para consolidar tu comprensión de estos conceptos. En la próxima sección, exploraremos el posicionamiento de archivos y cómo manipular archivos de manera más avanzada.

◄ Anterior
◄
Siguiente ►
►
El Proyecto | Sobre nosotros | Contribuir | Donaciones | Licencia
© Copyright 2024. Todos los derechos reservados