Anonymous user
Find the intersection of two lines: Difference between revisions
Find the intersection of two lines (view source)
Revision as of 19:33, 28 February 2019
, 5 years agono edit summary
(Added Rust) |
No edit summary |
||
Line 11:
<br>The 2<sup>nd</sup> line passes though <big> (0,3) </big> and <big> (10,7)</big> .
<br><br>
=={{header|Ada}}==
{{works with|Ada|Ada|2005}}
<lang Ada>with Ada.Text_IO;
procedure Intersection_Of_Two_Lines
is
Do_Not_Intersect : exception;
type Line is record
a : Float;
b : Float;
end record;
type Point is record
x : Float;
y : Float;
end record;
function To_Line(p1, p2 : in Point) return Line
is
a : constant Float := (p1.y - p2.y) / (p1.x - p2.x);
b : constant Float := p1.y - (a * p1.x);
begin
return (a,b);
end To_Line;
function Intersection(Left, Right : in Line) return Point is
begin
if Left.a = Right.a then
raise Do_Not_Intersect with "The two lines do not intersect.";
end if;
declare
b : constant Float := (Right.b - Left.b) / (Left.a - Right.a);
begin
return (b, Left.a * b + Left.b);
end;
end Intersection;
A1 : constant Line := To_Line((4.0, 0.0), (6.0, 10.0));
A2 : constant Line := To_Line((0.0, 3.0), (10.0, 7.0));
p : constant Point := Intersection(A1, A2);
begin
Ada.Text_IO.Put(p.x'Img);
Ada.Text_IO.Put_Line(p.y'Img);
end Intersection_Of_Two_Lines;
</lang>
{{out}}
<pre> 5.00000E+00 5.00000E+00
</pre>
=={{header|ALGOL 68}}==
| |||