Difference between revisions of "F90: Introdução aos vetores"

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
(New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE INTEGER :: Vetor(5), i = 0 WRITE (*,*) "Digite 5 números inteiros entre 0 e 999" DO i = 1, 5 READ (*,*) Vetor(i) END DO DO i = 1...)
 
(No difference)

Latest revision as of 05:31, 4 October 2008

PROGRAM aula
	IMPLICIT NONE
	INTEGER :: Vetor(5), i = 0
 
	WRITE (*,*) "Digite 5 números inteiros entre 0 e 999"
	DO i = 1, 5
		READ (*,*) Vetor(i)
	END DO
 
	DO i = 1, 5
		WRITE (*,"(I3.3)") Vetor(i)
	END DO
END PROGRAM aula