Точки, лежащие на одной прямой

[dimon_snake]

Помогите, пожалуйста, с заданием.
На плоскости есть какое-то количество точек (задается во входном файле,
от 1 до 100 точек).
Нужно узнать, какие точки лежат на одном отрезке,
то есть подстроив программу под различные случаи количества городов.
Как я понимаю, нужно провести отрезок с 1 точки во вторую, и уравнением прямой, проходящей через две точки, проверить, лежат ли на этом отрезки точки 3 и 4. Потом провести с 1 по 3, и проверить, лежит ли на ней 2 и 4, потом с 1 и 4, проверить 2 и 3.
Далее все тоже самое, только проводить отрезки уже со следующих точек.
Как написать программу, которая узнает, какие точки лежат на одной прямой?

[Аватар]

100 точек? Там только отрезков соединяющих каждую с каждой 99!. Представляешь хоть сколько нулей в конце этого числа? 22. Плюс еще в начале куча циферей. Сколько времени для решения потребуется?

[WorldMaster]

Ну вы хоть понимаете в чем нужно писать программу??
Или совсем все туго?
Что вы все путаете понятия... "Не хочу писать (сложно, времени нету, хомячок рожает) - идем во фриланс ставим ценник вам решают и все довольны"
"Хочу писать но не получается - показываем наработки, указываем где затор слушаем советы, исправляем и все довольны".

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

[dimon_snake]

Сообщение от Аватар

100 точек? Там только отрезков соединяющих каждую с каждой 99!.

Отрезков, напротив, будет больше. Ведь соединять нужно первую со всеми, потом вторую со всеми, кроме первой, и т.д.
А относительно нулей, вы, наверное, не так поняли.
Нам известны координаты. допустим, ста точек.
И не известно, может, там все на одной линии, тогда ответом будут все точки, может, только три лежат на одной линии. То есть считаем кол-во отрезков, соединяющих точки, то есть n-1 + n-2+ ...+ n-99 и это число удваиваем. А потом проверяем на принадлежность сначала точки 3 к отрезку 1 - 2, потом 4 на принадлежность к один 2, и так далее.
Потом идет вторая точка, и её тоже нужно соединить с остальными. И то число, удвоенное, как раз и будет количеством проведенных отрезков для проверки на принадлежность к прямой.
А как дальше, не знаю.
просто не могу связать цикл, который все это будет считать.

[dimon_snake]

Вот мои наработки.

var
fi,fo:text;
n,x,y,m,i,b,v,l,z,o:integer;
a:array[1..200] of integer;
a1:array[1..100] of integer;
begin
Assign(fi,'roads.in');
Assign(fo,'roads.out');
Reset(fi);
Rewrite(fo);
Read(fi,n);
Readln(fi);
m:=1;
for i:=1 to n do begin \\заполняем массив точками, размер массива - 200, по-максимуму. 
read(fi,x,y);
a[m]:=x;
Inc(m);
a[m]:=y;
Inc(m);
end;
(


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


)
b:=1;
z:=1;
v:=2;
o:=1;
while n>z do begin \\ в этом цикле считаем сумму всех дорог
l:=2;
for i:=1 to n-z do begin
a1[o]:=round(sqrt(sqr(abs(a[b+l]-a[b]))+sqr(abs(a[v+l]-a[v])))); 
Inc(o);
l:=l+2;
end;
b:=b+2;
v:=v+2;
Inc(z);
end;
o:=1;
v:=0;
z:=1;
while z<n do begin \\кол-во проведенных отрезков
v:=v+(n-o);
Inc(o);
Inc(z);
end;
m:=0;
for i:=1 to v do m:=m+a1[i];
Write(fo,m);
Close(fo);
end.

[dimon_snake]

Почему 99! ?
Если точек сто, то отрезков будет
99+98+97+..+1, то есть совсем не 99!

[Аватар]

Тю. А чего я зациклился на умножении? Посыпаю голову пеплом Праздники даром не проходят

[min@y™]

А что в итоге получить-то надо? Множество уравнений прямых aka y = kx + b, имеющие на борту 3 или более точек из входных данных?

[dimon_snake]

Вообще нужно соединить между собой все точки, и подсчитать общую длину, учитывая при этом, что несколько точек могут лежать на одной прямой, в этом случае отдельно их соединять не надо, достаточно длины этой линии.
Так что нужно узнать, какие точки лежат на одной прямой.

[Viktor_Ptica]

http://www.cleverstudents.ru/line_an..._2_points.html - почитайте тут. алгоритм будет не сложный в принципе и зациклить его можно на проверку.