|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
26.06.2014, 16:51 | #11 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,285
|
В найденном вами примере сравнивались элементы с индексами j и j+1, а в вашем коде - i и j.
И кусок кода в button4click для красоты: Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
26.06.2014, 19:37 | #12 |
Пользователь
Регистрация: 23.06.2014
Сообщений: 13
|
Большое спасибо, все заработало как надо) не подскажите еще как сделать, чтобы в мой объявленный массив в глобальных переменных, заполнялся рандомно от 1 до 99?:
a: array[0..6] of TPoint = ((x:10; y:20),(x:40; y:50),(x:40; y:40),(x:40; y:30),(x:50; y:60),(x:60; y:70),(x:10; y:10)); Если бы это было по нажатии кнопки можно было прописать randomize; и заполнить, но тут по две цифры и еще буквы х, у, и он объявлен в глобальных переменных. |
26.06.2014, 19:54 | #13 | |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Цитата:
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
|
26.06.2014, 20:10 | #14 |
Пользователь
Регистрация: 23.06.2014
Сообщений: 13
|
Спасибо еще раз, отличный рандом, теперь еще одна проблемка. Хотел в конце вывести все точки таким способом:
Form1.Canvas.Polygon(a); Но как выяснилось это способ для построения многоугольника, работает как надо, но в конце он еще соединяет первую и последнюю точку, мне этого не нужно. Знаете способ как можно вывести мои точки с координатами и соединенные линиями? |
26.06.2014, 20:38 | #15 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,285
|
Canvas.Polyline
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
26.06.2014, 20:41 | #16 |
Пользователь
Регистрация: 23.06.2014
Сообщений: 13
|
про Canvas.Polyline, сейчас почитаю, а вот пока пробую вот что:
компонент PaintBox и вот какой код: Код:
Вот немного нашел, после линий прописать: Код:
и еще возникает мысль сделать это в цикле все... Последний раз редактировалось Леон2110; 26.06.2014 в 20:51. |
26.06.2014, 21:42 | #17 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,285
|
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
26.06.2014, 22:42 | #18 |
Пользователь
Регистрация: 23.06.2014
Сообщений: 13
|
Спасибо) намного короче и функциональнее.
|
27.06.2014, 21:09 | #20 | |
Санитар
Старожил
Регистрация: 04.10.2008
Сообщений: 2,618
|
Цитата:
Квадрата там быть не должно, n * 2 получить нереально. Решаться должно за n * log(n) |
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
На плоскости задано множество точек. Определить все тройки точек, которые являются вершинами прямоугольного треугольника | Олечка12 | Помощь студентам | 11 | 22.04.2014 19:56 |
Даны координаты точек n на плоскости. Найти номера двух точек, расстояние между которыми наибольшее. | getredtm | Помощь студентам | 3 | 01.07.2013 01:47 |
Delphi. На плоскости заданы n точек своими координатами.Построить квадрат | Allexey | Помощь студентам | 4 | 18.06.2013 13:46 |
Даны координаты n точек на плоскости. Найти номера двух точек, расстояние между которыми наибольшее. | Viwwna | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 19.11.2011 06:33 |
определить радиус и центр окружности, на кот. лежит наиб.число точек заданного на плоскости мн-ва точек) | kcю | Помощь студентам | 0 | 17.11.2009 19:50 |