Опубликовано 6 лет назад по предмету Информатика от Трафальгар

Определить принадлежность точки заданному выпуклому многоугольнику. На паскаль абс, питон или с++

Ответ

Ответ дан Аккаунт удален

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Число сторон многоугольника:');
var xp:=new real[n];
var yp:=new real[n];
Writeln('Введите парами координаты вершин');
for var i:=0 to n-1 do Read(xp[i],yp[i]);
var (x,y):=ReadReal2('Введите координаты точки:');
var (i,j,c):=(0,n-1,False);
while i<n do begin
    if ((yp[i]<=y) and (y<yp[j]) or (yp[j]<=y) and (y<yp [i]))
      and (x<(xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c:=not c;
    j:=i;
    i+=1;
    end;
if c then Writeln('Внутри')
else Writeln('Не внутри')
end.

Примеры
Число сторон многоугольника: 5
Введите парами координаты вершин
-5 2 2 6 7 3.1 4.3 -5 -6 -6
Введите координаты точки: 2.1 1.7
Внутри

Число сторон многоугольника: 5
Введите парами координаты вершин
-5 2 2 6 7 3.1 4.3 -5 -6 -6
Введите координаты точки: -2 5
Не внутри
1. Ответ
  
  Ответ дан Аккаунт удален
  
  В Интернете на поисковике посмотрите фразу "Проверка принадлежности точки многоугольнику. Метод трассировки лучом"
2. Ответ
  
  Ответ дан Аккаунт удален
  
  Там будут алгоритмы, рисунки и пояснения.
3. Ответ
  
  Ответ дан Трафальгар
  
  а какой из методов описан?Учёт числа пересечений или Учёт числа оборотов
4. Ответ
  
  Ответ дан Аккаунт удален
  
  Чет/нечет пересечений. Вы же видите: c:=not c; - инверсия при очередном пересечении.
5. Ответ
  
  Ответ дан Аккаунт удален
  
  А вот счетчика оборотов нет. И в конце if c then Writeln('Внутри')
  else Writeln('Не внутри')

Самые новые вопросы

Математика - 6 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 6 лет назад

Почему япония - лидер по выплавке стали?

Математика - 6 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 6 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.

Определить принадлежность точки заданному выпуклому многоугольнику. На паскаль абс, питон или с++

Информация