Вычислить количество точек с целочисленными координатами, находящихся внутри кольца, радиусом от R1 до R2>0 ( Паскаль((( )

[Дашуля_18]

Вычислить количество точек с целочисленными координатами, находящихся внутри кольца, радиусом от R1 до R2>0

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Langley]

Довольно просто.
Ищем точки, координаты которых лежат в диапазоне

r1 < x < r2 
r1 < y < r2

Для каждой найденной пары вычисляем расстояние R от точки, до начала координат как

R = SQRT(x^2 + y^2)

Нас интересуют точки, у которых

r1 < R < r2

(на самом деле достаточно R < r2)

Покажете наработки - помогу дописать или исправить. Полностью код писать не буду.

Upd. Да, естественно там все по модулю... Иначе это будет только четверть кольца.

[Крот]

А еще можно вот так вычислить.
1. Посчитать сколько всего точек находятся в целом круге радиуса R2
2. То же самое для R1
А потом вычисли разницу R2 - R1. И получится кол-во точек в кольце

[Serge_Bliznykov]

Langley

r1 < x < r2 
r1 < y < r2

Если это система неравенств (т.е. условия оба должны выполняться), то Вы ошибаетесь.

Если же это два отдельных НЕЗАВИСИМЫХ условия - то тогда, разумеется, Вы правы...


Крот, не уверен, что это оптимальный алгоритм. Но он, конечно же, даст верный ответ.


p.s. в условиях задачи не сказано, считать ли точки, лежащие на границах кольца... Нужно об этом помнить... (решить для себя считать или не считать и задавать либо нестрогие, либо строгие условия проверки)

p.p.s. а ещё бы я рекомендовал воспользоваться поиском. подобные задачи уже решались на форуме.
вот, например, навскидку:
http://www.programmersforum.ru/showthread.php?t=166089
http://www.programmersforum.ru/showthread.php?t=166218

впрочем, почему бы не процитировать одно из решений прямо здесь?

Program FOR1;

var 
  x,y,R1, R2: integer;
  koltoch: byte;

begin
  writeln('Введите внутренний радиус R1');
  readln(R1);
  writeln('Введите внешний радиус R2');
  readln(R2);
  koltoch:= 0;
  for x:= -R2 to R2 do
    for y:= -R2 to R2 do
      if (sqrt(sqr(x) + sqr(y)) > R1)
          and (sqrt(sqr(x) + sqr(y)) < R2) then
      begin
        koltoch:= koltoch + 1;
        writeln (x,' ',y);
     end;
  writeln(koltoch);
  readln
end.

[Langley]

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

Langley
Если это система неравенств (т.е. условия оба должны выполняться), то Вы ошибаетесь.

Нет, очевидно, это не система. Ну, чтобы не было недопонимания, проиллюстрирую кодом, частично используя идею, представленную ниже моей.

function count(R : integer) : integer;
var
	i, j : integer;
begin
	count := 0;
	for i := 1 to R do 
		for j := 1 to R do
			if (sqrt(i*i + j*j) < R) then
				inc(count);
	count := 4 * count - 4*(R-1) - 3;
end;

var
	r, num : integer;
BEGIN
	writeln('Enter R1: ');
	readln(r);
	num := count(r);
	writeln('Enter R2: ');
	readln(r);
	num := num - count(r);
	writeln('Number of points: ', num);
	readln;	
END.

Upd. Да, R1 в вышеприведенном случае должен быть больше R2. Но это детали... главное - принцип.