В ЭВМ вводятся координаты N точек и R

@Dar1ing313 · Регистрация: 14.05.2010

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

В ЭВМ вводятся координаты N точек. Определить, сколько из них попадает в круг радиусом R с центром в точке (a,b).

Я ее решил так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Fyy;
uses crt;
Var x,y,k,R:integer;
Begin
write('BBeDuTe R: ');
readln(R);
k:=0;
for x:=-R to R do
for y:=-R to R do
 
begin
if sqrt(sqr(x)+sqr(y))<=R then
k:=k+1;
end;
writeln('B Kpug PaDaet ',k,' To4ek' );
readln;
end.

Но учитель сказал что не правильно решил вернее не по условию... Как я понял нужно так, мы вводим координаты N а потом радиус R и программа должна считывать сколько точек попадает в данную окружность с данными координатами и радиусом. Помогите пожалуйста до решить задачу. Заранее спасибо

@Puporev · 24.05.2010, 15:07

Нужно еще ввести координаты центра окружности a,b.
тогда будет так

Pascal
1
if abs(sqrt(sqr(x)+sqr(y))-sqrt(sqr(a)+sqr(b)))<=R then

@Dar1ing313 · 24.05.2010, 16:27 **[ТС]**

Сообщение от Puporev

Нужно еще ввести координаты центра окружности a,b.
тогда будет так

Pascal
1
if abs(sqrt(sqr(x)+sqr(y))-sqrt(sqr(a)+sqr(b)))<=R then

Нет по условию задача не верна.. Надо ввести координаты точки и посмотреть входит ли она в данную окружность с радиусам R или нет. Помогите пожалуйста до делать.

@Puporev · 24.05.2010, 17:06

Слушай, умник, вот твое условие.

Определить, сколько из них попадает в круг радиусом R с центром в точке (a,b).

Но с бугра конечно виднее.

@Dar1ing313 · 24.05.2010, 19:31 **[ТС]**

Сообщение от Puporev

Слушай, умник, вот твое условие.

Но с бугра конечно виднее.

1)Моя задача по условию не верна я имею ввиду.
2)Я не сам ведь эти условия выдумываю а учителю не нравиться, вот я и пытаюсь объяснить т.к. сам не понял его с начало... нужно ввести координаты точек а затем радиус окружности, и узнать какие из этих точек попадает в этот круг с данной окружностью а какие нет. Я вот это и прошу помочь сделать...

@Unrealler · 24.05.2010, 19:38

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var
   i,n,r,x,y,a,b:integer;
begin
 write('Ââåäèòå êîëè÷åñòâî òî÷åê=');
 readln(n);
 write('Ââåäèòå ðàäèóñ=');
 readln(r);
 writeln('Ââåäèòå êîîðäèíàòû öåíòðà îêðóæíîñòè');
 readln(a,b);
 for i:=1 to n do
  begin
   writeln('Ââåäèòå êîîðäèíàòû ',i,' òî÷êè');
   readln(x,y);
   if (sqr(x-a)+sqr(y-b)<=sqr(r)) then writeln('Ýòà òî÷êà âíóòðè îêðóæíîñòè') else writeln('Ýòà òî÷êà íå âíóòðè îêðóæíîñòè');
  end;
 readln
end.

@Dar1ing313 · 24.05.2010, 20:05 **[ТС]**

Огромное спасибо за помощь

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@Dar1ing313 0 / 0 / 0 Регистрация: 14.05.2010 Сообщений: 10
	24.05.2010, 20:05 [ТС]
	Огромное спасибо за помощь 0