F90: Multiplicação de um número por uma matriz

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
PROGRAM aula
	IMPLICIT NONE
	REAL :: Matriz(5,5), Resultado(5,5), Multiplicador
	INTEGER :: i = 0, j = 0
 
	DO i = 1, 5
		DO j = 1, 5
			WRITE (*,"(A,I1,A,I1,A)") "Digite o elemento inteiro a(",i,",",j,")"
			READ (*,*) Matriz(i, j)
		END DO
	END DO
 
	WRITE (*,*) "Digite um multiplicador"
	READ (*,*) Multiplicador
 
	DO i = 1, 5
		DO j = 1, 5			
			Resultado(i, j) = Matriz(i, j) * Multiplicador
		END DO
	END DO
 
	WRITE (*,*) "Entrada"
	DO i = 1, 5
		WRITE (*,"(5(F6.2))") Matriz(i,1), Matriz(i,2), Matriz(i,3), Matriz(i,4), Matriz(i,5)
	END DO
 
	WRITE (*,*) "Resultado"
	DO i = 1, 5
		WRITE (*,"(5(F6.2))") Resultado(i,1), Resultado(i,2), Resultado(i,3), Resultado(i,4), Resultado(i,5)
	END DO
END PROGRAM aula