https://www.adonaimedrado.pro.br/wiki/index.php?action=history&feed=atom&title=F90%3A_Vetor_de_tamanho_indeterminado
F90: Vetor de tamanho indeterminado - Revision history
2026-05-27T12:04:24Z
Revision history for this page on the wiki
MediaWiki 1.26.2
https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Vetor_de_tamanho_indeterminado&diff=695&oldid=prev
Adonaimedrado: New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE INTEGER :: i, quantidade INTEGER, DIMENSION(:),ALLOCATABLE :: a WRITE (*,*) "Quantos números deseja digitar?" READ (*,*) quantidade; ...
2008-10-28T00:39:46Z
<p>New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE INTEGER :: i, quantidade INTEGER, DIMENSION(:),ALLOCATABLE :: a WRITE (*,*) "Quantos números deseja digitar?" READ (*,*) quantidade; ...</p>
<p><b>New page</b></p><div><code lang="fortran"><br />
PROGRAM aula<br />
IMPLICIT NONE<br />
INTEGER :: i, quantidade<br />
INTEGER, DIMENSION(:),ALLOCATABLE :: a<br />
WRITE (*,*) "Quantos números deseja digitar?"<br />
READ (*,*) quantidade; <br />
IF (quantidade > 999) THEN<br />
WRITE (*,*) "Quantidade muito grande, digite um número até 999"<br />
ELSE<br />
ALLOCATE(a(1:quantidade))<br />
WRITE (*,"(A,I3,A)") "Digite",quantidade," números"<br />
READ (*,*) (a(i),i=1,quantidade)<br />
WRITE (*,*) "Seus,",quantidade,"números foram:"<br />
WRITE (*,"(I3.3)") (a(i),i=1,quantidade)<br />
DEALLOCATE(a)<br />
END IF<br />
END PROGRAM aula<br />
</code></div>
Adonaimedrado