F90: Divisão de dois números inteiros

From AdonaiMedrado.Pro.Br
Revision as of 01:43, 28 August 2008 by Adonaimedrado (Talk | contribs) (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, ...)

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

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
Retrieved from "https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Divisão_de_dois_números_inteiros&oldid=180"