Área y perímetro de un polígono regular en lenguaje Pascal

Lenguaje

Pascal
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
13
14
15
16
17
18
19

program AreaYPerimetroDeUnPoligonoRegular;

uses crt, math;

var apotema, area, longitud_de_lado, numero_de_lados, perimetro : real;

begin

    write ('Ingresa el valor de apotema: ');

    readln (apotema);

    write ('Ingresa el valor de longitud de lado: ');

    readln (longitud_de_lado);

    write ('Ingresa el valor de numero de lados: ');

    readln (numero_de_lados);

    perimetro := numero_de_lados*longitud_de_lado;

    area := apotema*apotema*numero_de_lados*tan(PI/numero_de_lados);

    writeln ('Valor de area: ', area:0:6);

    writeln ('Valor de perimetro: ', perimetro:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.