The_Law

Untitled

Dec 13th, 2017
270
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.60 KB | None | 0 0
  1. program ideone;
  2.  
  3. var
  4. a, b, r, d, x, y, x1, y1, x2, y2: real;
  5. eps: real = 0.000000001;
  6.  
  7. begin
  8.     read(a, b, r);
  9.    
  10.     d := Sqr(2 * a * b) - 4 * (Sqr(a) + 1) * (Sqr(b) - Sqr(r));
  11.     if d > eps then
  12.     begin
  13.         x1 := (-2 * a * b + Sqrt(d)) / (2 * (Sqr(a) + 1));
  14.         y1 := a * x1 + b;
  15.        
  16.         x2 := (-2 * a * b - Sqrt(d)) / (2 * (Sqr(a) + 1));
  17.         y2 := a * x2 + b;
  18.        
  19.         writeln('First x, y', x1:5, y1:5);
  20.         writeln('Second x, y', x2:5, y2:5);
  21.     end
  22.     else if (d < eps) and (d > -eps) then
  23.     begin
  24.         x := (-1 * a * b) / (Sqr(a) + 1);
  25.         y := a * x + b;
  26.        
  27.         writeln(x:5, y:5);
  28.     end
  29.     else
  30.         writeln(False);
  31. end.
Advertisement
Add Comment
Please, Sign In to add comment