Given the coordinates of two points on the plane, it is required to determine whether
Given the coordinates of two points on the plane, it is required to determine whether they lie in the same coordinate quarter or not (all coordinates are nonzero). pascal program
program zz1;
var x1, x2, y1, y2: real; // set variables of non-integer type
begin
write (‘enter the coordinates of the first point’); // enter the coordinates of the first point from the keyboard
read (x1, y1);
write (‘enter the coordinates of the second point’); // enter the coordinates of the second point from the keyboard
read (x2, y2);
if (x1 * x2> 0) and (y1 * y2> 0) // check if the product of pairs of coordinates gives a positive number in the answer, then
then write (‘in one coordinate quarter’) // print one response
else write (‘not in one coordinate quarter’); // otherwise, print another answer
end.