F90: Problema do número dentro de uma faixa

From AdonaiMedrado.Pro.Br
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