Upgrade to Pro — share decks privately, control downloads, hide ads and more …

Fortran - Formatos

Fortran - Formatos

Apresentação para uso em sala de aula sobre formatos de leitura e escrita em Fortran.

Conteúdo teórico mais completo pode ser encontrado no website de apoio da disciplina - http://portalfisica.com/academico/fsc1004/unidade-03/formatacao-de-entrada-e-saida/

Dd83dce868a4b2955f30caf6c0cf28b3?s=128

Hans Rogério Zimermann

December 17, 2016
Tweet

Transcript

  1. Fortran ...conjunto de caminhos a seguir...

  2. INFO Disciplina: FSC1004 Computação Básica para Física – FORTRAN Prof:

    Hans Rogério Zimermann - UFSM
  3. 12. Formato write(*,label) lista-de-variaveis label format codigo-formato Sintaxe: Exemplo: write(*,900)

    i, x 900 format(i4,f8.3)
  4. 12. Formato program generico integer :: i = 12 real

    :: x = 2.47 write(*,900) i, x 900 format(i4,f8.3) end program 12 2.470
  5. 12. Formato program generico integer :: i = 12 real

    :: x = 2254.4745876942 write(*,900) i, x 900 format(i4,1x,f3.3) end program 12 ***
  6. Formatos mais comuns Formato Descrição Conversão A conjunto de caracteres

    (texto) Aw D números com dupla precisão, notação exponencial Dw.d E números reais, notação exponencial Ew.d F números reais, formato de ponto fixo Fw.d I números inteiros w X espaços horizontais (espaço em branco) wX / espaços verticais (novalinha) \ Continuar na mesma linha Em que: w = largura do campo em caracteres (inclui sinal e pontuação) d = quantidade de dígitos à direita
  7. FORMATO A b F9.4 34.4568 0.0013 E10.4 0.3446E+03 0.1312E-02 E12.5

    0.34457E+03 0.13120E-02 D10.4 0.3446D+03 0.1312D-02 Seja a = 34.456767 e b = 0.001312 Exemplo
  8. Variável FORMATO N I2 J I3 K I3 Se N

    = 23, J =356, K=-13 Exemplo
  9. Exemplo FORMATO RESULTADO A10 teste de p A5 teste 1234567890

    NOME = ‘teste de programação’
  10. Exemplo Código Fonte RESULTADO program genérico real :: x =

    0.025 write(*,*) 'x= ', x write(*,100) 'x= ', x 100 format(A,F5.3) write(*,110) 'x= ', x 110 format(A,E8.1) end program generico x= 2.50000004E-02 x= 0.025 x= 0.3E-01
  11. 12. Formato Pode-se especificar o formato diretamente no argumento das

    funções READ, WRITE e PRINT Código Fonte RESULTADO program generico real :: x = 0.2524 print '(A,F8.3)', "Resposta = ", x write(*,'(A,F8.3)') "Resposta = ", x write(*,900) "Resposta = ", x 900 format(A,F8.3) end program Resposta = 0.252 Resposta = 0.252 Resposta = 0.252
  12. 12. Formato Código Fonte RESULTADO

  13. 12. Formato Código Fonte RESULTADO