Question

Дана программа , нужно написать код на паскале ABC Определить, попадает ли точка с координатами (x, y) в заштрихованную область. (заштрихованая область треугольник с координатами а(-3,0), в(3,0), с(0,2))

Answer 1

Var x,y:real;
begin
  readln(x,y);
  x:=abs(x);
  if (x<3) and (y>0) and (3*y<6-2*x) then
    writeln('попадает')
  else
    writeln('не попадает');
end.

Answer 2

Вот пример кода на языке Pascal ABC для определения, попадает ли точка с координатами (x, y) в заштрихованную область (треугольник с координатами A(-3,0), B(3,0), C(0,2)):

pascalCopy code
program CheckPointInTriangle;

var
  x, y: real;
  isInside: boolean;

procedure CheckIfInsideTriangle(x, y: real; var isInside: boolean);
var
  denominator: real;
  lambda1, lambda2, lambda3: real;
begin
  denominator := ((B.y - C.y) * (A.x - C.x) + (C.x - B.x) * (A.y - C.y));

  lambda1 := ((B.y - C.y) * (x - C.x) + (C.x - B.x) * (y - C.y)) / denominator;
  lambda2 := ((C.y - A.y) * (x - C.x) + (A.x - C.x) * (y - C.y)) / denominator;
  lambda3 := 1 - lambda1 - lambda2;

  isInside := (lambda1 >= 0) and (lambda2 >= 0) and (lambda3 >= 0);
end;

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

  CheckIfInsideTriangle(x, y, isInside);

  if isInside then
    writeln('Точка попадает в заштрихованную область.')
  else
    writeln('Точка не попадает в заштрихованную область.');
end.

Обратите внимание, что в этом коде используются координаты A(-3,0), B(3,0), C(0,2), как указано в вашем вопросе.