Indicar o determinante de uma matriz de ordem 3 - Portugol Studio
Atenção: Precisando de assessoria nos seus PROJETO entre em contato com a SGP
E-mail: ajudastrabalhosprogramacao@gmail.com
programa
{
funcao vazio atribuir(real
matriz [][], inteiro l, inteiro c){
para (inteiro i=1; i<=3;
i++){
para(inteiro j=1; j<=3;
j++){
escreva("matriz["+i+"][" + j+"]:")
leia(matriz[i][j])
}
}
}
funcao vazio
determinante(real matrizA [][], inteiro l, inteiro c){
inteiro cont=0, linha1=0
real cont1=0.0, cont2=0.0
para (l=1;
l<=3-1;l++){
se( matrizA[l][l] ==
0){
para(linha1=l;linha1<=3;linha1++){
se(matrizA[linha1][l] != 0){
para (c=1;
c<=3;c++){
cont2 = matrizA[l][c]
matrizA[l][c]=matrizA[linha1][c]
matrizA[linha1][c] = cont2
}
linha1= 3
}
}
cont=cont+1
}
se(matrizA[l][l]
!= 0){
para
(linha1=l+1;linha1<=3;linha1++){
cont1= (-1.0)
* matrizA[linha1][l] / matrizA[l][l]
para(c=l;c<=3;c++){
matrizA[linha1][c] = matrizA[linha1][c] + (cont1 *matrizA[l][c])
}
}
}
}
cont2 = 1.0
para (l=1;
l<=3;l++){
cont2 = cont2 * matrizA[l] [l]
}
escreva("\n\n\nDeterminante:\n\n")
se (cont %2 == 0){
escreva(cont2)
}senao{
escreva(-1.0 * cont2)
}
}
funcao inicio()
{
real matrizA[5][5]
inteiro l=0,c=0
escreva("\nInforme os
valores da matriz A\n")
atribuir(matrizA, l,c)
determinante(matrizA, l,c)
}
}
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
0 comentários:
Postar um comentário