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: &lt;code lang=&quot;fortran&quot;&gt; PROGRAM aula IMPLICIT NONE CHARACTER(LEN=10) :: NumeroPorExtenso INTEGER :: PrimeiroNumero, SegundoNumero WRITE (*,*) &quot;Digite o primeiro número&quot; READ (*,*) Num...</p> <p><b>New page</b></p><div>&lt;code lang=&quot;fortran&quot;&gt;<br /> PROGRAM aula<br /> IMPLICIT NONE<br /> CHARACTER(LEN=10) :: NumeroPorExtenso<br /> INTEGER :: PrimeiroNumero, SegundoNumero<br /> <br /> WRITE (*,*) &quot;Digite o primeiro número&quot;<br /> READ (*,*) NumeroPorExtenso<br /> PrimeiroNumero = RetornarInteiro(NumeroPorExtenso)<br /> <br /> WRITE (*,*) &quot;Digite o segundo número&quot;<br /> READ (*,*) NumeroPorExtenso<br /> SegundoNumero = RetornarInteiro(NumeroPorExtenso)<br /> <br /> WRITE (*,*) &quot;A soma é igual a &quot;, PrimeiroNumero+SegundoNumero<br /> CONTAINS<br /> INTEGER FUNCTION RetornarInteiro(ValorPorExtenso)<br /> CHARACTER(LEN=10), INTENT(IN) :: ValorPorExtenso<br /> SELECT CASE (ValorPorExtenso)<br /> CASE (&quot;um&quot;)<br /> RetornarInteiro = 1<br /> CASE (&quot;dois&quot;)<br /> RetornarInteiro = 2<br /> CASE (&quot;três&quot;)<br /> RetornarInteiro = 3<br /> CASE (&quot;quatro&quot;)<br /> RetornarInteiro = 4<br /> CASE (&quot;cinco&quot;)<br /> RetornarInteiro = 5<br /> CASE (&quot;seis&quot;)<br /> RetornarInteiro = 6<br /> CASE (&quot;sete&quot;)<br /> RetornarInteiro = 7<br /> CASE (&quot;oito&quot;)<br /> RetornarInteiro = 8<br /> CASE (&quot;nove&quot;)<br /> RetornarInteiro = 9<br /> CASE (&quot;dez&quot;)<br /> RetornarInteiro = 10<br /> CASE DEFAULT<br /> RetornarInteiro = 0<br /> END SELECT<br /> END FUNCTION<br /> END PROGRAM aula<br /> &lt;/code&gt;</div> Adonaimedrado