Difference between revisions of "F90: Introdução aos vetores"
From AdonaiMedrado.Pro.Br
(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
