Difference between revisions of "F90: Vetor de tamanho indeterminado"

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
(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