Определить принадлежит ли точка фигуре Опции

[samec]

Добрый день всем! Задачка следующая: Составить программу, определяющую, принадлежит ли точка с координатами (x,y) заданной фигуре. Заданная фигура в прикрепленном файле. Использовать в программе можно только операторы присваивания, ввода и вывода, сравнения, условные операторы.
Натолкните на мысль - как это сделать?

[volvo]

Принцип решения - тот же, что и вот тут: проверка вхождения точки в заданную область

[samec]

спасибо большое. Вопрос решен Тема закрыта.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
 x,y:real;
Begin
 write('Введите координату x: ');
 readln(x);
 write('Введите координату y: ');
 readln(y);
 if (x*x+y*y >= 25) and (y>=0) and (x>=0) and (y+0.85*x<=17) then
  writeln('Заданная точка принадлежит многоугольнику')
 else 
  writeln('Заданная точка не принадлежит многоугольнику');
 readln;
End.

Сообщение отредактировано: samec - 1.07.2008 15:31