Var x1,y1,x2,y2,x,y:real; begin write('x1, y1:'); readln(x1,y1); write('x2, y2:'); readln(x2,y2); write('x, y:'); readln(x,y); if (x>x1)and(x<x2)and(y<y1)and(y>y2) then writeln('Точка принадлежит прямоугольнику') else writeln('Точка не принадлежит прямоугольнику'); end.
Пример: x1, y1: 1 9 x2, y2: 7 2 x, y: 6 7 Точка принадлежит прямоугольнику
Answers & Comments
Verified answer
Var x1,y1,x2,y2,x,y:real;begin
write('x1, y1:');
readln(x1,y1);
write('x2, y2:');
readln(x2,y2);
write('x, y:');
readln(x,y);
if (x>x1)and(x<x2)and(y<y1)and(y>y2)
then writeln('Точка принадлежит прямоугольнику')
else writeln('Точка не принадлежит прямоугольнику');
end.
Пример:
x1, y1:
1 9
x2, y2:
7 2
x, y:
6 7
Точка принадлежит прямоугольнику