 Графическая задача |
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
| Tribunal |
 13.05.2006 19:00
Сообщение
#1
|
 Бывалый  Группа: Пользователи Сообщений: 233 Пол: Женский Реальное имя: Dasha Репутация:  0   |
Задача такова:
Дан файл вещественных чисел,которые являются координатами точек. Нужно найти такие 3 точки, что треугольник, построенный на этих точках будет содержать максимальное количество точек множества. Координаты этих трёх точек сохранить в файле, как результат +нужна графическая иллюстрация к этой задаче. Предложите,пожалуйста,варианты решения этой задачи или какие-нибудь идеи. У меня они пока не могут оформиться... Буду благодарна за помощь. Сообщение отредактировано: Tribunal - 13.05.2006 19:02 -------------------- irreparabilium felix olivio rerum
|
   |
 
|
  |
Ответов
| мисс_граффити |
13.05.2006 20:58
Сообщение
#2
|
 просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
как узнать, принадлежит ли точка треугольнику - есть здесь:
http://algolist.manual.ru/olimp/geo_prb.php а в целом.... перебором, наверное. для каждых 3 точек считать, сколько точек будет внутри этого треугольника. если больше, чем хранящееся в переменной max значение - запоминать точки. надеюсь, проблем с чтением из файла и с записью в него нет? иллюстрация... тут придется координаты округлять. или брать масштаб побольше, а потом все равно округлять - Паскаль при рисовании любит целочисленные. -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
|
|
|
Сообщений в этой теме
Tribunal Графическая задача 13.05.2006 19:00
Tribunal а для того,чтобы координаты можно было редактирова... 15.05.2006 9:28
Malice Где-то вот так:
max:=0; t1_max:=1; t2_max:=2; t3_... 15.05.2006 9:53 Tribunal а что обозначает сие выражение?
if Принадлежит (x... 17.05.2006 7:54 Malice а что обозначает сие выражение?
if Принадлежит (x,... 17.05.2006 8:00 Tribunal я решила считывать координаты из файла в список.
в... 15.05.2006 11:17 мисс_граффити может, я не права, но... не логичнее ли работать с... 15.05.2006 16:57 Бродяжник Если они записаны именно таким образом, то заменит... 15.05.2006 12:13 Tribunal нет.я не написала в условии,
но сказано работать с... 16.05.2006 8:16 Tribunal значит у меня получается вот какая штука:
есть фай... 16.05.2006 10:05 volvo Tribunal, все правильно... Только файл не "оч... 16.05.2006 10:41 Tribunal а как тогда мне изменить файл? 16.05.2006 12:24 volvo Что-то типа:
writeln('Введите x');read(xe)... 16.05.2006 12:36 Tribunal ...эээ...проблема в том,что когда я записываю из ф... 16.05.2006 13:56 volvo Нет... Для того, чтобы отредактировать текстовый ф... 16.05.2006 14:22 Tribunal а тогда можно ли в моем случае это сделать как-то ... 16.05.2006 15:04 мисс_граффити а если все несколько упростить - предположить, что... 16.05.2006 17:46 Tribunal просто я решила работать со списками по той причин... 17.05.2006 7:39 Tribunal а,ну тогда ясно... 17.05.2006 9:10 Tribunal выкладываю то,что у меня получилось.
делала на Del... 17.05.2006 12:04 volvo Чтобы программа компилировалась, нужно добавить од... 17.05.2006 12:34 Tribunal я тут кое-что еще исправила...
у меня возник вопро... 17.05.2006 14:18 Tribunal и еще у меня что-то не то с процедурой удаления
(р... 17.05.2006 14:43 Tribunal я понимаю,что я вас уже достала...(
но я очень над... 17.05.2006 15:02 Tribunal вот текущий вариант моей программы 17.05.2006 16:33 Tribunal с удалением и изменением я разобралась.
только вот... 18.05.2006 5:32 Malice
помогите,пожалуйста...
У меня, к сожалению, делф... 18.05.2006 10:51 Tribunal спасибо большое,...я действительно упустила из вид... 19.05.2006 13:25 Tribunal ура)всё получилось...всем большое спасибо за помощ... 19.05.2006 15:17 Tribunal в общем,вот оно... 19.05.2006 16:10 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 16.08.2025 13:18 |