Определение геометрической фигуры

[kJlaCuk]

Плиз помогите с написанием кода программы в Паскале
Заданы координаты вершин четырехугольника x1, y1, x2, y2, x3, y3, x4, y4>=0. Определяет, является ли данный четырехугольник трапецией (использовать теорему косинусов и формулу ).

[kJlaCuk]

Вообщем к этому коду надо добавить проверку на "является ли введёная фигура трапецией"

Program za4et_2;
uses crt, Graph;
 var
 x:array[0..4] of integer;
 y:array[0..4] of integer;
 i:byte; d1,d2,d3,d4:real;
 d,e,r: integer;
begin
clrscr;
writeln('Vvedite poocheredno koordinati menishe 100');
for i:=1 to 4 do
begin
write('X',i,'='); readln(x[i]);
 if x[i]>100 then
  repeat
  writeln('Vi v spoem yme? Vvedite norm koordinatu');
  write('X',i,'='); readln(x[i]);
  until(x[i]<=100);
write('Y',i,'='); readln(y[i]);
 if y[i]>100 then
  repeat
  writeln('Vi v spoem yme? Vvedite norm koordinatu');
  write('Y',i,'='); readln(y[i]);
  until((y[i]<=100))and(y[i]<>0);
end;

 clrscr;
  d:=Detect;
  InitGraph(d,r,'');
  e:=GraphResult;
  if e <> grOK then
  begin
    Writeln ('Error');
    readln;
    halt;
  end;

d1:=sqrt(sqr(x[2]-x[1])+sqr(y[2]-y[1]));
d2:=sqrt(sqr(x[3]-x[2])+sqr(y[3]-y[2]));
d3:=sqrt(sqr(x[4]-x[3])+sqr(y[4]-y[3]));
d4:=sqrt(sqr(x[1]-x[4])+sqr(y[1]-y[4]));
d1:=d1+d2+d3+d4;

if (d1*3<(GetMaxX div 4))and(d1*3<(GetMaxY div 4)) then
r:=40 else
if (d1*3<(GetMaxX div 3))and(d1*3<(GetMaxY div 3)) then
r:=30 else
if (d1*3<(GetMaxX div 2))and(d1*3<(GetMaxY div 2)) then
r:=20 else r:=10;
line (x[1]*r,y[1]*r,x[2]*r,y[2]*r);
line (x[2]*r,y[2]*r,x[3]*r,y[3]*r);
line (x[3]*r,y[3]*r,x[4]*r,y[4]*r);
line (x[4]*r,y[4]*r,x[1]*r,y[1]*r);


readln;
end.

Этот код рисует на экране по введёным координатам фигура в графическом режиме.
Не хватает тока проверки на трапецию

[kJlaCuk]

Тока этот код в режиме доработки, есть некоторые недочёты.

[Викдон]

Этот код рисует по координатам трапецию? если так то тут что то замудрено написано))

[kJlaCuk]

http://programmersforum.ru/showthread.php?t=34587