В ЭВМ вводятся по очереди координаты N точек. Определить, сколько из них попадает в круг.

[dmitriy20104]

Доброго времени суток, программисты! Возникла проблема в решение задачи. Кому не трудно, помогите!
В ЭВМ вводятся по очереди координаты N точек. Определить, сколько из них попадает в круг радиусом R с центром в точке (a,b).

[Stilet]

readln(x,y);
x:=(x-a);y:=(y-a);
if sqrt(x*x+y*y)<=R then точки x,y введенные с клавы попали на TV

Идея понятна?

[ViktorR]

Small defect

y:=(y-a);

Must be

y:=(y-b);

Вот так часто и бывает, копируешь, копируешь ...

[dmitriy20104]

Stilet, я не понял, что такое "а". И что такое TV?

[VIK_aka_TOR]

Сообщение от dmitriy20104

Stilet, я не понял, что такое "а". И что такое TV?

a и b это ваш центр окружности... а TV... ну как бы ваш круг...
проще говоря измеряется растояние от центра окружности до ваших точек... и сравнивается с радиусом окружности...

[dmitriy20104]

а "x" и "y" что тогда?

И точек n-нное кол-во.

[VIK_aka_TOR]

Сообщение от dmitriy20104

а "x" и "y" что тогда?

координаты введенных "вами" точек...

Сообщение от dmitriy20104

И точек n-нное кол-во.

не все же за вас делать... вам показали для проверки точки... извольте что либо сами уж сделать... тут оказывают помощь а не бюро халявного решения...