F90: Número e seus nomes

From AdonaiMedrado.Pro.Br
Jump to: navigation, search

Problema

Fazer um programa capaz de solicitar um número N (entre 1 e 10) ao usuário e exibir este número por extenso.

Solução

PROGRAM aula2e6
	IMPLICIT NONE
	INTEGER :: N	
	WRITE (*,*) "Digite o número N: "
	READ (*,*) N		
 
	SELECT CASE (N)
		CASE (1)
			WRITE (*,*) "Um"
		CASE (2)
			WRITE (*,*) "Dois"
		CASE (3)
			WRITE (*,*) "Três"
		CASE (4)
			WRITE (*,*) "Quatro"
		CASE (5)
			WRITE (*,*) "Cinco"
		CASE (6)
			WRITE (*,*) "Seis"
		CASE (7)
			WRITE (*,*) "Sete"
		CASE (8)
			WRITE (*,*) "Oito"
		CASE (9)
			WRITE (*,*) "Nove"
		CASE (10)
			WRITE (*,*) "Dez"
		CASE DEFAULT
			WRITE (*,*) "Desconhecido"
	END SELECT
END PROGRAM aula2e6