Задача на геометрию

[ОДИНОЧЕСТВО В СЕТИ]

не проще было нахождение площадей функой написать?

[0nni]

вот еще интересный способ

[k1r1ch]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

не проще было нахождение площадей функой написать?

А какая разница-то? Результат то все-равно не верный!

[ОДИНОЧЕСТВО В СЕТИ]

надо какой-то допуск организовать так как условие
SR = S у вас практически никогда не выполнится
нужно хотя бы

 if abs(SR - S)<0.001

[LeBron]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

надо какой-то допуск организовать так как условие
SR = S у вас практически никогда не выполнится
нужно хотя бы

 if abs(SR - S)<0.001

С таким эпсилоном будет ВА. Надо поменьше. я обычно беру 10^-8 или меньше.
k1r1ch, у Вас ВА4?

Беру свои слова обратно. Прокатило и с такой точностью (пересдал свой засчитаный ранее исходник, срезав точность). Думал тесты неполные - оказалось, ограничения "мягкие", так как задача учебная.

[k1r1ch]

Я еще даже не отправлял туда, так как у меня тест не проходит, который как пример записан. Я видно что-то не так написал... Может формулы не те выбрал? Если вести логирование, то оно вот что на стандартном тесте выдает:

SR = 21.633308
S = 18.000000

SR = 40.249224
S = 18.000000

SR = 8.944272
S = 4.000000

SR - площадь прямоугольника, S - сумма треугольников.
Разброс большеват

[Jahangir Najafov]

Впервые работаю с файлом. Предполагаю, что ошика на данной стадии. Хотя компилирует, но потом ..оо..
Алгоритм проверял для одного участак без файла, работает.

В некоторых частях писал программу "некультурно". Извините, время поджимало.

Суть алгоритма в угле наклона прямой, проходящей через данную точку, а именно тангенсе. Надо, чтобы тангенс хотя бы одной "точки", составляющей дачный участок, был больше тангенса рассматриваемой "точки", и наоборот.

VAR
  MAIN:array [1..1000,1..10] of real;
  TAN:array [1..5] of  real;
  i,N,q:integer;
  F:text;
  j:byte;

BEGIN
  assign(F,'input.txt'); Reset(F);
    readln(F,N);
    for i:=1 to N do
      readln(MAIN[i,1],MAIN[i,2],MAIN[i,3],MAIN[i,4],MAIN[i,5],MAIN[i,6],MAIN[i,7],MAIN[i,8],MAIN[i,9],MAIN[i,10]);
  close(F);

  q:=0;
  for i:=1 to N do
    begin
      for j:=1 to 5 do
        TAN[j]:=MAIN[i,2*j]/MAIN[i,2*j-1];

      if ((TAN[1]>TAN[2]) or (TAN[1]>TAN[3]) or (TAN[1]>TAN[4]) or (TAN[1]>TAN[5])) and
           ((TAN[1]<TAN[2]) or (TAN[1]<TAN[3]) or (TAN[1]<TAN[4]) or (TAN[1]<TAN[5])) then
         INC(q);
    end;

  assign(F,'output.txt'); Rewrite(F);
    write(q);
  close(F);
END.