Подсчет количества точек с целочисленными координатами, находящихся внутри круга заданного радиуса

@лера11 · Регистрация: 31.10.2016

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

Напишите программу для подсчета числа точек с целочисленными координатами, находящихся внутри круга с центром в начале координат и радиусом 1000.

@Puporev · 19.12.2016, 18:19

Pascal

var x,y,r,x2,r2,k:integer;
begin
r:=1000;
k:=0;
r2:=r*r;//^2 чтобы не считать на каждом шаге
//считаем в одной четверти по вертикальным линиям
for x:=1 to r-1 do//ось У не считаем
 begin
  x2:=x*x;//x^2 чтобы не считать на каждом шаге
  k:=k+trunc(sqrt(r2-x2))//количество точек на одной линии
 end;
k:=4*(k+r)+1;//кол. точек в четверти умножаем на 4+4 радиуса + точка (0;0)
write('k=',k);
end.

@лера11 0 / 0 / 0 Регистрация: 31.10.2016 Сообщений: 50
		1
	Подсчет количества точек с целочисленными координатами, находящихся внутри круга заданного радиуса 19.12.2016, 17:02. Показов 6153. Ответов 1 Метки нет (Все метки) Напишите программу для подсчета числа точек с целочисленными координатами, находящихся внутри круга с центром в начале координат и радиусом 1000. 0

Опции темы

Подсчет количества точек с целочисленными координатами, находящихся внутри круга заданного радиуса

Решение