algoritmo "Calcular x e y"
var
a, b, c, d, f, x, y: numerico
inicio
escreval ( "calcule o valor de x e de y")
escreva ("informe o valor de a: ")
leia (a)
escreva ("informe o valor de b: ")
leia (b)
escreva ("informe o valor de c: ")
leia (c)
escreva ("informe o valor de d: ")
leia (d)
escreva ("informe o valor de f: ")
leia (f)
se (a<>0) ou (b<>0) ou (d<>0) entao
x <- (c) - (b*f)/(a) - (b*d)
y <- (a*f) - (c*d)/ (a)- (b*d)
escreva ("O valor de x eh: ", x)
escreva ("O valor de y eh: ", y)
senao
escreva ("A equação não pode ser resolvida")
fimse
fimalgoritmo
Nenhum comentário:
Postar um comentário