Advertisement
mrlolthe1st

Untitled

Aug 12th, 2021
1,349
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.63 KB | None | 0 0
  1. Var
  2.     Ang, X1, X2, Y1, Y2, R, S, D, Z, Sq : Real;
  3. Begin
  4.     Read(X1, Y1, X2, Y2, R, S);
  5.     D := Sqrt((Sqr(X1 - X2) + Sqr(Y1 - Y2))) / 2;
  6.     //WriteLn(D, ' ', R * R);
  7.     If (D * D <= R * R) Then
  8.     Begin
  9.         Z := Sqrt(R * R - D * D);
  10.         Ang := Pi / 2;
  11.         If Abs(D) > 1e-5 Then Ang := ArcTan(Z / (D));
  12.        // WriteLn(Z, ' ', D);
  13.         If Ang < 0 Then Ang := Ang + Pi;
  14.         Ang := Ang * 2;
  15.     End Else
  16.     Begin
  17.         Ang := 0;
  18.         D := 0;
  19.     End;
  20.     Sq := 2 * Pi * R * R - (R * R * (Ang) - Z * D * 2);
  21.    // WriteLn(Sq);
  22.     If Sq > S Then WriteLn('YES')
  23.     Else WriteLn('NO');
  24. End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement