Área de algumas figuras planas

[tekitos123 3]

Área de algumas figuras planas

 

 

//triangulo equilatero

 

function equi(l:float) : float; //l = lado

begin

result := (l*l*sqrt(3))/4

end;

 

//quadrado

function quad(l:float) : float; //l = lado

begin

result := l*l;

end;

 

//retangulo

function ret(b , h : float) : float; // b= base , h = altura

begin

result := b*h;

end;

 

// triangulo retangulo

function ret(b , h : float) : float; // b= base , h = altura

begin

result := (b*h)/2;

end;