Найти количество точек плоскости с целочисленными координатами, попадающие в кольцо

@izh_love · Регистрация: 07.12.2015

Студворк — интернет-сервис помощи студентам

Помогите с задачкой пожалуйста=)
Найти количество точек плоскости с целочисленными координатами,
попадающие в кольцо, образованное окружностями с центром
в точке (x[c], y[c]) и радиусом r[1] и r[2].

@Puporev · 07.12.2015, 15:01

Pascal

var r1,r2,xc,yc:real;
    i1,i2,j1,j2,i,j,k:longint;
begin
repeat
writeln('Введите радиусы(r1>r2) и координаты центра кольца');
readln(r1,r2,xc,yc);
until r1>r2;
{определим целые границы области}
if frac(xc-r1)=0 then i1:=trunc(xc-r1) else i1:=trunc(xc-r1-frac(xc-r1));
if frac(xc+r1)=0 then i2:=trunc(xc+r1) else i2:=trunc(xc+r1-frac(xc+r1));
if frac(yc-r1)=0 then j1:=trunc(yc-r1) else j1:=trunc(yc-r1-frac(yc-r1));
if frac(yc+r1)=0 then j2:=trunc(xc+r1) else j2:=trunc(yc+r1-frac(yc+r1));
{считаем точки в области кольца}
k:=0;
for i:=i1 to i2 do
for j:=j1 to j2 do
if (sqr(i-xc)+sqr(j-yc)<=r1*r1)and(sqr(i-xc)+sqr(j-yc)>=r2*r2){условие принадлежности}
then  k:=k+1;
write('k=',k);
end.

@izh_love 4 / 4 / 4 Регистрация: 07.12.2015 Сообщений: 29
		1
	Найти количество точек плоскости с целочисленными координатами, попадающие в кольцо 07.12.2015, 14:10. Показов 1901. Ответов 1 Метки нет (Все метки) Помогите с задачкой пожалуйста=) Найти количество точек плоскости с целочисленными координатами, попадающие в кольцо, образованное окружностями с центром в точке (x[c], y[c]) и радиусом r[1] и r[2]. 0

Опции темы

Найти количество точек плоскости с целочисленными координатами, попадающие в кольцо

Решение