algoritmo "equação linear"
var
a, b, c, d, f, g, x, y :real
inicio
escreva("Digite a :")
leia(a)
escreva("Digite b :")
leia(b)
escreva("Digite c :")
leia(c)
escreva("Digite d :")
leia(d)
escreva("Digite f :")
leia(f)
escreva("Digite g :")
leia(g)
escreva("Digite y :")
leia(y)
escreva("Digite x :")
leia(x)
x <- (((c*e)-(b*f))/((a*e)-(b*d)))
y <- (((a*F)-c*d))/((a*e)-(b*d)))
escreva("Valores de x e y =",x,y)
Nenhum comentário:
Postar um comentário