Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Определить принадлежит ли точка фигуре

Автор: samec 1.07.2008 18:12

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


Эскизы прикрепленных изображений
Прикрепленное изображение

Автор: volvo 1.07.2008 18:23

Принцип решения - тот же, что и вот тут: http://forum.pascal.net.ru/index.php?s=&showtopic=20439&view=findpost&p=114452

Автор: samec 1.07.2008 18:49

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


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.