!Exemplo: Programa que soma os valores de duas matrizes
program soma_matriz
implicit none
integer, parameter :: lin = 3 , col = 2 !dimensões das matrizes
integer :: linha !variável controladora
!das linhas nos loops
!arrays bidimensionais
real :: matriza(lin, col), matrizb(lin, col), matrizc(lin, col)
! leitura dos elementos da matriz A
print *, '-------------------------------------------- '
print *, ' A e B são Matrizes de dimensões 3x2 (linhas x colunas). '
print *, '--------------------------------------------'
print *, 'Digite os valores da matriz A: '
do linha = 1, lin
read *, matriza(linha, 1: col)
end do
print *
!leitura dos elementos da matriz B
print *, 'Digite os valores da matriz B: '
do linha = 1, lin !leitura dos elementos
read *, matrizb(linha, 1: col) !da matriz B
end do
!formação da matriz C atraves da soma dos elementos das matrizes A e B
do linha = 1, lin
matrizc(linha, 1: col) = matriza(linha, 1: col) + matrizb(linha, 1: col)
end do
print *
print *, 'Matriz C = A + B: '
do linha = 1, lin
print '(3F8.2)', matrizc(linha, 1: col) !visualização da
end do !matriz C
stop "Programa finalizado!"
end program soma_matriz
! Desafio:
! Implementar um subprograma para imprimir as matrizes
! após a inserção de seus valores no formato de exibição
! matemático (linhas x colunas)
Referências
BORBA, M. P. De; Álgebra Linear – Disciplina (2016-2) ==> UFSC-Joinville. <http://miltonborba.org/Alg_Lin/Matrizes.htm#m206a06> Acesso em 19/11/2016.