|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.12.2021, 13:24 | #1 |
Новичок
Джуниор
Регистрация: 13.12.2021
Сообщений: 4
|
Подсчитать количество точек
Помогите подсчитать количество точек, попадающих в круг радиуса 4 из центром в начале координат
Нужно доделать программу k:=0; for i:=1 to n do begin Read(x,y); if Sqr(x)+Sqr(y)<=Sqr(4) then Inc(k); end; |
13.12.2021, 14:59 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
13.12.2021, 18:18 | #3 |
Новичок
Джуниор
Регистрация: 13.12.2021
Сообщений: 4
|
Так сверху же нужно добавить описание используемых переменных, begin и ввод количество точек?
У меня с этим проблемы |
13.12.2021, 19:32 | #4 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,330
|
В общем случае предполагается, что координаты - случайные числа.
Можно сделать так: Код:
Посмотрите отношение числа попавших точек к общему числу точек. Сделайте вычисление для, скажем, 10000 точек Как соотносятся площади квадрата и вписанного круга и общее число точек к числу попавших в круг? (Метод Монте-Карло). PS: Код не тестировался. Так что пробуйте и, по необходимости, доводите ...
Как-то так, ...
|
13.12.2021, 20:09 | #5 |
Новичок
Джуниор
Регистрация: 13.12.2021
Сообщений: 4
|
Но здесь же скорей всего нужно самому вводить кол-во точек а не через рандом
|
13.12.2021, 21:41 | #6 | |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,330
|
Если вам надо, что бы пользователь вводил число точек, то:
Код:
Для пяти - десяти точек это ещё терпимо, а вот больше ... Я не думаю, что у вас или вашего преподавателя такие наклонности ... Думаю, что вам знакомы садомазохизм и садизм PS: Цитата:
Количество точек, в предложенном мной коде, определено (50), и не вводится рандомно. Рандомно генерируются координаты для этих точек (для пользователя, который вводит их ручками - это 100 чисел). PSS: А код то хоть рабочий?
Как-то так, ...
|
|
13.12.2021, 21:56 | #7 |
Новичок
Джуниор
Регистрация: 13.12.2021
Сообщений: 4
|
А все я понимаю теперь.
Спасибо большое код рабочий. |
13.12.2021, 22:49 | #8 | |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,330
|
Цитата:
Как-то так, ...
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Подсчитать количество точек пересечения прямых | Jenyyy | Помощь студентам | 11 | 25.05.2015 13:02 |
Задано множество прямых на плоскости (коэффициентами своих уравнений). Подсчитать количество точек пересечения этих прямых | клепэ | C# (си шарп) | 3 | 03.11.2013 23:37 |
Подсчитать количество равносторонних треугольников с вершинами в заданном множестве точек на плоскости (Delphi) | dea_celeste | Помощь студентам | 4 | 17.05.2012 15:33 |
Задаnm n точек. Найти m=3,4... точек и построить на них m-угольник: количество точек , лежащих внутри и вне его мин. различается | L.Rain | Помощь студентам | 0 | 11.12.2011 22:19 |
подсчитать количество точек пересечения | fallti | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 28.06.2010 13:46 |