![]() |
|
Модераторы: Poseidon |
![]()
|
|
| 1900s |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 9 Регистрация: 28.6.2006 Репутация: нет Всего: нет |
Добрый день.
Помогите перегнать код с Quick Basic на Delphi: Распознавание принадлежности точки полигону (Если pd > 0, то точка принадлежит полигону) FOR j = 1 TO ku FOR i = 1 TO nnk(j) xkk(i) = xk(j, i): ykk(i) = yk(j, i) NEXT i nz = nnk(j) - 1 GOSUB 2000: 'T & Kontur IF pd > 0 THEN jk1 = j NEXT j END 2000 kk = 0: ks = 0 FOR i = 1 TO nz v1 = i + 1 IF x3 >= xkk(i) THEN 2100 IF x3 < xkk(v1) THEN 2230 2050 o4 = (x3 - xkk(i)) * (ykk(v1) - ykk(i)) / (xkk(v1) - xkk(i)) + ykk(i) ks = ks + 1: sk = ks / 2 kd = INT(sk): dk = sk - kd IF x3 >= xkk(v1) THEN o6 = y3 - o4 ELSE o5 = y3 - o4 GOTO 2120 2100 IF x3 < xkk(v1) THEN 2050 GOTO 2230 2120 IF o5 > 0 THEN 2220 IF o6 < 0 THEN 2230 2210 IF dk = 0 THEN kk = kk + 1 GOTO 2230 2220 IF o6 < 0 THEN 2210 2230 NEXT i kp = INT(kk / 2): pk = kk / 2 pd = pk - kp RETURN х3, y3 – координаты проверяемой точки |
|||
|
||||
| Alexeis |
|
|||
![]() Амеба Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 23 Всего: 459 |
Для домашних заданий, курсовых, существует "Центр Помощи".
Тема перенесена! -------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
| 1900s |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 9 Регистрация: 28.6.2006 Репутация: нет Всего: нет |
лиш бы это помогло ;)
|
|||
|
||||
![]()
|
| Правила форума "Центр помощи" | |
|
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Центр помощи | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |