Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 18.09.2014
Сообщений: 2

Попадание точек в круг

18.09.2014, 10:25. Показов 2679. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В компьютер по очереди вводятся координаты N точек. Опрделите ,сколько из них попадает в круг радиусом R с центром в точке (a,b).
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
18.09.2014, 10:25
Ответы с готовыми решениями:

Попадание точек в прямоугольники: блок-схема
помогите пожалуйста составить блок-схему по тексту программы Program abc; const p=2; t=10; type Point=record ...

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

Вычислить количестиво точек с целочисленными координатами, попадающих в круг радиуса R
вычислить количестиво точек с целочисленными координатами, попадающих в круг радиуса R с центром в точке (0;0). Вывести на экран координаты...

2
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
18.09.2014, 10:33
определяете расстояние от введенной точки (X,Y) до центра круга sqrt(X*X+Y*Y) если оно меньше радиуса (R) значит попадает. и так для всех введенных точек.
1
2511 / 1132 / 582
Регистрация: 07.06.2014
Сообщений: 3,286
18.09.2014, 10:43
Лучший ответ Сообщение было отмечено ana_loover как решение

Решение

Цитата Сообщение от Joy Посмотреть сообщение
определяете расстояние от введенной точки (X,Y) до центра круга sqrt(X*X+Y*Y) если оно меньше радиуса (R)
в Паскале это будет выглядеть примерно так:
Pascal
1
2
3
4
5
6
CountOfMatch := 0;
for I:=1 to N do begin
   Write('Введите координаты ',i,'-й точки :');
   ReadLn(X,Y);
   if sqrt(sqr(X-a) + sqr(Y-b) )<R then Inc(CountOfMatch);
end;

p.s. в данном примере точки, которые попали на границу круга, не считаются.
Если нужно, чтобы они тоже считались, как принадлежащие, то нужно
Pascal
1
... <= R then
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.09.2014, 10:43
Помогаю со студенческими работами здесь

Найти целочисленные координаты точек, попадающих в круг радиуса R с центром в точке Q (A,B)
найти целочисленные координаты точек, попадающих в круг радиуса R с центром в точке Q (A,B)

В ЭВМ вводятся координаты N точек. Определить, сколько из них попадает в круг радиусом R с центром в точке (a,b)
Помогите плиз решить задачу 3 способами) 1)счетчик (for to do) 2)предпроверка условия (while do) 3)постпроверка условия (repeat...

Определить число точек, попадающих в произвольно задаваемый круг и среднее значение содержания этих точек
Задание: а) Матрица из (N,3) чисел, где N - количество проб, предс*тавляет собой данные площадного опробования. (N,1) элемент явля*ется...

Попадание точек в кольцо
В ЭВМ вводятся по очереди координаты N точек.Определить,сколько из них попадает в кольцо с внутренним радиусом R1, и внешним R2. ...

Определить попадание трех точек в заданные области
программа


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-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 с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru