olá, irei colocar a raiz do delta... um pequeno erro de matemática :/ .
Eu estou usando esse site para a formula de bhaskara> http://brasilescola.uol.com.br/matematica/formula-bhaskara.htm < o exemplo que to usando ta nele.
aqui ta o código :
Algoritmo "calculadora"
// objeitvo: para estudos
// criador: mateus Costa
// 10/07/2017
Var
num_1, num_2, num, desconto, juros, A, B, C, j, i, op: real
operacao, resp, opcao, enter, x: caracter
Inicio
repita
limpatela
escreval ("____________________________________________________________")
escreval ("calculadora")
escreval ("Digite o tipo da operação exemplo: (-),(+),(x),(/),(%) (!)")
escreval ("(bhaskara)")
escreval ("____________________________________________________________")
leia(operacao)
escolha (operacao)
caso "bhaskara"
escreval ("formula: (b)2 - 4.a.c")
escreval ("digite a letra A:")
leia(A)
escreval ("digite a letra B:")
leia(B)
escreval ("digite a letra c:")
leia(C)
escreval ("..............................")
escreval ("Reposta:",B*B - 4*A*c)
escreval("...............................")
escreval("Aperter Enter para continuar")
leia(enter)
escreval ("Segunda formula:– b ± delta")
escreval (" X= -----------")
escreval (" 2.A")
j <- 0
i <- 0
enquanto (j * i <= B*B - 4*A*c ) faca
escreva (j, " ")
j <- j + 0.1
i <- i + 0.1
fimenquanto
escreval ("resposta fatorial do delta:", j )
escreval ("resposta fatorial do delta:", i )
escreval (" ",-B + j:1:0 )
escreval("x=----")
escreval (" ",2*A)
escreval ("resposta da Primeira opção de X:",(-B+j)/(2*A):1:0 )
escreval ("resposta da segunda opção X:",(-B-j)/(2*A):1:0 )
escreval ("--------------------------")
escreval ("Portanto, as raízes da equação:")
escreval ((A),"+",(B),"x",(C),"=","0"," são ",(-B+j)/(2*A):1:0," e ",(-B-j)/(2*A):1:0)
escreval ("--------------------------")
caso "!"
escreval("digite o número desejado para a raiz quadrada:")
leia(num)
escreval("resultado é:", num * num)
caso "+"
escreval ("digite o primeiro numero")
leia(num_1)
escreval ("digite o segundo numero")
leia(num_2)
escreval ("Resultado:",num_1 + num_2)
caso "-"
escreval ("digite o primeiro numero")
leia(num_1)
escreval ("digite o segundo numero")
leia(num_2)
escreval ("Resultado:",num_1 - num_2)
caso "x"
escreval ("digite o primeiro numero")
leia(num_1)
escreval ("digite o segundo numero")
leia(num_2)
escreval ("Resultado:",num_1 * num_2)
caso "/"
escreval ("digite o primeiro numero")
leia(num_1)
escreval ("digite o segundo numero")
leia(num_2)
escreval ("Resultado:",num_1 / num_2)
caso "%"
escreval ("digite UM numero:")
leia (num)
escreval ("escolha opção 1, para:desconto")
escreval ("escolha opção 2, para:juros")
leia(opcao)
escolha (opcao)
caso "1"
escreval ("digite o desconto:")
leia(desconto)
escreval ("resultado é:", num - num * (desconto) / 100)
escreval ("desconto:", num * (desconto) / 100)
caso "2"
escreval ("digite o juros:")
leia(juros)
escreval ("resultado é:", num + num *(juros) / 100)
escreval ("Juros:", num * (juros) / 100)
fimescolha
fimescolha
fimescolha
Escreval ("voce deseja continuar sim ou não:?")
leia(resp)
ate(resp <> "sim") e (resp <> "s")
limpatela
Fimalgoritmo