Помогите Реализовать процедурку!

[ILILIIypuk]

Delphi Есть массивы (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;

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

[mihali4]

А зачем кросспостингом заниматься? Быстрее не ответят, а вот на бан нарваться - запросто!

[Reskov]

Проще всего вместо for использовать while или repeat!
Так же можно завершать циклы с помощью label...goto,либо три циклы вынести в новую функции и завершать exit (по моему или return)