F90: Introdução aos vetores

From AdonaiMedrado.Pro.Br
Revision as of 05:31, 4 October 2008 by Adonaimedrado (Talk | contribs) (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...)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
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
Retrieved from "https://adonaimedrado.pro.br/wiki/index.php?title=F90:_Introdução_aos_vetores&oldid=571"