Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program ideone;
- var
- a, b, r, d, x, y, x1, y1, x2, y2: real;
- eps: real = 0.000000001;
- begin
- read(a, b, r);
- d := Sqr(2 * a * b) - 4 * (Sqr(a) + 1) * (Sqr(b) - Sqr(r));
- if d > eps then
- begin
- x1 := (-2 * a * b + Sqrt(d)) / (2 * (Sqr(a) + 1));
- y1 := a * x1 + b;
- x2 := (-2 * a * b - Sqrt(d)) / (2 * (Sqr(a) + 1));
- y2 := a * x2 + b;
- writeln('First x, y', x1:5, y1:5);
- writeln('Second x, y', x2:5, y2:5);
- end
- else if (d < eps) and (d > -eps) then
- begin
- x := (-1 * a * b) / (Sqr(a) + 1);
- y := a * x + b;
- writeln(x:5, y:5);
- end
- else
- writeln(False);
- end.
Advertisement
Add Comment
Please, Sign In to add comment