Indicar a Matriz inversa (M-1) de uma matriz dada(M) de ordem 2. Portugol Studio

Indicar a Matriz inversa (M-1) de uma matriz dada(M) de ordem 2, utilizando Portugol Studio.

Atenção: Precisando de assessoria nos seus PROJETO entre em contato com a SGP

E-mail: ajudastrabalhosprogramacao@gmail.com

Whats: (15) 99704-0447

programa

{ 

 funcao vazio atribuir(real matriz [][], inteiro l, inteiro c){

        para (inteiro linha=0; linha<l; linha++){

                para(inteiro coluna=0; coluna<c; coluna++){

                      escreva("matriz["+linha+"][" + coluna+"]:")

                      leia(matriz[linha][coluna])

               }

       }

 }

funcao vazio matrizIdentidade(real ident [][], inteiro l, inteiro c){

    para (inteiro linha=0; linha<l; linha++){

            para(inteiro coluna=0; coluna<c; coluna++){

                 se(linha == coluna){

                       ident[linha][coluna] = 1.0

                }senao{

                   ident[linha][coluna] = 0.0

               }

           }

     }

 }

 

funcao vazio imprimirMatrizA(real matriz [][], inteiro l, inteiro c){

  escreva("\t Valores da Matriz\n");

  para (inteiro linha=0; linha<l; linha++){

   para(inteiro coluna=0; coluna<c; coluna++){

    escreva (matriz[linha][coluna])

     se(coluna < c - 1){

      escreva("\t")

     }senao{

       escreva("\n")

     }   

   }

  }

 }

 funcao vazio calcularMatrizInversa(real matriz [][],real ident [][], inteiro l, inteiro c){

  real pivo=0.0, p=0.0, m=0.0

  para(inteiro coluna=0; coluna<c; coluna++){

    pivo = matriz[coluna][coluna]

    p = pivo/pivo;

    para(inteiro k = coluna; k < c; k++){          

    matriz[coluna][k] = (matriz[coluna][k])/(pivo)

              ident[coluna][k] = (ident[coluna][k])/(pivo)

         }

   para (inteiro linha=0; linha<l; linha++){

    se(linha != coluna) {    

         m = matriz[linha][coluna]/p

     para(inteiro k = 0; k < c; k++)  {

      matriz[linha][k] = (matriz[linha][k]) - (m * matriz[coluna][k])

      ident[linha][k] = (ident[linha][k]) - (m * ident[coluna][k])

         }

    }

   }

  }

 }

Atenção: Precisando de ajuda entre em contato com a SGP e solicite uma assessoria com a melhor equipe do mercado no desenvolvimento de trabalhos acadêmicos

E-mail: ajudastrabalhosprogramacao@gmail.com

Facebook: fb.me/ajudaemTrabalhosdeprogramacao