Sistema de ecuaciones lineales en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

El sistema de ecuaciones lineales:
px + my = C
dx + dy = f
Se puede resolver con las fórmulas:
X = ce - mf / pe - md
y = pf - cd / pe - md
Si pe - md ≠ 0
Elabore un algoritmo que lea los coeficientes p, m, c, e, f, y calcule los valores de x, y.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Proceso SistemaDeEcuacionesLineales

    Escribir Sin Saltar "Ingresa el valor de c:";

    Leer c;

    Escribir Sin Saltar "Ingresa el valor de d:";

    Leer d;

    Escribir Sin Saltar "Ingresa el valor de e:";

    Leer e;

    Escribir Sin Saltar "Ingresa el valor de f:";

    Leer f;

    Escribir Sin Saltar "Ingresa el valor de m:";

    Leer m;

    Escribir Sin Saltar "Ingresa el valor de p:";

    Leer p;

    divisor <- p*e-m*d;

    x <- 0;

    _y <- 0;

    Si divisor = 0 Entonces

        Escribir "Error: división por cero.";

    SiNo

        x <- (c*e-m*f)/divisor;

        _y <- (p*f-c*d)/divisor;

    FinSi

    Escribir "Valor de  y: ", _y;

    Escribir "Valor de divisor: ", divisor;

    Escribir "Valor de x: ", x;

FinProceso