Question

С клавиатуры последовательно вводятся координаты точек. Сколько точек попадут в окружность с центром в начале координат и радиусом R. Конец ввода точек-ввод точки (0;0)

Answer 1

Program n1;
var r,k,x,y: real;
begin
readln(r);
readln(x,y);
k:=0;
while (x<>0) and (y<>0) do
begin
if (x*x+y*y<=r*r) then k:=k+1;
readln(x,y);
end;
writeln(k);
end.

Answer 2

Var r,x,y: real; k:integer;
begin
write('R = ');
readln(r);
write('x, y: ');
readln(x,y);
k:=0;
while (x<>0) and (y<>0) do
 begin
 if (x*x+y*y<=r*r) then k:=k+1;
 write('x, y: ');
 readln(x,y);
end;
writeln('k = ',k);
end.

Пример:
R = 3
x, y: 2 3
x, y: 2 1
x, y: -2.5 -2.5
x, y: -1 -1
x, y: -2 2
x, y: 0 0
k = 3

Answer 3

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

Если расстояние от точки до начала координат меньше или равно радиусу R, то точка попадает в окружность.

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

Когда ввод точек завершится, мы получим количество точек, попавших в окружность с центром в начале координат и радиусом R.