Question

Pedir los coeficientes de una ecuacion de 2º grado, y muestre sus solucion reales. Si no existen, debe indicarlo

Answer 1

Aquí tengo un algoritmo para eso en SL

varraiz1, raiz2, discriminante, a, b, c : numericoinicio cls() imprimir ("\n Ingrese el valor para a ") leer (a) imprimir ("\n Ingrese el valor para b ") leer (b) imprimir ("\n Ingrese el valor para c ") leer (c) discriminante =sqrt(b^2-4*a*c) raiz1= (-b+discriminante)/(2*a) raiz2= (-b-discriminante)/(2*a)  si (discriminante>0) { imprimir ("\n La primera raíz es= ", raiz1) imprimir ("\n La primera raíz es= ", raiz2)} si(discriminante<0) { imprimir ("\n No hay raiz") }
fin