https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Formata%C3%A7%C3%A3o_da_sa%C3%ADda&feed=atom&action=history
F90: Formatação da saída - Revision history
2024-03-28T23:47:14Z
Revision history for this page on the wiki
MediaWiki 1.26.2
https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Formata%C3%A7%C3%A3o_da_sa%C3%ADda&diff=570&oldid=prev
Adonaimedrado: New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE CALL MenuPrincipal() CONTAINS SUBROUTINE MenuPrincipal() IMPLICIT NONE INTEGER :: Opcao, Erro WRITE (*,*) "1- Testar formatação ...
2008-10-04T05:13:10Z
<p>New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE CALL MenuPrincipal() CONTAINS SUBROUTINE MenuPrincipal() IMPLICIT NONE INTEGER :: Opcao, Erro WRITE (*,*) "1- Testar formatação ...</p>
<p><b>New page</b></p><div><code lang="fortran"><br />
PROGRAM aula<br />
IMPLICIT NONE<br />
CALL MenuPrincipal()<br />
CONTAINS<br />
SUBROUTINE MenuPrincipal()<br />
IMPLICIT NONE<br />
INTEGER :: Opcao, Erro<br />
WRITE (*,*) "1- Testar formatação de inteiro"<br />
WRITE (*,*) "2- Testar formatação de real"<br />
WRITE (*,*) "3- Sair"<br />
DO<br />
READ (*,*,IOstat=Erro) Opcao<br />
IF (Erro <= 0 .AND. Opcao >= 1 .AND. Opcao <=3) THEN<br />
SELECT CASE (Opcao)<br />
CASE (1)<br />
CALL TestarFormatacaoInteiro()<br />
CASE (2)<br />
CALL TestarFormatacaoReal()<br />
CASE (3)<br />
RETURN<br />
END SELECT<br />
EXIT<br />
END IF<br />
END DO<br />
END SUBROUTINE MenuPrincipal<br />
SUBROUTINE TestarFormatacaoInteiro()<br />
IMPLICIT NONE<br />
INTEGER :: Numero<br />
CHARACTER(LEN=10) :: Formatacao <br />
WRITE (*,*) "Digite um número inteiro"<br />
READ (*,*) Numero<br />
WRITE (*,*) "Digite a formatação (exemplos: (I5), (I5.5))"<br />
READ (*,*) Formatacao<br />
WRITE (*,Formatacao) Numero<br />
END SUBROUTINE TestarFormatacaoInteiro<br />
SUBROUTINE TestarFormatacaoReal()<br />
IMPLICIT NONE<br />
REAL :: Numero<br />
CHARACTER(LEN=10) :: Formatacao <br />
WRITE (*,*) "Digite um número real"<br />
READ (*,*) Numero<br />
WRITE (*,*) "Digite a formatação (exemplos: (F5.2), (E5.2) (E5.2E3))"<br />
READ (*,*) Formatacao<br />
WRITE (*,Formatacao) Numero<br />
END SUBROUTINE TestarFormatacaoReal<br />
END PROGRAM aula<br />
</code></div>
Adonaimedrado