Difference between revisions of "F90: Números pares interativo"

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
(New page: == Problema == Fazer um programa capaz de informar os números pares a partir de N até que o usuário informe que não deseja mais números. == Solução == <code lang="fortran"> PROGRAM...)
 
(Solução)
 
Line 18: Line 18:
 
DO
 
DO
 
WRITE (*,*) C
 
WRITE (*,*) C
WRITE (*,*) "Digite 1 para exibir o próximo número, zero para finalizar: "
+
WRITE (*,*) "Digite 1 para exibir o próximo número: "
 
READ (*,*) R
 
READ (*,*) R
 
IF (R/=1) EXIT
 
IF (R/=1) EXIT

Latest revision as of 10:59, 9 September 2008

Problema

Fazer um programa capaz de informar os números pares a partir de N até que o usuário informe que não deseja mais números.

Solução

PROGRAM aula2e5
	IMPLICIT NONE
	INTEGER :: N, C, R	
	WRITE (*,*) "Digite o número N: "
	READ (*,*) N		
 
	IF (MOD(N,2) /= 0) THEN
		C = N+1
	ELSE
		C = N
	END IF
 
	DO
		WRITE (*,*) C
		WRITE (*,*) "Digite 1 para exibir o próximo número: "
		READ (*,*) R
		IF (R/=1) EXIT		
		C = C + 2
	END DO
END PROGRAM aula2e5