Определить, что точка лежит лежит внутри прямоугольника или на одной из его сторон - 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.

Объяснение кода листинга программы

  1. Объявляются переменные x1, y1, x2, y2, x, y типа Integer.
  2. Выводится сообщение для ввода координат левой верхней вершины прямоугольника.
  3. Выводится сообщение для ввода координат правой нижней вершины прямоугольника.
  4. Сравниваются координаты точек A и B.
  5. Если условие выполняется, то выводится сообщение для ввода координат точки A.
  6. Выводится результат сравнения координат точки A с координатами вершин прямоугольника.
  7. Если условие не выполняется, то выводится сообщение об ошибке.
  8. Завершается чтение ввода.

Оцени полезность:

13   голосов , оценка 4.308 из 5
Похожие ответы