Проверить на попадание точек в окружность, на окружность, либо за её пределы - Pascal ABC
Формулировка задачи:
Ввести радиус окружности R с центром в начале координат. Ввести n точек, заданных координатами (x,y), которые проверить на попадание в окружность, на окружность, либо за её пределы. Посчитать сколько каких точек куда попадает.
Решение задачи: «Проверить на попадание точек в окружность, на окружность, либо за её пределы»
textual
Листинг программы
read(r); r:=r*r; vn:=0; na:=0; sn:=0; for i:=1 to n do begin read(x,y); d:= x*x+y*y; if d<r then inc(vn) else if d=r then inc(na) else inc(sn); end;
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д