Teorema de Herón en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Calcula el área de un triángulo dados sus 3 lados con el teorema de Herón.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Proceso TeoremaDeHeron

    Escribir Sin Saltar "Ingresa el valor de lado a:";

    Leer lado_a;

    Escribir Sin Saltar "Ingresa el valor de lado b:";

    Leer lado_b;

    Escribir Sin Saltar "Ingresa el valor de lado c:";

    Leer lado_c;

    Si lado_a>=0 Y lado_b>=0 Y lado_c>=0 Y lado_a+lado_b>lado_c Y lado_b+lado_c>lado_a Y lado_c+lado_a>lado_b Entonces

        semiperimetro <- (lado_a+lado_b+lado_c)/2;

        area <- RC(semiperimetro*(semiperimetro-lado_a)*(semiperimetro-lado_b)*(semiperimetro-lado_c));

    SiNo

        semiperimetro <- 0;

        area <- 0;

        Escribir "Los lados del triángulo son incorrectos.";

    FinSi

    Escribir "Valor de area: ", area;

    Escribir "Valor de semiperimetro: ", semiperimetro;

FinProceso