[lmikle]

3 из 5:

Код:

unit CircleUtils;

uses
  Windows, SysUtils, Classes, Math;
 
interface

// площадь круга, 
function CircleSquare(R : extended) : Extended;

// площадь сектора, 
function SectorSquare(R, Alfa : Extended) : Extended;

// длину окружности, 
function CircleLen(R : Extended) : Extended;

implementation

// площадь круга, 
function CircleSquare(R : extended) : Extended;
begin
  Result := PI * Sqr(R);
end;

// площадь сектора, 
function SectorSquare(R, Alfa : Extended) : Extended;
begin
  Result := CircleSquare(R) * Alfa / 360;
end;

// длину окружности, 
function CircleLen(R : Extended) : Extended;
begin
  Result := 2 * PI * R;
end;

end.