Составить алгоритм и написать программу для решения задачи согласно своему варианту - Delphi - Ответ 7281173

var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Visible:=false;
Image1.Picture.LoadFromFile('1.jpg');
Image1.Visible:=false;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Memo1.Visible:=true;
Memo1.Text:='По заданным координатам точки М(x,y) определить'+#13#10+
            'попадает или нет точка М в заштрихованную область.';
Image1.Visible:=true;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
 
procedure TForm1.N1Click(Sender: TObject);
begin
close
end;

var
  Form2: TForm2;
 
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
var x,y:double;
    c:integer;
begin
val(Edit1.Text,x,c);
if c<>0 then
 begin
  ShowMessage('Неверно введено Х');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
val(Edit2.Text,y,c);
if c<>0 then
 begin
  ShowMessage('Неверно введено Y');
  Edit2.Clear;
  Edit2.SetFocus;
  exit
 end;
if (abs(x)<=1)and(abs(y)<=1)and(y>=-x)
then ShowMessage('Точка М попадает в заштрихованную область')
else ShowMessage('Точка М не попадает в заштрихованную область');
Form2.Hide;
Form1.Show
end;