Difference between revisions of "F90: Vetor de tamanho indeterminado"
From AdonaiMedrado.Pro.Br
(New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE INTEGER :: i, quantidade INTEGER, DIMENSION(:),ALLOCATABLE :: a WRITE (*,*) "Quantos números deseja digitar?" READ (*,*) quantidade; ...) |
(No difference)
|
Latest revision as of 00:39, 28 October 2008
PROGRAM aula IMPLICIT NONE INTEGER :: i, quantidade INTEGER, DIMENSION(:),ALLOCATABLE :: a WRITE (*,*) "Quantos números deseja digitar?" READ (*,*) quantidade; IF (quantidade > 999) THEN WRITE (*,*) "Quantidade muito grande, digite um número até 999" ELSE ALLOCATE(a(1:quantidade)) WRITE (*,"(A,I3,A)") "Digite",quantidade," números" READ (*,*) (a(i),i=1,quantidade) WRITE (*,*) "Seus,",quantidade,"números foram:" WRITE (*,"(I3.3)") (a(i),i=1,quantidade) DEALLOCATE(a) END IF END PROGRAM aula