упростить и укоротить программу

[avi-vi]

Условие задачи -составить программу,определяющую могут ли 4 заданных координата точки быть вершинами параллелограмма
вот такая задачка

http://codepad.org/ve9fAq4J

пробовала еще один вариант, с методом сортировки пузырек, но лабу не приняли. чем можно заменить этот метод?

var a,b: array [1..4] of real;
rab,x1,y1,x2,y2,x3,y3,x4,y4:real;
i,j:integer;

begin
writeln('vvedite koordinati');
readln(x1,y1,x2,y2,x3,y3,x4,y4);
a[1]:=x1;a[2]:=x2;a[3]:=x3;a[4]:=x4;
b[1]:=y1;b[2]:=y2;b[3]:=y3;b[4]:=y4;
for i:=1 to 3 do
for j:=1 to 3-i do
if a[j]>a[j+1] then
begin
rab:=a[j];
a[j]:=a[j+1];
a[j+1]:=rab;
rab:=b[j];
b[j]:=b[j+1];
b[j+1]:=rab;
end;
x1:=a[1];x2:=a[2];x3:=a[4];x4:=a[3];
y1:=b[1];y2:=b[2];y3:=b[4];y4:=b[3];
if(abs(x4-x1)=abs(x3-x2))and(abs(y2-y1)=abs(y3-y4)) then
writeln('da')
else
writeln('net');
if (x1=x2) and (x2=x3) and (x3=x4) then
writeln ('NE PODHODIT') ;
 if (y1=y2) and (y2=y3) and (y3=y4)  then
 writeln ('NE PODXODIT');
readln ;
end.

ребят, помогите плиз

[Риндера]

Тебе уже писали недавно тут:

Сообщение от vlad_light

Четырёхугольник называется паралелограмом, если его противоположные стороны попарно равны.
У нас дано четыре точки: A(x1,y1),B(x2,y2),C(x3,y3),D(x4,y4) .
Всё, что нужно - это проверить равенства AB=CD, AD=BC.

var x, y: array [1..4] of real;
     i: byte;
begin
writeln('Введите координаты точек > ');
for i := 1 to 4 do
   begin 
   write('x[', i, ']= '); readln(x[i]);
   write('y[', i, ']= '); readln(y[i]);
   end;
writeln('----------------------------');
if (sqrt(sqr(x[2] - x[1]) + sqr(y[2] - y[1])) = sqrt(sqr(x[4] - x[3]) + sqr(y[4] - y[3]))) // если AB=CD
   and (sqrt(sqr(x[4] - x[1]) + sqr(y[4] - y[1])) = sqrt(sqr(x[3] - x[2]) + sqr(y[3] - y[2]))) // и если AD=BC
   then writeln('Заданные координаты могут быть вершинами параллелограмма.')
   else writeln('Заданные координаты не могут быть вершинами параллелограмма.');
end.

Думаю проще некуда.

[avi-vi]

не катит. если вводить точки
3 1
2 0
1 1
0 0
то выводит фэил.

[Orakul89]

Так ты вводи точки по порядку, если ты соединишь точки, так как записал, то параллелограмма у тебя не получится.
Введи их так:
3 1
2 0
0 0
1 1

[avi-vi]

так в том то и дело что они должны вводиться в рандомном порядке

[kaljan775]

структура данных?

[avi-vi]

координаты