Задача про 3 прямые

[meds]

У подружке с преподом сложились плохие отношения. и он ей в курсовой задал сложные задачи. общими усилиями я с ее одногруппниками решили почти все. кроме одной. а эту никто не знает как решать.

Три прямые на плоскости заданы уравнениями:
АкХ+ВкУ=Ск(К=1,2,3)
Если эти прямые попарно пересекаются и образуют треугольник, тогда найти его площадь.

если нужно заплатить, то скажите сколько, я заплачу.

[Greblin]

Записываете 3 СЛАУ по 2 уравнения в каждой. Решаете, находите точки пересечения, если они есть. Если они различны, то вычисляете стороны и дальше по формуле Герона. Как решать СЛАУ на форуме полно примеров

[Min]

вроде все учел...... перепроверь на всякий случай.....

type Point=record
     x,y:real;
end;

type line=record
     a,b,c:real;
end;

function delta(z1,z2:real):real;
begin
 if z1=0 then delta:=0
 else delta:=z2/z1;
end;


function per(l1,l2:line;var Plot:Point):boolean;
var p:Point;
    da,db,dc,b,c:real;
    ch:boolean;
begin
 ch:=true;
 da:=delta(l1.a,l2.a);
 db:=delta(l1.b,l2.b);
 dc:=delta(l1.c,l2.c);
 if (da=db) and (db=dc) then ch:=false
 else
  begin
   b:=l2.a*l1.b-l1.a*l2.b;
   c:=l2.a*l1.c-l1.a*l2.c;
   p.y:=c/b;
   p.x:=(l1.c-l1.b*p.y)/l1.a;
  end;
 Plot:=p;
 per:=ch;
end;

function dlina(p1,p2:Point):real;
begin
 dlina:=sqrt(sqr(p1.x-p2.x)+sqr(p1.y-p2.y));
end;

function geron(p1,p2,p3:Point):real;
var pp,a,b,c:real;
begin
 a:=dlina(p1,p2);
 b:=dlina(p2,p3);
 c:=dlina(p1,p3);
 pp:=(a+b+c)/2;
 geron:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));
end;

function equal(p1,p2:Point):boolean;
begin
 if (p1.x=p2.x) and (p1.y=p2.y) then equal:=true
 else equal:=false;
end;

var l:array[1..3] of Line;
    p:array[1..3] of Point;
    i:integer;
begin
 for i:=1 to 3 do
  begin
   writeln('vvedite ',i,' line:');
   read(l[i].a,l[i].b,l[i].c);
  end;
 if(per(l[1],l[2],p[1]) and per(l[2],l[3],p[2]) and per(l[1],l[3],p[3]))
 then
  begin if not(equal(p[1],p[2]) or equal(p[1],p[3]) or equal(p[1],p[3]))
   then writeln('S=',geron(p[1],p[2],p[3]))
   else writeln('Not possible');
  end
 else writeln('Not possible');
 readln(i);
end.

[meds]

спасибо огромное!!! как мне с Вами расплатиться?

[Min]

да ладно..... не надо)))

[loktevv]

Спасиьо вам огромное тоже, очень помогло.