• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Calcular el área y el perímetro de un polígono regular dados su número de lados, apotema y longitud de lado.

1
2
3
4
5
6
7
8
9
10
11
12
Proceso AreaYPerimetroDeUnPoligonoRegular
    Escribir Sin Saltar "Ingresa el valor de apotema:";
    Leer apotema;
    Escribir Sin Saltar "Ingresa el valor de longitud de lado:";
    Leer longitud_de_lado;
    Escribir Sin Saltar "Ingresa el valor de numero de lados:";
    Leer numero_de_lados;
    perimetro <- numero_de_lados*longitud_de_lado;
    area <- apotema*apotema*numero_de_lados*TAN(PI/numero_de_lados);
    Escribir "Valor de area: ", area;
    Escribir "Valor de perimetro: ", perimetro;
FinProceso