Untitled

% Script para calcular las raíces reales de una ecuación de segundo grado

% Solicitar al usuario los coeficientes de la ecuación
a = input('Ingrese el coeficiente a: ');
b = input('Ingrese el coeficiente b: ');
c = input('Ingrese el coeficiente c: ');

% Verificar que a no sea cero (no es una ecuación de segundo grado)
if a == 0
    disp('El coeficiente "a" no puede ser cero. No es una ecuación de segundo grado.');
else
    % Calcular el discriminante
    D = b^2 - 4*a*c;

    % Evaluar las raíces según el valor del discriminante
    if D > 0
        % Dos raíces reales distintas
        r1 = (-b + sqrt(D)) / (2*a);
        r2 = (-b - sqrt(D)) / (2*a);
        fprintf('Las raíces reales son: r1 = %.2f y r2 = %.2f\n', r1, r2);
    elseif D == 0
        % Una raíz real doble
        r = -b / (2*a);
        fprintf('La raíz real doble es: r = %.2f\n', r);
    else
        % No hay raíces reales
        disp('La ecuación no tiene raíces reales.');
    end
end