Подпрограмма-функция

[tapah4ik]

В массиве А(4,10) задаются координаты 10ти векторов, т.е. координаты начала (х1,у1) и конца (х2,у2).
Определить какие из этих векторов : 1)параллельны заданному вектору, 2)перпендикулярны
Замечание: условие параллельности А2/А1=В2/В1 , условие перпендик-ти -А2/В1=-В2/А1

[tapah4ik]

Неужели ни кто не поможет?

[mss]

А ты разве что-то САМ начал делать, чтобы просить помощи ?

[tapah4ik]

mss Вот сделал чуток

if (x*y*x1*y1<>0) then
begin
if (x/x1 = y/y1) then writeln("Параллельны")
else
if (-x/y1=y/x1) then writeln("Перпендикулярны");
end
else
begin
if ((x1=0)and(x=0)and(y*y1>0)or
(y1=0)and(y=0)and(x*x1>0))
then writeln("Параллельны")
else
if ((x=0)and(y1=0)and(y*x1<>0)or(y=0)a nd(x1=0)and(x*y1<>0))
then writeln("Перпендикулярны");
end;