terça-feira, 31 de agosto de 2010

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



algoritmo "Resolver Sistema"

var
     a,b,c,d,g,f,x,y: real

inicio
 

   escreval("Entrar com 6 números : ")
   leia(a,b,c,d,g,f)


   x<-((c*g)-(b*f))/((a*g)-(b*d))
   y<-((a*f)-(c*d))/(a*g)-(b*d))


   escreva("X = ",x, " Y = ",y)



fimalgoritmo

Nenhum comentário:

Postar um comentário