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
Assinar:
Postar comentários (Atom)
O meu ficou assim:
ResponderExcluirvar
na, nb, nc, bask1, bask2 : real
inicio
escreval("Vamos calcular uma equação do 2º grau ?")
escreval("Digite o valor de A")
leia(na)
escreval("Digite o valor de B")
leia(nb)
escreval("Digite o valor de C")
leia(nc)
bask1 <- ((0-nb)+raizq((nb^2)-(4*na*nc)))/(2*na)
bask2 <- ((0-nb)-raizq((nb^2)-(4*na*nc)))/(2*na)
escreval("O valor de X' é igual a ",bask1)
escreval("O valor de X'' é igual a ",bask2)
fimalgoritmo
João Luís