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

Формулировка задачи:

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

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

textual
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.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

13   голосов, оценка 4.385 из 5


СОХРАНИТЬ ССЫЛКУ