// Autor: Prof. Tiago Eugenio de Melo // Data: 02.05.2011 // Contato: tiagodemelo@gmail.com algoritmo "Equação Segundo Grau" var a, b, c, delta, r1, r2: real inicio leia (a,b,c) delta <- (b^2)-(4*a*c) se (delta>0) entao r1 <- (-b+(delta^0.5))/2*a r2 <- (-b-(delta^0.5))/2*a escreva(r1, r2) senao se (delta=0) entao r1<--b/2*a escreva(r1) senao escreva("Não existem raízes reais.") fimse fimse fimalgoritmo