Código en PSeInt

Funcion resolver(a,b,c)
    discriminante <- b^2-4*a*c
	
	Si discriminante=0 Entonces
		r <- (-b)/(2*a)
		Escribir "Raiz 1 = Raiz 2: ",r
	Sino
		r1 <- ((-b)+rc(disc))/(2*a)
		r2 <- ((-b)-rc(disc))/(2*a)
		Escribir "Raiz 1: ",r1
		Escribir "Raiz 2: ",r2
	FinSi
FinFuncion

Proceso Resolvente
    
	Escribir "ax^2 + bx + c"
    Escribir "Ingresa el valor de a"
    Leer a
    Escribir "ingresa el valor de b"
    Leer b
    Escribir "ingresa el valor de c"
    Leer c
	
	resolver(a,b,c)
    
FinProceso

Diagrama de Flujo