Area_Triangulo_equilatero

=__**Cálculo del área de un triángulo equilátero**__= >

Realizar un programa que permita calcular el área de un triángulo equilatero, conocida la longitud de un lado.

code format="pascal" PROGRAM AreaTrianguloEquilatero ;

{--- Variables del Programa Principal -} VAR rLado, rAltura, rArea: Real ;

BEGIN { Programa Principal ---} WriteLn ('Programa que calcula el area de un triangulo equilatero') ; Writeln ;

Write ('Escribe la longitud del lado: ') ; ReadLn (rLado) ;

rAltura := sqrt (sqr (rLado) - sqr (rLado / 2)) ;

rArea := rLado * rAltura / 2.0 ;

Writeln ; WriteLn (' El area del triangulo vale: ', rArea:0:2) ;

Readln ; END. code