26 set 2017

Soma de Matrizes

Imagem: Repodução Brasilescola.uol.com.br

!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.

Leave a Reply