Задача в паскале.определить входит ли в треугольник с заданными координатами начало координат. Опции

[serg]

Собственно в теме написано,помогите,желательно без функций.

[Lapp]

Что-то вы, мне кажется, тут перемудрили..
Простые решения уже не в моде?
И тут абсолютно не нужны никакие функции.

const
  n=3; {треугольник}
  r=9; {диапазон чисел}

var
  t: array [1..n] of  record
    x,y: double;
  end;
  i: integer;
  Inside: boolean;
  u,v: double;

begin
  Randomize;
  for i:=1 to n do with t[i] do begin
    x:=Random®*2-r;
    y:=Random®*2-r;
    WriteLn('x',i,'=',x:2:0,'   y',i,'=',y:2:0);
  end;
  Inside:=true;
  for i:=1 to n do begin
    v:=t[i].x*t[i mod n+1].y-t[i].y*t[i mod n+1].x;
    if i>1 then Inside:=Inside and (u*v>1e-15);
    u:=v
  end;
  WriteLn(Inside)
end.

[serg]

Что-то вы, мне кажется, тут перемудрили..
Простые решения уже не в моде?
И тут абсолютно не нужны никакие функции.

const
  n=3; {треугольник}
  r=9; {диапазон чисел}

var
  t: array [1..n] of  record
    x,y: double;
  end;
  i: integer;
  Inside: boolean;
  u,v: double;

begin
  Randomize;
  for i:=1 to n do with t[i] do begin
    x:=Random®*2-r;
    y:=Random®*2-r;
    WriteLn('x',i,'=',x:2:0,'   y',i,'=',y:2:0);
  end;
  Inside:=true;
  for i:=1 to n do begin
    v:=t[i].x*t[i mod n+1].y-t[i].y*t[i mod n+1].x;
    if i>1 then Inside:=Inside and (u*v>1e-15);
    u:=v
  end;
  WriteLn(Inside)
end.

Arifmethic overflow???

[Lapp]

Arifmethic overflow???

где?



Добавлено через 5 мин.
Попробуй замеить тип double на real
а при проверке сравнивай не с 1e-15, а 1e-7