Evo jednog resenja u PASCALu koje sam nasla u staroj skolskoj svesci:
(x1, y1) i (x2, y2) su tacke koje odredjuju pravu (temena mnogougla), a (x3, y3) i (x4, y4) su tacke za koje proveravas da li su sa iste strane te prave.
Jednacina prave je oblika ax+by+c=0 i dobija se iz
(x-x1) / (y-y1) = (x2-x1) / (y2-y1)
Tacke (x3, y3) i (x4, y4) su sa iste strane te prave ako su izrazi (a*x3 + b*y3 + c) i (a*x4 + b*y4 + c) istog znaka.
Code:
function Sa_Iste_Strane(x1, y1, x2, y2, x3, y3, x4, y4: real): boolean;
var
a, b, c: real;
begin
a:= y2-y1;
b:= x1-x2;
c:= (x2-x1)*y1 - (y2-y1)*x1;
Sa_Iste_Strane:= (a*x3 + b*y3 + c) * (a*x4 + b*y4 + c) > 0
end
Ako te interesuje u nekom drugom jeziku ili nesto vise o tome probaj na nekom programerskom forumu.
[
Ovu poruku je menjao devojcica dana 27.05.2004. u 23:32 GMT]
[
Ovu poruku je menjao devojcica dana 27.05.2004. u 23:34 GMT]