Entre em contato com a gente!
Ajuda e Doações ao Blog-
Pix mvf5system@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)
}
}
Contato:
Trabalhos.:
E-mail: mvf5system@gmail.com
Blog: http://mvf5-system.blogspot.com.br/
Facebook: https://www.facebook.com/mvf5systems
0 comentários:
Postar um comentário