Difference between revisions of "F90: Divisão de dois números inteiros"

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
(New page: == Problema == Fazer um programa capaz de mostrar a resposta da divisão entre dois números inteiros. == Solução == <code lang="fortran"> PROGRAM aula1e3 IMPLICIT NONE INTEGER :: a, ...)
 
(No difference)

Latest revision as of 01:43, 28 August 2008

Problema

Fazer um programa capaz de mostrar a resposta da divisão entre dois números inteiros.

Solução

PROGRAM aula1e3
	IMPLICIT NONE
	INTEGER :: a, b
	WRITE (*,*) 'Digite o dividendo: '
	READ (*,*) a
	WRITE (*,*) 'Digite o divisor: '
	READ (*,*) b
	WRITE (*,*) 'A divisão inteira de a por b é igual a ', a/b
END PROGRAM aula1e3