Length of an arc between two angles: Difference between revisions
Length of an arc between two angles (view source)
Revision as of 15:45, 23 November 2022
, 1 year ago→{{header|Ada}}: added a short simple Ada program and one with different types for degrees and radians
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
(→{{header|Ada}}: added a short simple Ada program and one with different types for degrees and radians) |
||
Line 94:
Arc length : 43.6332
</pre>
Ada can be simple and concise:
<syntaxhighlight lang="ada">
with ada.float_text_io; use ada.float_text_io; -- for put()
with ada.numerics; use ada.numerics; -- for pi
with ada.text_io; use ada.text_io; -- for put_line()
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);
put_line("");
end arc_length_simple;
</syntaxhighlight>
Ada can do automatic compile-time checking of types. In this example, degrees and radians cannot be accidentally mixed:
<syntaxhighlight lang="ada">
with ada.float_text_io; use ada.float_text_io; -- for put()
with ada.numerics; use ada.numerics; -- for pi
with ada.text_io; use ada.text_io; -- for put_line()
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;
r1 : Radian := Radian(d1) * pi / 180.0;
r2 : Radian := Radian(d2) * pi / 180.0;
begin
put(arc_length(10.0, d1, d2), fore=>0, aft=>15, exp=>0);
put_line("");
put(arc_length(10.0, r1, r2), fore=>0, aft=>15, exp=>0);
put_line("");
-- 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);
end arc_length_both;
</syntaxhighlight>
=={{header|ALGOL W}}==
| |||