Ecuacion cuadratica en BASIC ESTRUCTURADO

[alejandrocaro35]

Proceso sin_titulo
Definir a, b, c, d, re, im Como Reales;
Escribir "ax^2+bx+c=0";
Escribir "Ingrese los coeficientes";
Escribir "a=";
Leer a;
Escribir "b=";
Leer b;
Escribir "c=";
Leer c;
Si a = 0 Entonces
Si b = 0 Entonces
Si c = 0 Entonces
Escribir "No hay ecuación";
Sino
Escribir c, "=0 (imposible)";
FinSi
Sino
Escribir "Se reduce a una ecuación lineal";
Escribir "Solucion:x=", -c / b;
FinSi
Sino
d <- b ^ 2 - 4 * a * c;
Escribir "Discriminante: d=", d;
Si d > 0 Entonces
Escribir "Hay 2 soluciones reales dierentes";
Escribir "x1=", (-b + RC(d)) / (2 * a);
Escribir "x2=", (-b - RC(d)) / (2 * a);
Sino
Si d = 0 Entonces
Escribir "Hay 2 slnes reales iguales";
Escribir "x1=x2= ", -b / (2 * a);
Sino
Escribir "Hay 2 soluciones complejas conjugadas";
re <- -b / (2 * a);
im <- ABS(RC(-d) / (2 * a));
Escribir "x1=", re, "+", im, "i";
Escribir "x1=", re, "-", im, "i";
FinSi
FinSi
FinSi
FinProceso