1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Proceso algoritmo1
    Escribir Sin Saltar "Ingresa el valor de a:";
    Leer a;
    Escribir Sin Saltar "Ingresa el valor de b:";
    Leer b;
    Escribir Sin Saltar "Ingresa el valor de c:";
    Leer c;
    discriminante <- b*b-4.0*a*c;
    Si discriminante<0 Entonces
        Escribir "soluciones imaginarias";
        discriminante <- -discriminante;
    SiNo
        Escribir "soluciones reales";
    FinSi
    x1 <- (-b+RC(discriminante))/2.0/a;
    x2 <- (-b-RC(discriminante))/2.0/a;
    Escribir "Valor de discriminante: ", discriminante;
    Escribir "Valor de x1: ", x1;
    Escribir "Valor de x2: ", x2;
FinProceso