Question

How to calculate the area of a pentagon in Pascal

Answer 1

program PentagonArea;

function PentagonArea(side, apothem: Real): Real;
begin
  PentagonArea := 5.0 * (side * apothem) / 2.0;
end;

var
  side: Real;
  apothem: Real;
  area: Real;

begin
  side := 5.0;
  apothem := 3.0;

  area := PentagonArea(side, apothem);

  WriteLn('Area = ', area:0:2);
end.



(*
run:

Area = 37.50

*)

 

70+ SQL courses for beginners and professionals

Answer 2

program RegularPentagonArea;

uses Math;

function area_regular_pentagon(side: Double): Double;
begin
    area_regular_pentagon := (1 / 4) * Sqrt(5 * (5 + 2 * Sqrt(5))) * Power(side, 2);
end;

begin
    WriteLn(area_regular_pentagon(7):0:10);  
end.



(*
run:

84.3033926289

*)

 

70+ SQL courses for beginners and professionals