https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_N%C3%BAmero_e_seus_nomes&feed=atom&action=historyF90: Número e seus nomes - Revision history2024-03-29T01:40:00ZRevision history for this page on the wikiMediaWiki 1.26.2https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_N%C3%BAmero_e_seus_nomes&diff=288&oldid=prevAdonaimedrado: New page: == Problema == Fazer um programa capaz de solicitar um número N (entre 1 e 10) ao usuário e exibir este número por extenso. == Solução == <code lang="fortran"> PROGRAM aula2e6 IMPLI...2008-09-09T11:07:22Z<p>New page: == Problema == Fazer um programa capaz de solicitar um número N (entre 1 e 10) ao usuário e exibir este número por extenso. == Solução == <code lang="fortran"> PROGRAM aula2e6 IMPLI...</p>
<p><b>New page</b></p><div>== Problema ==<br />
Fazer um programa capaz de solicitar um número N (entre 1 e 10) ao usuário e exibir este número por extenso.<br />
<br />
== Solução ==<br />
<code lang="fortran"><br />
PROGRAM aula2e6<br />
IMPLICIT NONE<br />
INTEGER :: N <br />
WRITE (*,*) "Digite o número N: "<br />
READ (*,*) N <br />
<br />
SELECT CASE (N)<br />
CASE (1)<br />
WRITE (*,*) "Um"<br />
CASE (2)<br />
WRITE (*,*) "Dois"<br />
CASE (3)<br />
WRITE (*,*) "Três"<br />
CASE (4)<br />
WRITE (*,*) "Quatro"<br />
CASE (5)<br />
WRITE (*,*) "Cinco"<br />
CASE (6)<br />
WRITE (*,*) "Seis"<br />
CASE (7)<br />
WRITE (*,*) "Sete"<br />
CASE (8)<br />
WRITE (*,*) "Oito"<br />
CASE (9)<br />
WRITE (*,*) "Nove"<br />
CASE (10)<br />
WRITE (*,*) "Dez"<br />
CASE DEFAULT<br />
WRITE (*,*) "Desconhecido"<br />
END SELECT<br />
END PROGRAM aula2e6<br />
</code></div>Adonaimedrado