L5 - 6 - Um sistema de equações lineares do tipo:

a * x + b * y = c

d * x + e * y = f


pode ser resolvido da seguinte forma:
x <- ( c * e – b * f ) / ( a * e – b * d )
y <- ( a * f – c * d ) / ( a * e – b * d )

Escreva um algoritmo que leia os coeficientes a, b, c, d e f e calcule e escreva os valores de x e y.
Lembre-se de que os denominadores das equações não podem ser zero.

Algoritmo "calcula x e y"
Var
    a,b,c,d,letrae,f: inteiro
    x,y,denom: real
    opt: literal
    quit: logico
Inicio
    quit <- falso
    opt <- " "
    Repita
        Escreval("Digite os valores de A à F:")
        Leia(a,b,c,d,letrae,f)
        denom <- ( a * letrae - b * d )
        Se (denom = 0) entao
                Escreval("Valores invalidos, o denominador da equacao nao pode ser ZERO")
                Escreva("Gostaria de tentar novamente (s/n) ")
                Leia(opt)
        Senao
                x <- ( c * letrae - b * f ) / denom

                y <- ( a * f - c * d ) / denom

                quit <- verdadeiro

        Fimse
    Ate(quit = verdadeiro)ou(opt="n")
    Se(quit = verdadeiro)entao
            Escreva("X = ",x:5:3," e Y = ",y:5:3)
    Senao
            Escreva("O usuario inseriu dados invalidos ( nao pode dividir por zero )!")
    Fimse
Fimalgoritmo