uses crt;
var
a, b, c, d, e, f : integer;
x, y : real;
begin
// Site: http://programjm.blogspot.com.br/
// Autor: João Matheus Santos Assis
writeln;
// Modelo Genérico do Sistema de Equação.
writeln (' ax + by = c');
writeln (' dx + ey = f');
{
Resolvendo Sistemas de Equações do Primeiro
Grau com Duas Incógnitas em Pascal.
}
writeln;
// Obtendo os valores do usuário.
write (' a: ');
readln (a);
write (' b: ');
readln (b);
write (' c: ');
readln (c);
writeln; // Quebra de Linha.
write (' d: ');
readln (d);
write (' e: ');
readln (e);
write (' f: ');
readln (f);
writeln; // Quebra de Linha.
{
Exibindo o sistema montado de acordo
com os valores digitados pelo usuário.
}
writeln (' ', a ,'x + ', b ,'y = ', c);
writeln (' ', d ,'x + ', e ,'y = ', f);
writeln;
writeln;
{
Para resolução do Sistema de Equações é utilizado
o método da Adição, este método consiste na
realização da soma dos respectivos termos de cada
uma das equações, a fim de se obter uma única equação
com apenas uma incógnita, recorrendo ao princípio
multiplicativo da igualdade, ou seja, o sistema:
ax + by = c (* d)
dx + ey = f (* a)
é equivalente à:
adx + bdy = cd
dax + eay = fa
Note que ad = da.
}
y := (c * d - f * a) / (b * d - e * a);
{
Com o valor da incógnita y já descoberta,
está é substituida, abaixo afim de encontrar
o valor da incógnita x.
}
x := (c - b * y) / a;
// Exibindo os valores das incógnita x e y. S = {x, y}.
writeln (' x: ', x :4:2);
writeln (' y: ', y :4:2);
readkey;
end.
Palavras-Chaves: Sistema, Equações, 1° grau, Coeficientes, Incógnitas, Termos Independentes, Método da Adição, Conjunto Solução (S), Conjunto Verdade (V), X, Y, Software aplicado à Matemática, Princípio Multiplicativo, Pascal.
Artigos relacionados em Pascal:
- Calculando o IMC em Pascal
- Programa que imprimi os divisores de n entre A e B em Pascal.
- Programa que calcula o fatorial de um número em Pascal
- Programa que verifica se um número é primo em pascal
- MDC em Pascal
- Calculadora Simples em Pascal
 |
| Feito no Dev-Pascal 1.9.2 | Executável |
