Length of an arc between two angles: Difference between revisions

with ada.float_text_io; use ada.float_text_io; -- for put()

with ada.numerics; use ada.numerics; -- for pi

 

procedure arc_length_simple is

function arc_length(radius, deg1, deg2: Float) return Float is

((360.0 - abs(deg1 - deg2)) * pi * radius / 180.0);

begin

put(arc_length(10.0, 120.0, 10.0), fore=>0, aft=>15, exp=>0);

end arc_length_simple;

</syntaxhighlight>

with ada.float_text_io; use ada.float_text_io; -- for put()

with ada.numerics; use ada.numerics; -- for pi

 

procedure arc_length_both is

type Degree is new Float;

type Radian is new Float;

function arc_length(radius: Float; deg1, deg2: Degree) return Float is

((360.0 - abs(Float(deg1) - Float(deg2))) * radius * pi / 180.0);

function arc_length(radius: Float; rad1, rad2: Radian) return Float is

((2.0 * pi - abs(Float(rad1) - Float(rad2))) * radius);

d1 : Degree := 120.0;

d2 : Degree := 10.0;

begin

put(arc_length(10.0, d1, d2), fore=>0, aft=>15, exp=>0);

put(arc_length(10.0, r1, r2), fore=>0, aft=>15, exp=>0);

-- Next line will not compile as you cannot mix Degree and Radian

-- put(arc_length(10.0, d1, r2), fore=>0, aft=>15, exp=>0);