F90: Problema do número dentro de uma faixa

From AdonaiMedrado.Pro.Br
Revision as of 02:09, 28 August 2008 by Adonaimedrado (Talk | contribs) (New page: == Problema == Fazer um programa capaz de identificar se um número está ou não contido em uma determinada faixa (limite fechado) de valores. Exemplo: sendo a faixa [2,10] o número 5 p...)

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

Problema

Fazer um programa capaz de identificar se um número está ou não contido em uma determinada faixa (limite fechado) de valores.

Exemplo: sendo a faixa [2,10] o número 5 pertence a faixa?

Solução

PROGRAM aula1e6
	IMPLICIT NONE
	INTEGER :: a, b, n	
	WRITE (*,*) "Digite o limite inferior:"
	READ (*,*) a
	WRITE (*,*) "Digite o limite superior:"
	READ (*,*) b
	WRITE (*,*) "Digite um número:"
	READ (*,*) n
	IF (n>=a .AND. n<=b) THEN
		WRITE (*,*) "Número dentro da faixa."
	ELSE
		WRITE (*,*) "Número fora da faixa."
	END IF
END PROGRAM aula1e6
Retrieved from "https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Problema_do_número_dentro_de_uma_faixa&oldid=187"