Число точек, находящихся внутри круга, (использовать функции) Опции

[HuKTO]

Подсчитать число точек, находящихся внутри круга, радиусом R с центром в начале координат, координаты заданы массивами x(100), y(100).

Никак не врублюсь в паскаль. Вроде задача не трудная, а как сделать - хз. Сам алгоритм вроде просматривается, но формулу по которой будут точки считаться внутри круга где брать... без понятия. Вообщем помогите пжл с этой нелегкой(для меня) задачей. Можно с коментариями неболишими..может чего-нибудь да пойму.

[volvo]

Вот функция, проверяющая лежит ли i-я точка внутри круга:

Код

Function isInside(i: integer): boolean;
begin
 isInside := (sqr(x[i]) + sqr(y[i])) < sqr(R)
end;

В цикле для каждой точки вызываешь эту ф-ю и если ее значение = True то увеличиваешь счетчик... Где именно проблема?

[HuKTO]

Вот функция, проверяющая лежит ли i-я точка внутри круга:

Код

Function isInside(i: integer): boolean;
begin
 isInside := (sqr(x[i]) + sqr(y[i])) < sqr(R)
end;

В цикле для каждой точки вызываешь эту ф-ю и если ее значение = True то увеличиваешь счетчик... Где именно проблема?

Да сам не знаю где проблема...наверное в моей голове. Ну вообщем если делать след:

Код

uses crt;
function isInside(i:integer):boolean;
var
r,x,y,kol:integer;

begin
kol:=0;
writeln('Radius: ');readln(r);
isInside:=(sqr(x)*sqr(y))<sqr(R);
for i:=1 to 100 do
if isInside(i)=true then inc(kol)
end;
var
a1:integer;
begin
writeln(isInside(r,x,y,kol);
end.

То он выдает ошибку на параметрах isInside, т.к. я их якобы не задавал вообще. Вначале по-идее также должно быть

Код

Type mass=array[1..100] of integer;
var
x,y: mass;

Но в таком случае он выдает ошибку, где написано что-то вроде "вам нужно описать х и y через integer либо через real". Пробывал и так и сяк - 0 результата.