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

@Kre4o · Регистрация: 24.09.2018

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

1. Написать программу, которая вычисляет количество точек с целочисленными координатами, попадающими в круг радиуса R с центром в начале координат. Радиус задается с клавиатуры. При этом он не обязательно является целым числом. Указание: для решения задачи лучше использовать либо цикл с предварительным условием, либо с завершающим условием.

@ZX Spectrum-128 · 02.10.2018, 09:23

Внизу страницы "Похожие темы".

@Puporev · 02.10.2018, 10:14

Мне кажется что так лучше.

Pascal

var r:real;
    n,x,r2,x2,k:integer;
begin
write('Введите радиус круга R>0 r=');
readln(r);
if r<1 then
 begin
  write('Количество точек=1');
  exit;
 end;
n:=trunc(r);//целая часть радиуса
k:=0;
r2:=n*n;
//считаем в одной четверти по вертикальным линиям
for x:=1 to n-1 do//последнюю точку на оси Х  не считаем
 begin
  x2:=x*x;//x^2
  k:=k+trunc(sqrt(r2-x2))+1//количество точек на одной вертикальной линии
 end;
k:=k+1;//последняя точка на оси Х
k:=4*k+1;//4 сектора+точка (0,0)
write('K=',k);
end.

@Kre4o 0 / 0 / 0 Регистрация: 24.09.2018 Сообщений: 91
		1
	Написать программу, которая вычисляет количество точек с целочисленными координатами, попадающими в круг радиуса R 01.10.2018, 19:02. Показов 2319. Ответов 2 Метки нет (Все метки) 1. Написать программу, которая вычисляет количество точек с целочисленными координатами, попадающими в круг радиуса R с центром в начале координат. Радиус задается с клавиатуры. При этом он не обязательно является целым числом. Указание: для решения задачи лучше использовать либо цикл с предварительным условием, либо с завершающим условием. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	02.10.2018, 09:23	2
	Внизу страницы "Похожие темы". 0

	02.10.2018, 10:14