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 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])
}
}
}
}
}
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