Boa noite, como eu faria para fazer esse procedimento exibir o resultado das raízes ele existir?
Algoritmo "equacao do segundo grau"
funcao delta(a, b, c: real): real
var
d: real
inicio
d <- quad(b) - (4 * a * c)
retorne d
fimfuncao
funcao raizes(a, b, c: real; var r1, r2: real): logico
var
existemRaizes: logico
d: real
inicio
d <- delta(a, b, c)
se d > 0 entao
r1 <- (-1*b + raizq(d)) / (2*a)
r2 <- (-1*b - raizq(d)) / (2*a)
existemRaizes <- verdadeiro
senao
se d = 0 entao
r1 <- -1*b / (2 * a)
r2 <- r1
existemRaizes <- verdadeiro
senao
existemRaizes <- falso
fimse
fimse
retorne existemRaizes
fimfuncao
procedimento exibeRaizes(a, b, c: real)
var
inicio
R <- raizes(a,
fimprocedimento
procedimento leCoeficientes(var a, b, c:real)
inicio
escreva("Digite os coeficientes a, b e c: ")
leia(a, b, c)
fimprocedimento
Var
a, b, c: real
Inicio
escreval("C?lculo das ra?zes de uma equa??o do segundo grau")
leCoeficientes(a, b, c)
exibeRaizes(a, b, c)
Fimalgoritmo