Помощь - Поиск - Пользователи - Календарь
Полная версия: Определение попадания точки в фигуру
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Совсем новичок
Нужно определить, находится ли точка в данной фигуре(треугольнике) или нет. Такойже вопрос для квадрата.
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 мин.
я вот думаю с той формулой треугольника ченить напутал. как вообще задать треугольник? или квадрат? или круг?
Совсем новичок
Если не ошибаюсь, там все на Си написано, поэтому мне не совсем понятно, да и Си я тока в этом семестре начал изучать.
Совсем новичок
Я читал, что можно по формуле Герона решить, но как все это связать с координатами точки не знаю.


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

smile.gif здесь же и нашел Как узнать принадлежность smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.