помогите, пожалуйста, буду очень благодарна ❤️ (pascal)
Приложения:
![](https://st.uroker.com/files/691/69107fb789b7728a6093d774771bacb1.png)
Аноним:
Задача нетривиальна в общем случае. Наиболее типичный алгоритм - "Метод трассировки луча с учетом количества пересечений". У него приличного объема реализация.
Ответы
Ответ дал:
1
//Не советую разбираться в коде :))))
Ответ в файле:
vvvvvvvvvvvvvv
Ответ в файле:
vvvvvvvvvvvvvv
Приложения:
Ответ дал:
1
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=4;
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 -3.7 -5 4 8.1 4 8.1 -3.7
Введите координаты точки: 1 2.6
Внутри
Введите парами координаты четырех вершин
-5 -3.7 -5 4 8.1 4 8.1 -3.7
Введите координаты точки: 3 -3.7001
Не внутри
// Внимание! Если программа не работает, обновите версию!
begin
var n:=4;
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 -3.7 -5 4 8.1 4 8.1 -3.7
Введите координаты точки: 1 2.6
Внутри
Введите парами координаты четырех вершин
-5 -3.7 -5 4 8.1 4 8.1 -3.7
Введите координаты точки: 3 -3.7001
Не внутри
Вас заинтересует
3 месяца назад
3 месяца назад
10 месяцев назад
10 месяцев назад
1 год назад