Question

How to check if a point is inside a rectangle in Pascal

Answer 1

program PointInRectangle;

type
  Point = record
    x, y: Real;
  end;

  Rectangle = record
    topLeft: Point;
    bottomRight: Point;
  end;

function IsPointInsideRectangle(p: Point; rect: Rectangle): Boolean;
begin
  IsPointInsideRectangle := (p.x >= rect.topLeft.x) and (p.x <= rect.bottomRight.x) and
                            (p.y >= rect.topLeft.y) and (p.y <= rect.bottomRight.y);
end;

var
  rect: Rectangle;
  p: Point;
begin
  rect.topLeft.x := 0.0;
  rect.topLeft.y := 0.0;
  rect.bottomRight.x := 7.0;
  rect.bottomRight.y := 7.0;

  p.x := 3.0;
  p.y := 2.0;

  if IsPointInsideRectangle(p, rect) then
    WriteLn('The point is inside the rectangle.')
  else
    WriteLn('The point is outside the rectangle.');
end.



(*
run:

The point is inside the rectangle.

*)

 

70+ SQL courses for beginners and professionals

Answer 2

program PointInRectangle;

uses
  Types;

var
  Rectt: TRect;
  Pointt: TPoint;
  IsInside: Boolean;
  x1, y1, x2, y2, x, y: Integer;

begin
  // Define the rectangle using its top-left (x1, y1) and bottom-right (x2, y2) coordinates
  x1 := 10; y1 := 10; // Top-left corner
  x2 := 60; y2 := 60; // Bottom-right corner
  Rectt := Rect(x1, y1, x2, y2);

  // Define the point to check
  x := 30; y := 20; // Coordinates of the point
  Pointt := Point(x, y);

  if PtInRect(Rectt, Pointt) then
    WriteLn('The point is inside the rectangle.')
  else
    WriteLn('The point is outside the rectangle.');
end.



(*
run:

The point is inside the rectangle.

*)

 

70+ SQL courses for beginners and professionals