| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Центр помощи > [Delphi] VB 2 Delphi |
| Автор: 1900s 11.12.2008, 17:03 |
| Добрый день. Помогите перегнать код с 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 11.12.2008, 18:50 |
| Для домашних заданий, курсовых, существует "Центр Помощи". Тема перенесена! |
| Автор: 1900s 15.12.2008, 14:26 |
| лиш бы это помогло ;) |