Difference between revisions of "F90: Tabuada"

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
(New page: == Problema == Fazer um programa capaz de exibir a tabuada (somente da multiplicação) de um número N. == Solução == <code lang="fortran"> PROGRAM aula2e3 IMPLICIT NONE INTEGER :: N...)
 
(No difference)

Latest revision as of 10:29, 9 September 2008

Problema

Fazer um programa capaz de exibir a tabuada (somente da multiplicação) de um número N.

Solução

PROGRAM aula2e3
	IMPLICIT NONE
	INTEGER :: N, C
	WRITE (*,*) "Digite o número para o qual deseja ver a tabuada: "
	READ (*,*) N	
	DO C=0, 10
		WRITE (*,*) N,"*",C,"=",N*C
	END DO
END PROGRAM aula2e3