Manual de Utilização e Comandos FORTRAN USP 2006
38 pág.

Manual de Utilização e Comandos FORTRAN USP 2006


DisciplinaProgramação I20.532 materiais239.833 seguidores
Pré-visualização7 páginas
WRITE (<unidade> [, <especificador de formato>] 
 [, END = <num1>] [, ERR = <num2>] [, IOSTAT = <var1>] 
 [, REC = <número registro>]) lista de variáveis e/ou expressões 
 
onde: [ ] - item opcional. 
 <unidade> - número da unidade associado ao arquivo. 
 <especificação do formato> - número do comando FORMAT ou *. 
 <num1> - número de um comando executável FORTRAN para o qual o 
 controle é transferido quando é encontrado o fim-de-arquivo. 
 <num2> - número de um comando executável quando ocorre erro. 
 <var1> - variável do tipo inteiro que armazenará um valor do status de E/S. 
 se var1 = 0, não houve erro. 
 se var1 < 0, fim-de-arquivo. 
 se var1 > 0, erros. 
 <número registro> - somente usado para arquivo de acesso direto, 
 especifica o número do registro que será acessado. 
 
 
8.9.5 Comandos BACKSPACE, REWIND, ENDFILE, EN 
 
Backspace: posiciona o arquivo no início do registro anterior ao registro 
corrente. 
 
Rewind: posiciona o arquivo no ínicio, ou seja, no primeiro registro. 
 
Endfile: escreve um registro de fim-de-arquivo em um arquivo. 
 
 
Exemplos: 
 
O programa ESCREVE, cria um arquivo chamado TESTE.DAT e grava neste 
arquivo nomes e telefones fornecidos pelo teclado. 
 
 PROGRAM ESCREVE 
 CHARACTER NOME*10, FONE*10 
 OPEN(3,FILE='TESTE.DAT', STATUS = 'NEW') 
C ----Leitura de dados 
 WRITE(*,*) 'Entre com nome e telefone!' 
 READ(*,5) NOME, FONE 
 5 FORMAT(2A7) 
 DO WHILE (NOME.NE.'zzzzzzz'.AND.NOME.NE.'ZZZZZZZ') 
 WRITE(3,5) NOME, FONE 
 WRITE(*,*) 'Entre com nome e telefone!' 
 READ(*,5) NOME, FONE 
 END DO 
 ENDFILE(3) 
 CLOSE(3,STATUS = 'KEEP') 
 STOP 
 END 
 
O programa LE1, lê nomes e telefones do arquivo TESTE.DAT e mostra estes 
dados no vídeo. A variável ESTADO irá identificar o final do arquivo, ela será 
igual a 0 enquanto houver registros para ler. 
 
 PROGRAM LE1 
 CHARACTER NOME*10, FONE*10 
 INTEGER ESTADO 
 OPEN(3,FILE='TESTE.DAT', STATUS = 'OLD') 
 REWIND(3) 
C ----Leitura de dados do arquivo 
 READ(3,5,IOSTAT=ESTADO) NOME, FONE 
 DO WHILE(ESTADO.EQ.0) 
 WRITE(*,*) 'Nome = ', nome, 'Fone = ', fone 
 READ(3,5,IOSTAT=ESTADO) NOME, FONE 
 5 FORMAT(2A7) 
 END DO 
 ENDFILE(3) 
 CLOSE(3,STATUS = 'KEEP') 
 STOP 
 END 
 
O programa LE2, também lê nomes e telefones do arquivo TESTE.DAT e mostra 
estes dados no vídeo, mas usa para isto a variável EOF irá identificar o final do 
arquivo. 
 
 
 PROGRAM LE2 
 CHARACTER NOME*10, FONE*10 
 OPEN(3,FILE='TESTE.DAT', STATUS = 'OLD') 
 REWIND(3) 
C---- ----Leitura de dados 
 DO WHILE(.NOT. EOF(3)) 
 READ(3,5) NOME, FONE 
 WRITE(*,*) 'Nome = ', nome, 'Fone = ', fone 
 5 FORMAT(2a3) 
 END DO 
 ENDFILE(3) 
 CLOSE(3,STATUS='KEEP') 
 STOP 
 END 
 
9. Conclusão 
 
Este trabalho descreveu os principais comandos da Linguagem Fortran (versão 
5.1), além de apresentar alguns conceitos básicos sobre computação e programas 
de computadores. 
 
10. Bibliografia 
 
[Cereda 87] Cereda, R. L. D.; Maldonado, J. C. Introdução ao FORTRAN 77 
para Microcomputadores. McGraw-Hill, 1987. 
 
[Pressman 83] Pressman, R. S. Software Engineering: a Practitioner's Approach. 
Tokyo, McGraw-Hill, 1983.