Pascal

[Mishka-01]

Всем привет, помогите исправить и найти ошибки. Программа выдает не те результаты=)

program kma;
const e=0.0001;
var x1,y1,x2,y2,x3,y3,a,b,c,a1,b1,c1,k,cosA,cosB,cosC,tgA,tgB,tgC,uA,uB,uC:real;
    F,P:text;N,i:byte;S:string;
begin
x1:=0;x2:=0;x3:=0;y1:=0;y2:=0;y3:=0;a:=0;b:=0;c:=0;k:=0;cosA:=0;cosB:=0;
cosC:=0;tgA:=0;tgB:=0;tgC:=0;uA:=0;uB:=0;uC:=0;N:=0;i:=0;a1:=0;b1:=0;c1:=0;

   assign(F,'Tests.txt');   assign(P,'TestsRes.txt');
   reset(F);
   readln(F,N);
for i:=1 to N do
begin
   Append(P);
   readln(F,x1,y1,x2,y2,x3,y3);
   a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
   b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
   c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
   a1:=a;b1:=b;c1:=c;
   if a1>b1 then begin k:=a1;a1:=b1;b1:=k;end;
   if b1>c1 then begin k:=b1;b1:=c1;c1:=k;end;
   if a1>c1 then begin k:=a1;a1:=c1;c1:=k;end;
   if (abs(c1-a1-b1))<e then writeln(P,'Treugolnika ne sushestvuet')
   else begin

   cosA:=(sqr(c)+sqr(b)-sqr(a))/(2*b*c);
   cosB:=(sqr(a)+sqr(c)-sqr(b))/(2*a*c);
   cosC:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b);

   if abs(cosA)<e then uA:=90
   else if cosA<-e then uA:=-1
   else tgA:=sqrt((1/sqr(cosA))-1);

   if abs(cosB)<e then uB:=90
   else if cosB<-e then uB:=-1
   else tgB:=sqrt((1/sqr(cosB))-1);

   if abs(cosC)<e then uC:=90
   else if cosC<-e then uC:=-1
   else tgC:=sqrt((1/sqr(cosC))-1);

   if (uA<>90) and (uA<>-1) then uA:=Arctan(tgA)*57.29577;
   if (uB<>90) and (uB<>-1) then uB:=Arctan(tgB)*57.29577;
   if (uC<>90) and (uC<>-1) then uC:=ArcTan(tgC)*57.29577;
   if uA=-1 then uA:=180-uB-uC;
   if uB=-1 then uB:=180-uA-uC;
   if uC=-1 then uA:=180-uA-uB;

   if (abs(a-b)<e) and (abs(b-c)<e) and (abs(c-a)<e) then S:='Ravnostoronnii'
      else if (abs(a-b)<e) or (abs(b-c)<e) or (abs(c-a)<e) then S:='Ravnobedrennii'
      else S:='Raznostoronnii';

writeln(P,'a=',a:0:5,' ','b=',b:0:5,' ','c=',c:0:5,' ',S,' ','Ugol A=',uA:0:5,' ','Ugol B=',uB:0:5,' ','Ugol C=',uC:0:5);
end;end;
close(F);
close(P);
end.

[Stilet]

А что она должна считать?

[Serge_Bliznykov]

по заданным координатам 3-х точек нужно определить возможно ли, что эти точки являются вершинами треугольника, если невозможно - выдать текст "Треугольника не существует"
если же треугольник возможен - определить является ли он равносторонним, равнобедренным или разносторонним.

p.s. код написан жутко, поэтому править его нет никакого желания. Да и задача эта уже в форуме решалась. Надо только в поиск сходить...