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

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

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

Автор: Совсем новичок 24.11.2007 15:13

Нужно определить, находится ли точка в данной фигуре(треугольнике) или нет. Такойже вопрос для квадрата.

program treyg_xy_func;
var
x,y,x1,y1,x2,y2,a,b:integer;
function tr(a,b:integer):boolean;
begin
if ((a-x)*(y1-y)=(b-y)*(x1-x)) and ((a-x1)*(y2-y1)=(b-y1)*(x2-x1)) and ((a-x2)*(y-y2)=(b-y2)*(x-x2)) then
tr:=true
else tr:=false;
end;
begin
write('Koord A:');readln(x,y);
write('Koord B:');readln(x1,y1);
write('Koord C:');readln(x2,y2);
write('Koord To4ki:');readln(a,b);
writeln(tr(a,b));
readln;
end.

Добавлено через 2 мин.
я вот думаю с той формулой треугольника ченить напутал. как вообще задать треугольник? или квадрат? или круг?

Автор: Ozzя 24.11.2007 15:28

http://algolist.manual.ru/maths/geom/belong/poly2d.php

Автор: Совсем новичок 25.11.2007 13:08

Если не ошибаюсь, там все на Си написано, поэтому мне не совсем понятно, да и Си я тока в этом семестре начал изучать.

Автор: Совсем новичок 25.11.2007 14:22

Я читал, что можно по формуле Герона решить, но как все это связать с координатами точки не знаю.


Добавлено через 14 мин.

smile.gif здесь же и нашел http://forum.pascal.net.ru/index.php?showtopic=7223&st=0&p=51889&#entry51889 smile.gif