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

[serg]

Пифагоров забыл!
Добавлено через 1 мин.

ну напишите хотябы не через функцию но самостоятельно блин!))

да если бы я сам мог то не писал бы сюда

[sheka]

FATALITY!

А что это значит FATALITY! ?

if (chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=5)
or

[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

[volvo]

где?

Здесь:

  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;

как минимум. Random вернет значение типа Word, и как только 2*Random( r ) будет меньше, чем R - попытка сделать Word отрицательным приведет к RTE 215 (все вышесказанное относится к Турбо Паскаль 7). Патч:

  for i:=1 to n do with t[i] do begin
    x:=Integer(Random®*2)-r; { <--- }
    y:=Integer(Random®*2)-r; { <--- }
    WriteLn('x',i,'=',x:2:0,'   y',i,'=',y:2:0);
  end;

, теперь ошибки не будет. Integer вполне способен принимать отрицательные значения.

[Lapp]

Random вернет значение типа Word,

Спасибо, volvo. Постоянно об этом забываю. FPC расслабляет..
+1

[serg]

теперь чтото не запускает %) что делать?((

[volvo]

еперь чтото не запускает %) что делать?((

Что значит "не запускает"? Может, отрабатывает и ты не успевашь результаты посмотреть? Нажми на Alt+F5 тогда, увидишь. Или перед end. добавь ReadLn - программа подождет, пока ты нажмешь на Enter и только потом закроется.

[serg]

Что значит "не запускает"? Может, отрабатывает и ты не успевашь результаты посмотреть? Нажми на Alt+F5 тогда, увидишь. Или перед end. добавь ReadLn - программа подождет, пока ты нажмешь на Enter и только потом закроется.

я нажимаю RUN а она просто тупо не начинается

[serg]

все щикарно,спасибо огромное вам