// 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Не внутри