• помогите, пожалуйста, буду очень благодарна ❤️ (pascal)

    question img

Ответы 4

  • это параллельности может не быть?
    • Автор:

      snoopy91
    • 5 лет назад
    • 0
  • этой*
    • Автор:

      camden
    • 5 лет назад
    • 0
  • Конечно. Если четырехугольник Вы повернули на какой-то угол, ни одна из его сторон в общем случае не будет параллельна осям координат.
    • Автор:

      bernabé
    • 5 лет назад
    • 0
  • // 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Не внутри
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years