Помогите с задачей.(Пскаль).по теме программирование алгоритмов разветвляющейся структуры.

[svobodys]

Определить, образуют ли три прямые при пересечении треугольник. уравнения прямых Y=A1*X+B1, Y=A2*X+B2, Y=A3*X+B3 и их коэффициенты заданы.

[Gorka]

Там пишут лабы, курсовые, дипломные и еще кучу всего: programmersteam (dot) com
Обратись - помогут

[puporev]

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

[svobodys]

Да я чота не соображу...(((

[AVer]

Gorka спам.

[A_r_r_a_y]

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

[puporev]

Я же написал, угловые коэффициенты. Если все три коэффициента неравны и точка пересечения Y1 с Y2 не совпадает с точкой пересечения Y2 и Y3, то прямые попарно пересекаются и образуют треугольник. УЧИТЕ ГЕОМЕТРИЮ И АЛГЕБРУ!!!
При сравнении вещественных чисел, которые в машинном представлении даже при явном для нас равенстве могут оказатся неравными и наоборот, применяют погрешность определения равенства, типа e=0.0000001, или больше или меньше в зависимости от точности сравнений или вычислений. Тогда полный код программы будет выглядеть так:

uses crt;
var a1,b1,a2,b2,a3,b3,e:extended;
begin
clrscr;
e:=0.00001;
write('a1=');readln(a1);
write('b1=');readln(b1);
write('a2=');readln(a2);
write('b2=');readln(b2);
write('a3=');readln(a3);
write('b3=');readln(b3);
if (abs(a1-a2)>e)and(abs(a1-a3)>e)and(abs(a2-a3)>e)  //если угловые коэффициенты различны
and(abs((b2-b1)/(a1-a2)-(b3-b2)/(a2-a3))>e)  //если точки пересечения прямых не совпадают
then write('Треугольник существует!')
else writeln('Треугольник не существует!');
readln
end.