Проверить на попадание точек в окружность, на окружность, либо за её пределы - Pascal ABC

Формулировка задачи:

Ввести радиус окружности R с центром в начале координат. Ввести n точек, заданных координатами (x,y), которые проверить на попадание в окружность, на окружность, либо за её пределы. Посчитать сколько каких точек куда попадает.

Код к задаче: «Проверить на попадание точек в окружность, на окружность, либо за её пределы - Pascal ABC»

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;

15   голосов, оценка 3.733 из 5


СОХРАНИТЬ ССЫЛКУ