-
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
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
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