Um cálculo muito usado é quando temos uma matriz quadrada de dimensão de três (3) linhas por três (3) colunas e precisamos calcular um sistema linear pela regra de Cramer. Este método necessita do valor do determinante de uma matriz quadrada. Isto é, dada a matriz quadrada de ordem três (3), composta pelos coeficientes a11, a12, a13, a21, a22, a23, a31, a32 e a33, o cálculo do determinante é dado pela expressão: det = a11*a22*a33 + a12*a23*a31 + a13*a21*a32 – a13*a22*a31 – a11*a23*a32 – a12*a21*a33.
Respostas
respondido por:
2
Eis o programa em VisualG
algoritmo "determinante"
// Função :
// brainly.com.br/tarefa/12808682
// Data : 28/11/2017
// Seção de Declarações
var
A : vetor [1..3, 1..3] de real
i,j : inteiro
det : real
inicio
// Seção de Comandos
// os comandos aletoria servem para evitar a digitação
// se quiser digitar os 9 elementos basta comentar os comandos aleatorio
//
aleatorio on
aleatorio -30,100
//
// ler os 9 elementos
para i de 1 ate 3 faca
para j de 1 ate 3 faca
leia(A[i,j]
fimpara
fimpara
// desliga a aleatorizacao
aleatorio off
// exibe a matriz
para i de 1 ate 3 faca
para j de 1 ate 3 faca
escreva((A[i,j]):4 ) // escreve na mesma linha
fimpara
escreval()
fimpara
det <- A[1,1]*A[2,2]*A[3,3] + A[1,2]*A[2,3]*A[3,1] + A[1,3]*A[2,1]*A[3,2]
det <- det - A[1,3]*A[2,2]*A[3,1] -A[1,1]*A[2,3]*A[3,2]-A[1,2]*A[2,1]*A[3,3]
escreval("O determinante é ",det )
// para testar esse programa e verificar se o determinante está correto
// visite www.wolframalpha.com e digite (por exemplo)
// determinant of {{-20,63,-19},{1,16,-7},{40,40,15}}
// esse site irá calcular o determinant da matriz
// -20 63 19
// 1 16 -7
// 40 40 15
fimalgoritmo
algoritmo "determinante"
// Função :
// brainly.com.br/tarefa/12808682
// Data : 28/11/2017
// Seção de Declarações
var
A : vetor [1..3, 1..3] de real
i,j : inteiro
det : real
inicio
// Seção de Comandos
// os comandos aletoria servem para evitar a digitação
// se quiser digitar os 9 elementos basta comentar os comandos aleatorio
//
aleatorio on
aleatorio -30,100
//
// ler os 9 elementos
para i de 1 ate 3 faca
para j de 1 ate 3 faca
leia(A[i,j]
fimpara
fimpara
// desliga a aleatorizacao
aleatorio off
// exibe a matriz
para i de 1 ate 3 faca
para j de 1 ate 3 faca
escreva((A[i,j]):4 ) // escreve na mesma linha
fimpara
escreval()
fimpara
det <- A[1,1]*A[2,2]*A[3,3] + A[1,2]*A[2,3]*A[3,1] + A[1,3]*A[2,1]*A[3,2]
det <- det - A[1,3]*A[2,2]*A[3,1] -A[1,1]*A[2,3]*A[3,2]-A[1,2]*A[2,1]*A[3,3]
escreval("O determinante é ",det )
// para testar esse programa e verificar se o determinante está correto
// visite www.wolframalpha.com e digite (por exemplo)
// determinant of {{-20,63,-19},{1,16,-7},{40,40,15}}
// esse site irá calcular o determinant da matriz
// -20 63 19
// 1 16 -7
// 40 40 15
fimalgoritmo
Perguntas similares
6 anos atrás
6 anos atrás
6 anos atrás
9 anos atrás
9 anos atrás
9 anos atrás