F90: Multiplicação de um número por uma matriz
From AdonaiMedrado.Pro.Br
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