SOLUÇÃO EQUAÇÃO DO 2o GRAU

algoritmo "equação do 2º grau"
// Função :tirar raiz de delta e tirar x1, x2
// Autor :djones
// Data : 29/3/2011
// Seção de Declarações
var
a,b,c,resolb,resoldelta,delta,x1,x2:real
inicio
// Seção de Comandos
escreval("insira A: ")
leia(a)
escreval("insira B: ")
leia(b)
escreval("insira C: ")
leia(c)
resolb<-(b^2)
delta<-(resolb-4*a*c)
se(delta<0)entao
escreval("Não há raizes reais: ")
fimse
ou
se(delta>0)entao
resoldelta<-raizq(delta)
x1<-((-b+resoldelta)/2*a)
x2<-((-b-resoldelta)/2*a)
escreval("x1: ", x1)
escreval("x2: ",x2)
fimse


fimalgoritmo
Por Djones