Difference between revisions of "F90: Identificando erros na entrada"
From AdonaiMedrado.Pro.Br
(New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE INTEGER :: Status INTEGER :: NumeroInteiro WRITE (*,*) "Digite um número inteiro" DO READ (*,*,IOstat=Status) NumeroInteiro IF (S...) |
|||
| (One intermediate revision by the same user not shown) | |||
| Line 2: | Line 2: | ||
PROGRAM aula | PROGRAM aula | ||
IMPLICIT NONE | IMPLICIT NONE | ||
| − | INTEGER :: | + | INTEGER :: Erro |
INTEGER :: NumeroInteiro | INTEGER :: NumeroInteiro | ||
WRITE (*,*) "Digite um número inteiro" | WRITE (*,*) "Digite um número inteiro" | ||
DO | DO | ||
| − | READ (*,*,IOstat= | + | READ (*,*,IOstat=Erro) NumeroInteiro |
| − | IF ( | + | IF (Erro <= 0) THEN |
WRITE (*,*) "OK. Obrigado, você digitou o número inteiro", & | WRITE (*,*) "OK. Obrigado, você digitou o número inteiro", & | ||
NumeroInteiro, "." | NumeroInteiro, "." | ||
Latest revision as of 03:32, 4 October 2008
PROGRAM aula IMPLICIT NONE INTEGER :: Erro INTEGER :: NumeroInteiro WRITE (*,*) "Digite um número inteiro" DO READ (*,*,IOstat=Erro) NumeroInteiro IF (Erro <= 0) THEN WRITE (*,*) "OK. Obrigado, você digitou o número inteiro", & NumeroInteiro, "." EXIT ELSE WRITE (*,*) "Ops! Você não digitou um número inteiro." END IF END DO END PROGRAM aula
