Difference between revisions of "F90: Identificando erros na entrada"

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
 
Line 7: Line 7:
 
DO
 
DO
 
READ (*,*,IOstat=Erro) NumeroInteiro
 
READ (*,*,IOstat=Erro) NumeroInteiro
IF (Status <= 0) THEN
+
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