Ecuación cuadrática en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Calcula los valores de x₁ y x₂ de una ecuación cuadrática usando la fórmula genral.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Proceso EcuacionCuadratica

    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

        discriminante <- -discriminante;

        Escribir "Soluciones imaginarias";

    SiNo

        Escribir "Soluciones reales";

    FinSi

    Si a <> 0 Entonces

        x1 <- (-b+RC(discriminante))/2.0/a;

        x2 <- (-b-RC(discriminante))/2.0/a;

    SiNo

        x1 <- 0;

        x2 <- 0;

        Escribir "No es una ecuación cuadrática";

    FinSi

    Escribir "Valor de discriminante: ", discriminante;

    Escribir "Valor de x1: ", x1;

    Escribir "Valor de x2: ", x2;

FinProceso