Recursos de aula dia 03 Jun 2015 – Arquivos (Fortran)

Codigo Fonte Fortran acesso:

program arquivos
!/*———————————-
!* Program: arquivos.f90
!* Autor: Hans Rogerio Zimermann
!* Data: 03/06/2015
!*———————————–/
integer m,n
real r,s
m = 2; n = 213;
r = 1.0; s = 1e+3
!/*———————————-
!* ESCRITA
!*———————————–/
open(9,file='dados.txt',status='old')
do i = 1, 5
write(9,*) m+i,n+i,r+i,s+i
enddo
!Procedimento acima gerou um arquivo de dados de 295 bytes.
open(10,file='dados2.txt')
do i = 1, 5
write(10,100) m+i,n+i,r+i,s+i
enddo
!Procedimento acima gerou um arquivo de dados de 115 bytes.
!Isto Mostra a importancia da formatacao adequada da saida de dados
100 format(I2,1X,I3,F8.2,F8.2)
open(11,file='dados3.txt')
do i = 1, 5
write(11,110) m+i,n+i,r+i,s+i
enddo
!Procedimento acima gerou um arquivo de dados de 115 bytes.
!Isto Mostra a importancia da formatacao adequada da saida de dados
110 format(2(1x,I3),2(F8.2))
close(9)
close(10)
close(11)
!/*———————————-
!* LEITURA
!*———————————–/
open(9,file='dados.txt',status='old')
do i = 1, 5
read(9,*) m,n,r,s
write(*,*) m,n,r,s
enddo
close(9)
open(9,file='dados.txt',status='old')
do i = 1, 5
read(9,*) m,n,r,s
!Mostrando no formato 110
write(*,110) m,n,r,s
enddo
close(9)
end program arquivos
!/———————————-
!* ANEXOS
!*———————————-/
!Resultados Escrita
!-rw-rw-r– 1 hans hans 115 Jun 3 08:34 dados2.txt!
!-rw-rw-r– 1 hans hans 125 Jun 3 08:34 dados3.tx
!-rw-rw-r– 1 hans hans 295 Jun 3 08:34 dados.txt
!hans@hasus:~/tmp$ cat dados.txt dados2.txt dados3.txt
! 3 214 0.00000000 1001.00000
! 4 215 1.00000000 1002.00000
! 5 216 2.00000000 1003.00000
! 6 217 3.00000000 1004.00000
! 7 218 4.00000000 1005.00000
! 3 214 0.00 1001.00
! 4 215 1.00 1002.00
! 5 216 2.00 1003.00
! 6 217 3.00 1004.00
! 7 218 4.00 1005.00
! 3 214 0.00 1001.00
! 4 215 1.00 1002.00
! 5 216 2.00 1003.00
! 6 217 3.00 1004.00
! 7 218 4.00 1005.00
!Resultados Leitura
!hans@hasus:~/tmp$ gfortran arquivos.f90
!hans@hasus:~/tmp$ ./a.out
! 3 214 0.00000000 1001.00000
! 4 215 1.00000000 1002.00000
! 5 216 2.00000000 1003.00000
! 6 217 3.00000000 1004.00000
! 7 218 4.00000000 1005.00000
! 3 214 0.00 1001.00
! 4 215 1.00 1002.00
! 5 216 2.00 1003.00
! 6 217 3.00 1004.00
! 7 218 4.00 1005.00
!hans@hasus:~/tmp$

view raw
pf-arquivos.f90
hosted with ❤ by GitHub

Deixe um comentário

Faça o login usando um destes métodos para comentar:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s

Este site utiliza o Akismet para reduzir spam. Saiba como seus dados em comentários são processados.