program RadiansDegreesConversion;
{$mode objfpc}{$H+}
{
Convert radians to degrees and degrees to radians.
Uses the standard mathematical relationships:
degrees = radians * (180 / π)
radians = degrees * (π / 180)
The Math unit provides the constant Pi and common math utilities.
}
uses
Math;
{
Converts radians to degrees.
Multiplies the input by the ratio between degrees and radians.
}
function ToDegrees(const Radians: Double): Double;
begin
Result := Radians * (180.0 / Pi);
end;
{
Converts degrees to radians.
Multiplies the input by the ratio between radians and degrees.
}
function ToRadians(const Degrees: Double): Double;
begin
Result := Degrees * (Pi / 180.0);
end;
var
RadValue: Double;
DegValue: Double;
RadToDeg: Double;
DegToRad: Double;
begin
{ Example values }
RadValue := 1.0; { 1 radian }
DegValue := 180.0; { 180 degrees }
{ Perform conversions }
RadToDeg := ToDegrees(RadValue);
DegToRad := ToRadians(DegValue);
{ Display results }
WriteLn('Radians: ', RadValue:0:6, ' -> Degrees: ', RadToDeg:0:6);
WriteLn('Degrees: ', DegValue:0:6, ' -> Radians: ', DegToRad:0:6);
end.
{
run:
Radians: 1.000000 -> Degrees: 57.295780
Degrees: 180.000000 -> Radians: 3.141593
}
