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: &lt;code lang=&quot;fortran&quot;&gt; PROGRAM aula IMPLICIT NONE CALL MenuPrincipal() CONTAINS SUBROUTINE MenuPrincipal() IMPLICIT NONE INTEGER :: Opcao, Erro WRITE (*,*) &quot;1- Testar formatação ...</p> <p><b>New page</b></p><div>&lt;code lang=&quot;fortran&quot;&gt;<br /> PROGRAM aula<br /> IMPLICIT NONE<br /> CALL MenuPrincipal()<br /> CONTAINS<br /> SUBROUTINE MenuPrincipal()<br /> IMPLICIT NONE<br /> INTEGER :: Opcao, Erro<br /> WRITE (*,*) &quot;1- Testar formatação de inteiro&quot;<br /> WRITE (*,*) &quot;2- Testar formatação de real&quot;<br /> WRITE (*,*) &quot;3- Sair&quot;<br /> DO<br /> READ (*,*,IOstat=Erro) Opcao<br /> IF (Erro &lt;= 0 .AND. Opcao &gt;= 1 .AND. Opcao &lt;=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 (*,*) &quot;Digite um número inteiro&quot;<br /> READ (*,*) Numero<br /> WRITE (*,*) &quot;Digite a formatação (exemplos: (I5), (I5.5))&quot;<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 (*,*) &quot;Digite um número real&quot;<br /> READ (*,*) Numero<br /> WRITE (*,*) &quot;Digite a formatação (exemplos: (F5.2), (E5.2) (E5.2E3))&quot;<br /> READ (*,*) Formatacao<br /> WRITE (*,Formatacao) Numero<br /> END SUBROUTINE TestarFormatacaoReal<br /> END PROGRAM aula<br /> &lt;/code&gt;</div> Adonaimedrado