F90: Simples contador espaçado

From AdonaiMedrado.Pro.Br
Revision as of 10:24, 9 September 2008 by Adonaimedrado (Talk | contribs) (New page: == Problema == Fazer um programa capaz de contar todos os números inteiros de N até M com espaçamento de K sendo N, M e K informados pelo usuário. == Solução == <code lang="fortran"...)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

Problema

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

Solução

PROGRAM aula2e1
	IMPLICIT NONE
	INTEGER :: N, M, K, C
	WRITE (*,*) "Digite o primeiro número: "
	READ (*,*) N
	WRITE (*,*) "Digite o segundo número: "
	READ (*,*) M
	WRITE (*,*) "Digite o espaçamento: "
	READ (*,*) K
	DO C=N, M, K
		WRITE (*,*) C
	END DO
END PROGRAM aula2e1
Retrieved from "https://adonaimedrado.pro.br/wiki/index.php?title=F90:_Simples_contador_espaçado&oldid=283"