%% prog005 area perimetro

clearvars;
close all;
clc;

%este programa calcula el perímetro y el área de un poligono 
%regular inscrito en un circulo triangulo, cuadrado, pentagono, hexágono, etc.

%% entrada de datos
N = input('numero de lados del poligono N = ');
R = input('radio del circulo            R = ');

%% calculos
a = 2*pi/N;                 %usamos radianes 2*pi (rad) = 360 (grados)
Lado = 2*R*sin(a/2);        %lado triangulo
h = R*cos(a/2);             %altura del triangulo
AreaTriangulo = Lado*h/2;   %area triangulo

AreaPoligono = N*AreaTriangulo;
PerimetroPoligono = N*Lado;

%% resultados
disp('AreaPoligono = ');
disp(AreaPoligono);
disp('PerimetroPoligono = ');
disp(PerimetroPoligono);

%este programa trabaja una estructura de caracter secuencial, es decir 
%una instruccion es ejecutada despuesde la otra hasta 
%llegar al final del programa