Function sq(var x1,y1,x2,y2,x3,y3: real):real; <span>begin </span><span>// вычисляем площадь треугольника с помощью </span><span>// векторного произведения </span><span> sq:=abs((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1))/2; </span><span>end; </span><span>// основная программа </span><span>var x,y,x1,y1,x2,y2,x3,y3,x4,y4,st,sp:real; </span><span>begin </span><span> write('координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: '); </span><span> readln(x1,y1,x2,y2,x3,y3,x4,y4); </span><span> sp:=2*sq(x1,y1,x2,y2,x3,y3); </span><span> write('координаты точки x y через пробел: '); readln(x,y); </span><span> st:=sq(x1,y1,x2,y2,x,y) + sq(x2,y2,x3,y3,x,y) + </span><span> sq(x3,y3,x4,y4,x,y) + sq(x4,y4,x1,y1,x,y); </span><span> if abs(sp-st)<1.0e-9 then </span><span> writeln('точка принадлежит прямоугольнику') </span><span> else writeln('точка не принадлежит прямоугольнику'); </span><span>end.
</span>координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: 1 4 6 9 9 6 4 1 <span>координаты точки x y через пробел: </span><span>4 7 </span><span>точка принадлежит прямоугольнику
</span>координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: 1 4 6 9 9 6 4 1 <span>координаты точки x y через пробел: </span><span>1.5 1.6 </span><span>точка не принадлежит прямоугольнику
Снова не написана подключаемая библиотека. main ничего не возвращает Объявление переменных достаточно очевидно. x=x-(y+z) y=y+z В первом выводе сокращённый условный оператор Если x < y тогда вернуть x-- иначе вернуть y++ Во втором выводе x и y. Общий вывод: <span>-1 x=-2 y=3</span>