Определить, что точка лежит лежит внутри прямоугольника или на одной из его сторон - Turbo Pascal (35270)

Формулировка задачи:

составит программу печатающую значение TRUE если указанное высказывание является истинным, и FALSE в противном случае: (x1,y1) и (x2,у2)-координаты левой верхней и правой нижней вершин прямоугольника ;точка А (х,у)лежит внутри лежит внутри этого прямоугольника или на одной из его сторон

Код к задаче: «Определить, что точка лежит лежит внутри прямоугольника или на одной из его сторон - Turbo Pascal (35270)»

textual
Var
  x1,y1,x2,y2,x,y: Integer;
BEGIN
Write('Введите координаты левой верхней вершины прямоугольника: ');
Readln(x1,y1);
Write('Введите координаты правой нижней вершины прямоугольника: ');
Readln(x2,y2);
If (x1<x2) and (y1>y2) Then
begin
  Write('Введите координаты точки A: ');
  Readln(x,y);
  Writeln((x>=x1) and (x<=x2) and (y<=y1) and (y>=y2));
end
Else
Writeln('Неверный ввод. Точка [',x2,';',y2,'] не является правой нижней вершиной');
Readln
END.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.308 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы