ПОМОГИТЕ РЕАЛИЗОВАТЬ ПРОЦЕДУРКУ!!!

[ILILIIypuk]

Есть массивы (2 штуки - задают координаты точек на плоскости). Есть формула если (y3-y2)/(x3-x2)=(y2-y1)/(x2-x1) то эти три точки лежат на одной прямой. Мне нужно проверить данные массивы на выполнение этой формулы и если она вдруг выполнится то изменить координату одной из точек, для которой она выполнилась....т.е проверить все тройки точек и если надо исправить координаты!

нужно проверить все точки плоскости так чтобы никакие 3 не лежали на одной прямой... Но пойдет вариант и такой : на прямой не должны лежать СЛЕДУЮЩИЕ ДРУГ ЗА ДРУГОМ три точки!

Пожалуйсто помогите...

Вот мой вариант

procedure PROV(X,y:mas); {проверка}
var a,b,i,s : integer;
f,k:real;
begin
s:=0;
for i:=1 to n-2 do {перебор точек}
for a:=(i+1) to n-1 do
for b:=(a+1) to n do
begin
f:=(y[i]-y[a])/(x-x[a]);
{проверяю формулу}
k:=(y[a]-y[i])/(x[a]-x);

if f = k then

s:=a;
break; {как оборвать сразу 3 цикла?}

end;
x:=x+5; {вот тут бред какой-то... как поменять координату средней точки 
+ повторять эти циклы пока s<>0?}
end;

Но тут много глюков и ваще по-моему это фигня! Прошу напишити ваш работающий алгоритм=)

[evg_m]

procedure PROV(X,y:mas); {проверка}
var a,b,i,s : integer;
neud: boolean;
f,k:real;
begin
s:=0;
neud:=false;
for i:=1 to n-2 do begin{перебор точек}
for a:=(i+1) to n-1 do begin
for b:=(a+1) to n do
begin
f:=(y[i]-y[a])/(x-x[a]);
{проверяю формулу}
k:=(y[a]-y[i])/(x[a]-x);
if f = k then 
  neud:=true; //s:=a;
if neud then break; //break; {как оборвать сразу 3 цикла?}
end;
if neud then break; 
end;
if neud then break; 
end;
//x:=x+5; {вот тут бред какой-то... как поменять координату средней точки
+ повторять эти циклы пока s<>0?}
end;

[Квэнди]

автору предупреждение за кроспост и капслок.
тема закрыта