задача с функциями (Pascal)

[Вероника_94]

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

[denisbrain]

Сообщение от Вероника_94

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

Function GR(a,b:Tpoint):boolean;
begin
result:=false;
  if (a.x=b.x) and (a.y=b.Y) then result:=true;
end;

Function GetTrTrue:boolean;
var
   point:array [1..6] of Tpoint;
   x:integer;
   a,b,c:Tpoint;
   r:boolean;
begin
  point[1].X:=line[1].x1;
  point[1].y:=line[1].y1;
  point[2].X:=line[1].x2;
  point[2].y:=line[1].y2;
  point[3].X:=line[2].x1;
  point[3].y:=line[2].y1;
  point[4].X:=line[2].x2;
  point[4].y:=line[2].y2;
  point[5].X:=line[3].x1;
  point[5].y:=line[3].y1;
  point[6].X:=line[3].x2;
  point[6].y:=line[3].y2;
  a.X:=-1;a.y:=-1;
  b.X:=-1;b.y:=-1;
  c.X:=-1;c.y:=-1;
  result:=true;
  for X:=1 to 6 do begin

  if not (GR(point[x],a) or GR(point[x],b)  or GR(point[x],c)) then begin
    if a.x=-1 then  begin a.x:=point[x].X; if a.y=-1 then  a.y:=point[x].y; end
    else
    if b.x=-1 then  begin b.x:=point[x].X;  if b.y=-1 then  b.y:=point[x].y; end
    else if c.x=-1 then  begin c.x:=point[x].X;  if c.y=-1 then  c.y:=point[x].y; end;
    end;
    if not (GR(point[x],a) or GR(point[x],b)  or GR(point[x],c)) then
       result:=false;

  end;
end;
procedure CreateTreugol;
 var x,r1,cx,cy,a,i:integer;
begin
a:=random(100);
cx:=500;
cy:=200;
r1:=150;
   for x:=1 to 3 do begin
    line[x].x1:=round(cx+cos(a*pi/180)*r1);
    line[x].y1:=round(cy+sin(a*pi/180)*r1);
    line[x].x2:=round(cx+cos((a+120)*pi/180)*r1);
    line[x].y2:=round(cy+sin((a+120)*pi/180)*r1);
    a:=a+120;
   end;
end;
Procedure drawTr;
var i:integer;
begin
for i:=1 to 3 do begin
   form1.Canvas.MoveTo(line[i].x1,line[i].y1);
   form1.Canvas.LineTo(line[i].x2,line[i].y2);
   form1.Canvas.TextOut(line[i].x1+20,line[i].y1+20,inttostr(line[i].x1)+':'+inttostr(line[i].y1));
   form1.Canvas.TextOut(line[i].x2-30,line[i].y2-40,inttostr(line[i].x2)+':'+inttostr(line[i].y2));
end;



end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   form1.Canvas.Rectangle(form1.Canvas.ClipRect);
   CreateTreugol;
   if random(2)=1 then line[1].x1:=line[1].y1;
   drawTr;
     if GetTrTrue then
     Showmessage('это треугольник')
     else Showmessage('это не треугольник');

end;