Определить, что точка лежит лежит внутри прямоугольника или на одной из его сторон - Turbo Pascal (35270)
Формулировка задачи:
составит программу печатающую значение TRUE если указанное высказывание является истинным, и FALSE в противном случае:
(x1,y1) и (x2,у2)-координаты левой верхней и правой нижней вершин прямоугольника ;точка А (х,у)лежит внутри лежит внутри этого прямоугольника или на одной из его сторон
Решение задачи: «Определить, что точка лежит лежит внутри прямоугольника или на одной из его сторон»
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.
Объяснение кода листинга программы
- Объявляются переменные x1, y1, x2, y2, x, y типа Integer.
- Выводится сообщение для ввода координат левой верхней вершины прямоугольника.
- Выводится сообщение для ввода координат правой нижней вершины прямоугольника.
- Сравниваются координаты точек A и B.
- Если условие выполняется, то выводится сообщение для ввода координат точки A.
- Выводится результат сравнения координат точки A с координатами вершин прямоугольника.
- Если условие не выполняется, то выводится сообщение об ошибке.
- Завершается чтение ввода.