Ребята, помогите с Паскалем, курсовик горит

[Miva]

помогите написать прогу на Турбо Паскале:

а) Вычислить расстояния от заданной точки А(хА, yА) до каждой прямой;

б) сформировать P - подмножество M, включающее в себя только прямые, расстояния до которых от точки А принадлежат заданному интервалу;

в) упорядочить Р так, чтобы прямые располагались в порядке возрастания расстояний от А.

[Хыиуду]

А откуда берутся прямые?

[Miva]

writeln ('vvedite tochku M(x,y)')
readln (x,y)
writeln ('vvedite A,B,C')
readln (A,B,C)
где то отсюда эти прямые беруться

[Хыиуду]

Из "где-то отсюда" могут взяться максимум три прямые: АВ, АС и ВС. Этого достаточно?

[Miva]

достаточно....

[Хыиуду]

Стоять, вру. Прямая определяется двумя точками, точка определяется двумя координатами - так что нужно минимум четыре параметра. А, В, С - маловато будет

[Miva]

в том и дело, задание дает Ах+Ву+С=

[Miva]

в том и дело, задание дает: Множество прямых М задано коэффициентами их уравнений вида Ах + Вy + C = 0. Выполнить над М последовательность действий, указанную в задании

[Хыиуду]

Luke, use the Force! Or, better, use Google!
http://rualgo.narod.ru/algs/rasttpr.htm
Расстояние от точки до прямой - D=ABS((A*X+B*Y+C)/SQRT(SQR(A)+SQR(B))). В цикле проверяем значение этой функции для каждой прямой из множества М