задачка на геометрию, очень сложная по моему Опции

[Bard]

У меня тут одна задачка появилась , никак не могу решить .Она тоже с acm.timus.ru. У меня несколько(т.е. 12) тестов проходит . Спрашивал у всех учителей математики нашей школы. Каждый говорит одно, но никакой из тех алго не проходит. Самый лучший пока мой собственный .

Ну в задаче, если коротко описать, нужно определить можно ли поместить второй треугольник в первый. Длина сторон каждого заданы. Мой алгоритм не очень уж и трудный. Я сначала нахожу сторону с макс. длиной и беру его как за основание(это действие выполняю для обоих). Потом сраниваю основания и вершины(по основанию) и выдаю ответ. Вот и мой код:

var
 k,l1,l2,a,b,c,x,y,z:longint;
 h1,h2,p1,p2:extended;

function max(x,y,z:longint):longint;
begin
 if (x>=y)and(x>=z) then max:=x
                    else
  if (y>=z)and(y>=x) then max:=y
                     else max:=z;
end;

procedure smen(var a,b,c:longint; l:longint);
begin
 if a=l then
  begin
   k:=c;
   c:=a;
   a:=k;
  end    else
 if b=l then
  begin
   k:=c;
   c:=b;
   b:=k;
  end;
end;

begin
 readln(x,y,z);
 readln(a,b,c);
 p2:=(a+b+c)/2;
 p1:=(x+y+z)/2;
 l1:=max(x,y,z);
 l2:=max(a,b,c);
 smen(x,y,z,l1);
 h1:=(2/z)*sqrt(p1*(p1-x)*(p1-y)*(p1-z));
 hx:=(2/x)*sqrt(p1*(p1-x)*(p1-y)*(p1-z));
 hy:=(2/y)*sqrt(p1*(p1-x)*(p1-y)*(p1-z));
 smen(a,b,c,l2);
 h2:=(2/c)*sqrt(p2*(p2-a)*(p2-b)*(p2-c));
 ha:=(2/a)*sqrt(p2*(p2-a)*(p2-b)*(p2-c));
 hb:=(2/b)*sqrt(p2*(p2-a)*(p2-b)*(p2-c));
 if not ((l1>=l2)and(h1>=h2)) then writeln('NO')
                              else writeln('YES');
end.

Я даже знаю где у меня ошибка но не знаю как ее исправить. Ошибка у меня при том случае если основание и высота первого больше но второй треугольник не входит(у меня выдает что входит).

Недаюь сможете помочь. Заранее спасибо...

[Bard]

Всем привет... Огромное спасибо всем кто принял активное участие в решении этой задачи. Я наконец-то смог ее решить. Вот и ее решение на паскале.

USES Math;
Var a,b,c:extended;
  ca,cb,cc,ha,hb,hc:extended;
  a1,b1,c1:extended;
  ca1,cb1,cc1,ha1,hb1,hc1:extended;
{.........................................................}
 Procedure  TRI(a,b,c:extended;Var CA,CB,CC,ha,hb,hc:extended);
   Var
     S,p:extended;
    begin
      p:=(a+b+c)/2;
      S:=sqrt(p*(p-a)*(p-b)*(p-c));
      ha:=2*s/a; hb:=2*s/b; hc:=2*s/c;
      CC:=arcsin(ha/b);  CB:=arcsin(ha/C);  CA:=arcsin(hc/b);
      if (c*c>a*a+b*b) then CC:=pi-CC else
      if (b*b>a*a+c*c) then CB:=pi-CB else
      if (a*a>c*c+b*b) then CA:=pi-CA;
    end;
{}{}{}{}{}{}{}{}{}{}{}{}
 Function   Konvert:Boolean;
   Var
     b2,c2,d:extended;
   begin
    if (a1>a) OR (ha1>ha) then Konvert:=false
                                   else
    if (CC1<=CC) and  (CB1<=CB)    then Konvert:=true
                                   else
    if (CC1>CC)                    then
      begin
        b2:=ha1/sin(CC);
        d:=sqrt(b2*b2+b1*b1-2*b1*b2*cos(CC1-CC));
        if d+a1>a  then Konvert:=false
                   else Konvert:=true;
      end
                                   else
      if (CB1>CB)                    then
      begin
       c2:=ha1/sin(CB);
        d:=sqrt(c2*c2+c1*c1-2*c1*c2*cos(CB1-CB));
        if d+a1>a  then Konvert:=false
                   else Konvert:=true;

      end;

   end;
 {******************}
  Procedure  Sdvig(Var a,b,c,CA,CB,CC,ha,hb,hc:extended);
   Var
     x,y:extended;
   begin
     y:=b; b:=a; a:=c; c:=y;
     x:=hb; hb:=ha; ha:=hc; hc:=x;
     x:=cb; cb:=ca; ca:=cc; cc:=x;
   end;
  {------------------------}
  Procedure Perev;
   Var x,y:extended;
    begin
      y:=b1;  b1:=c1;  c1:=y;
      x:=CC1; CC1:=CB1; CB1:=x;
      x:=hC1; hC1:=hB1; hB1:=x;
    end;
  {=====================================}
   Var  i,j:integer; p:Boolean;
  BEGIN
     readln(a,b,c); readln(a1,b1,c1); p:=false;

     TRI(a,b,c,ca,cb,cc,ha,hb,hc);
     TRI(a1,b1,c1,ca1,cb1,cc1,ha1,hb1,hc1);

     for
     i:=1 to 3 do
      begin
         for j:=1 to 3 do
           begin
            if Konvert then begin p:=true; break; end;
            Perev;
            if Konvert then begin p:=true; break; end;
            Perev;
            Sdvig(a1,b1,c1,CA1,CB1,CC1,ha1,hb1,hc1);
           end;
           if p then break;
            Sdvig(a,b,c,CA,CB,CC,ha,hb,hc);
      end;

      if p then writeln('YES') else writeln('NO');
  END.

Ну надеюсь алго вы сами поймете