quinta-feira, 2 de setembro de 2010

(L1) 8º Um sistema de equações lineares do tipo:

algoritmo "Calculo de x e y"
var
a, b, c, d, f, g, x, y :real
inicio
  escreva("Digite o valor de a:")
  leia(a)
  escreva("Digite o valor de b:")
  leia(b)
  escreva("Digite o valor de c:")
  leia(c)
  escreva("Digite o valor de d:")
  leia(d)
  escreva("Digite o valor de f:")
  leia(f)
  escreva("Digite o valor de g:")
  leia(g)
  x<-((c*e)-(b*f))/((a*e)-(b*d))
  y<-((a*f)-(c*d))/((a*e)-(b*d))
  escreva(" O valor de x é",x:5:2 , "e y é" ,y:5:2)
fimalgoritmo

Nenhum comentário:

Postar um comentário