https://www.adonaimedrado.pro.br/wiki/index.php?action=history&feed=atom&title=F90%3A_O_uso_do_COMMONF90: O uso do COMMON - Revision history2026-05-27T21:32:06ZRevision history for this page on the wikiMediaWiki 1.26.2https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_O_uso_do_COMMON&diff=716&oldid=prevAdonaimedrado: New page: <code lang="fortran"> PROGRAM aula !Este é um programa didático, com o objetivo de mostrar o uso de COMMON. !Acredito que a forma mais recomendada de ser resolvido este p...2008-11-03T01:41:35Z<p>New page: <code lang="fortran"> PROGRAM aula !Este é um programa didático, com o objetivo de mostrar o uso de COMMON. !Acredito que a forma mais recomendada de ser resolvido este p...</p>
<p><b>New page</b></p><div><code lang="fortran"><br />
PROGRAM aula<br />
!Este é um programa didático, com o objetivo de mostrar o uso de COMMON.<br />
!Acredito que a forma mais recomendada de ser resolvido este problema é através de<br />
!um parâmetro passado para as funções RetornarArea e RetornarVolume e não<br />
!através do uso do COMMON<br />
IMPLICIT NONE<br />
REAL, PARAMETER :: pi = 3.14159265<br />
CALL ObterRaio()<br />
WRITE (*,"(A,F10.2)") "A área da superfície da esfera é ",RetornarArea()<br />
WRITE (*,"(A,F10.2)") "O volume da esfera é ",RetornarVolume()<br />
CONTAINS<br />
SUBROUTINE ObterRaio()<br />
IMPLICIT NONE<br />
INTEGER :: E<br />
REAL :: raio<br />
COMMON raio<br />
WRITE (*,*) "Digite o valor do raio da esfera:"<br />
DO<br />
READ (*,*,IOstat=E) raio<br />
IF (E>0) THEN<br />
WRITE (*,*) "Valor inválido. O raio deve ser um valor real."<br />
ELSE<br />
EXIT<br />
END IF<br />
END DO<br />
END SUBROUTINE<br />
REAL FUNCTION RetornarArea()<br />
IMPLICIT NONE<br />
REAL :: raio<br />
COMMON raio<br />
RetornarArea = 4*pi*(raio**2)<br />
END FUNCTION<br />
REAL FUNCTION RetornarVolume()<br />
IMPLICIT NONE<br />
REAL :: raio<br />
COMMON raio<br />
RetornarVolume = (4/REAL(3))*pi*(raio**3)<br />
END FUNCTION<br />
END PROGRAM<br />
</code></div>Adonaimedrado