Question

Me ajudem por favor!

Atualmente, em tudo que vemos em tecnologia podemos encontrar algoritmos. Sejam para criar uma tabela ou realizar cálculos complexos. Encontramos exemplos nas áreas de banco de dados, classificação de informações, cálculos de equações e matrizes. Estes algoritmos são aplicados constantemente em cálculos de sistemas lineares de equações. 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.
A partir destas informações, desenvolva um algoritmo em VISUALG que realize a entrada dos valores da matriz 3x3 de valores reais, apresente a matriz inserida e calcule e apresente o determinante. Como sempre, não se esqueça de comentar o código inteiro.

Answer 1

Eis o programa em VisualG
agora com fonte em anexo em txt.
algoritmo "determinante"
// Função :
// https://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

68c6b307e7a8f604efb70412ca7e49ef.txt