1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
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