Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Var
- Ang, X1, X2, Y1, Y2, R, S, D, Z, Sq : Real;
- Begin
- Read(X1, Y1, X2, Y2, R, S);
- D := Sqrt((Sqr(X1 - X2) + Sqr(Y1 - Y2))) / 2;
- //WriteLn(D, ' ', R * R);
- If (D * D <= R * R) Then
- Begin
- Z := Sqrt(R * R - D * D);
- Ang := Pi / 2;
- If Abs(D) > 1e-5 Then Ang := ArcTan(Z / (D));
- // WriteLn(Z, ' ', D);
- If Ang < 0 Then Ang := Ang + Pi;
- Ang := Ang * 2;
- End Else
- Begin
- Ang := 0;
- D := 0;
- End;
- Sq := 2 * Pi * R * R - (R * R * (Ang) - Z * D * 2);
- // WriteLn(Sq);
- If Sq > S Then WriteLn('YES')
- Else WriteLn('NO');
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement