Question

Написать программу на языке Паскаль Точка М(х, у) принадлежит прямоугольнику, ограниченному прямыми х=2,у=1 и координатными осями.

Answer 1

var
  x, y: real;
  isin: string;
begin
  readln(x, y);
  if ((x < 0) or (x > 2) or (y < 0) or (y > 2)) then
    isin := 'не ';
  writeln('M(', x, '; ', y, ') ', isin, 'принадлежит прямоугольнику');
end.

Answer 2

Вот пример программы на языке Паскаль, которая определяет, принадлежит ли точка М(х, у) прямоугольнику, ограниченному прямыми х=2, у=1 и координатными осями:

pascalCopy code
program PointInRectangle;

var
  x, y: Integer;

begin
  // Ввод координат точки М
  writeln('Введите координаты точки М:');
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);

  // Проверка условия принадлежности точки М прямоугольнику
  if (x >= 0) and (x <= 2) and (y >= 0) and (y <= 1) then
    writeln('Точка М принадлежит прямоугольнику.')
  else
    writeln('Точка М не принадлежит прямоугольнику.');

  readln;
end.

Программа сначала запрашивает у пользователя координаты точки М(x, y). Затем она проверяет условие принадлежности точки М прямоугольнику: x должен быть между 0 и 2, а y должен быть между 0 и 1. Если условие выполняется, программа выводит сообщение "Точка М принадлежит прямоугольнику.", иначе выводится сообщение "Точка М не принадлежит прямоугольнику."