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

[HuKTO]

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

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

[Atos]

Мда... Ладно. Поясняю. В каком случае точка лежит внутри круга? Тогда, когда расстояние от точки до начала координат меньше радиуса круга. Как вычисляется это расстояние? Его квадрат равен сумме квадратов координат точки по x и по y (ТЕОРЕМА ПИФАГОРА!!). Следовательно, формула звучит так:
"если квадрат расстояния до центра координат меньше квадрата радиуса круга"

Вот код...

Код

type Arr=array[1..100] of integer;

var i,t,n:byte;
   R:word;
   x,y:Arr;
begin
t:=0;
write('Vvedite radius kruga '); readln(R);
write('Vvedite colichestvo tochek '); readln(n);

for i:=1 to n do
 begin
 write(i,' tochka: x= '); read(x[i]); write(' y= '); readln(y[i]);
 end;
for i:=1 to n do if x[i]*x[i]+y[i]*y[i] < R*R then inc(t);
writeln('Colichestvo tochek vnutri kruga ravno ',t);
readln;
end.

Вообще же лучше самостоятельно начать разбираться в Паскале: видимо, у тебя с этим проблемы. Пойми, что все программы за тебя вряд ли напишут, а если и напишут, то не гарантированно без ошибок. На самом деле программирование - очень интересная вещь! и вовсе не страшная :D и в жизни всегда пригодится. Если захочешь разобраться в нём не только ради сдачи зачёта, здесь всегда будут рады помочь тебе и дать совет.

Попробуй разобраться в этой несложной программке, и если всё-таки захочешь потренироваться, после того, как сдашь её преподавателю, попробуй модифицировать её так, чтобы она могла работать не только с кругом с центром в начале координат, но и с любым кругом(координаты его центра задаёт пользователь) Если что ещё непонятно, спрашивай

З.Ы. О, пока писал,volvo меня уже опередил с ответом

Сообщение отредактировано: Atos - 11.04.2005 12:53

[Guest]

Мда... Ладно. Поясняю.

Насчет программы:
Мне нужно именно с использованием функции (function). И в твоей задаче получается, что надо каждую точку вводить собственноручно.
На счет программирования вообще: да нет, мне как раз программирование интересно. Иначе бы не пошел на такую специальность. В прошлом году в ку бэсике и визуал бэсике вообще проблем не было(хоть и программа конечно другая была, полегче...но всеже), да и Php мне когда-то очень нравился...очень удобная штука, но сайтами я больше не увлекаюсь довольно давно...так что и оттуда все забыл. А паскаль не знаю не дается и все. Щас, кстати, ещё тему создам... новая задача...тоже вообще не понял. И с этой ещё разобратся надо(надеюсь на вашу помощь).