Difference between revisions of "F90: Simples contador"

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
(New page: == Problema == Fazer um programa capaz de contar todos os números inteiros de N até M sendo N e M informados pelo usuário. == Solução == <code lang="fortran"> PROGRAM aula2e1 IMPLIC...)
 
(No difference)

Latest revision as of 10:15, 9 September 2008

Problema

Fazer um programa capaz de contar todos os números inteiros de N até M sendo N e M informados pelo usuário.

Solução

PROGRAM aula2e1
	IMPLICIT NONE
	INTEGER :: N, M, C
	WRITE (*,*) "Digite o primeiro número: "
	READ (*,*) N
	WRITE (*,*) "Digite o segundo número: "
	READ (*,*) M
	DO C=N, M
		WRITE (*,*) C
	END DO
END PROGRAM aula2e1