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

[HuKTO]

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

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

[volvo]

HuKTO, смотри что происходит: Ты описываешь функцию, и внутри нее - локальную переменную R, правда? Но ведь эта переменная недоступна ВНЕ функции, откуда ты пытаешься к ней обратиться. Так что объявляй ее глобально, еще перед функцией...

И второе... Функция IsInside выполняет строго определенную задачу: Выясняет, находится ли точка под номером i внутри круга. Зачем же взваливать на эту же функцию еще и ввод радиуса и подсчет количества точек? Тогда она вообще тебе не нужна, как функция, и тебе лучше перенести все в основную программу.

Вот что тебе нужно:

Код

uses crt;
const n = 100;
var
 i, r, kol:integer;
 x, y: array[1 .. n] of integer; { У тебя же массив координат по условию }

function isInside(i:integer):boolean;
begin
 isInside:=(sqr(x)*sqr(y))<sqr(R);
end;

var
begin
 writeln('Radius: ');readln(r);

 { Здесь тебе надо будет добавить ввод самих координат }

 kol:=0;
 for i:=1 to 100 do
   if isInside(i) then inc(kol) { <--- Когда работаешь с Boolean,
то "= True" можно не писать, компилятор это поймет :) }

 writeln('точек в круге:', kol);
end.