Resolvendo sistemas lineares
Um sistema linear é um conjunto composto por duas ou mais equações lineares, isto é, equações que contenham incógnitas apenas de primeiro grau.
Resolver o sistema linear abaixo:
Resolução:
algoritmo()
{
matriz real a[4:4];
vetor real x[4];
vetor real s[4];
real d;
a[] := {
7, 4, -2, 1,
0, 9.284, 4.858, -5.429,
0, 4.144, 7.428, 2.286,
0, -10.716, 3.858, -4.429
};
x[] := {14.308, 19.606, 0.220, 15.888};
d := Determinante(a[]);
s[] := SistemaLinear(a[],x[]);
escreva("determinante de a[]= ", d);
escreva("solucao: ",s[]);
}
Tela de execução: