Question

Написать программу, определяющую попадает ли точка с координатами (x, y) в заштрихованную область (PASCAL)

Answer 1

PascalABC.NET:

• ###
• var f: (real, real) → boolean := (x, y) →  
• (Abs(y/x) >= 1/2) and (Abs(y/x) <= 2) and  
• (y<0
• ? (Sqrt(x**2+y**2) > 4) and (x >= -4) and (x <= 4)
• : (Sqrt(x**2+y**2) <= 4));
• f(RR, RR).Pr