https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Somando_dois_n%C3%BAmeros_por_extenso&feed=atom&action=history
F90: Somando dois números por extenso - Revision history
2024-03-28T17:33:40Z
Revision history for this page on the wiki
MediaWiki 1.26.2
https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Somando_dois_n%C3%BAmeros_por_extenso&diff=559&oldid=prev
Adonaimedrado: New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE CHARACTER(LEN=10) :: NumeroPorExtenso INTEGER :: PrimeiroNumero, SegundoNumero WRITE (*,*) "Digite o primeiro número" READ (*,*) Num...
2008-10-04T03:53:06Z
<p>New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE CHARACTER(LEN=10) :: NumeroPorExtenso INTEGER :: PrimeiroNumero, SegundoNumero WRITE (*,*) "Digite o primeiro número" READ (*,*) Num...</p>
<p><b>New page</b></p><div><code lang="fortran"><br />
PROGRAM aula<br />
IMPLICIT NONE<br />
CHARACTER(LEN=10) :: NumeroPorExtenso<br />
INTEGER :: PrimeiroNumero, SegundoNumero<br />
<br />
WRITE (*,*) "Digite o primeiro número"<br />
READ (*,*) NumeroPorExtenso<br />
PrimeiroNumero = RetornarInteiro(NumeroPorExtenso)<br />
<br />
WRITE (*,*) "Digite o segundo número"<br />
READ (*,*) NumeroPorExtenso<br />
SegundoNumero = RetornarInteiro(NumeroPorExtenso)<br />
<br />
WRITE (*,*) "A soma é igual a ", PrimeiroNumero+SegundoNumero<br />
CONTAINS<br />
INTEGER FUNCTION RetornarInteiro(ValorPorExtenso)<br />
CHARACTER(LEN=10), INTENT(IN) :: ValorPorExtenso<br />
SELECT CASE (ValorPorExtenso)<br />
CASE ("um")<br />
RetornarInteiro = 1<br />
CASE ("dois")<br />
RetornarInteiro = 2<br />
CASE ("três")<br />
RetornarInteiro = 3<br />
CASE ("quatro")<br />
RetornarInteiro = 4<br />
CASE ("cinco")<br />
RetornarInteiro = 5<br />
CASE ("seis")<br />
RetornarInteiro = 6<br />
CASE ("sete")<br />
RetornarInteiro = 7<br />
CASE ("oito")<br />
RetornarInteiro = 8<br />
CASE ("nove")<br />
RetornarInteiro = 9<br />
CASE ("dez")<br />
RetornarInteiro = 10<br />
CASE DEFAULT<br />
RetornarInteiro = 0<br />
END SELECT<br />
END FUNCTION<br />
END PROGRAM aula<br />
</code></div>
Adonaimedrado