Паскаль.Являются ли точки вершинами трапеции?

[__STDC__]

Сообщение от DomiNick

Ну алгоритм-то и в Африке алгоритм...))

Там всё элементарно переделывается...

ну т.е. предлагаешь графическое решение? =) я имею ввиду, исходя из первого поста автора требуется аналитическое решение, или нет?
кстати.. при вводе 0;0, 1;1, 2;2, 3;3 прога рисует прямую и показывает YES oO
и все-таки квадрат является трапецией?))))

[DomiNick]

Она для наглядности просто соединяет точки линиями... )

[__STDC__]

А, все вижу.. просто я когда скачивал там исходника не было)) Но все равно с тем набором неясно

[Арсенчик]

Как же выгладит конечная версия программы?

[Арсенчик]

Ребят,дело горит!Прога нужна уже утром!

[Арсенчик]

и посмотрите пожалуйста тему..http://programmersforum.ru/showthrea...099#post267099

[DomiNick]

Ну так там же всё должно быть понятно... Синтаксис Делфи и Паскаля одинаков...

Program Trapezium;

Uses Crt, Math;

Var Ax, Ay, Bx, By, Cx, Cy, Dx, Dy, AngAB, AngDC, AngBC, AngAD: Real;

Function GetAngle(x1, y1, x2, y2: Real): Real;
Var L: Real;
Begin
L:=SQRT((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
If L<>0 Then
        If y2<=y1 Then
                GetAngle:=-ArcCos((x2-x1)/L)
        Else
                GetAngle:=ArcCos((x2-x1)/L)
Else
        GetAngle:=0; // точки совпадают (по идее должна быть ошибка), но пусть будет как будто ноль... :)
End;

Begin
ClrScr;
WriteLn();
WriteLn();
Write('Enter Ax: ');
ReadLn(Ax);
Write('Enter Ay: ');
ReadLn(Ay);
Write('Enter Bx: ');
ReadLn(Bx);
Write('Enter By: ');
ReadLn(By);
Write('Enter Cx: ');
ReadLn(Cx);
Write('Enter Cy: ');
ReadLn(Cy);
Write('Enter Dx: ');
ReadLn(Dx);
Write('Enter Dy: ');
ReadLn(Dy);
WriteLn();
WriteLn();

AngAB:=GetAngle(Ax, Ay, Bx, By);
AngDC:=GetAngle(Dx, Dy, Cx, Cy);
AngBC:=GetAngle(Bx, By, Cx, Cy);
AngAD:=GetAngle(Ax, Ay, Dx, Dy);

If ((Abs(AngAB-AngDC)<0.00000000005) Or (Abs(AngBC-AngAD)<0.00000000005) Or (Abs(Abs(AngAB-AngDC)-Pi)<0.00000000005) Or (Abs(Abs(AngBC-AngAD)-Pi)<0.00000000005)) Then
        WriteLn(' Yes ')
Else
        WriteLn(' No ');
ReadKey;
End.

Это вместе с учётом фигур как на моей картинке *

[Арсенчик]

Прога упорно не запускается!Вначале отсутствие переменной,потом отсутствие ";" там,где его и не должно быть..протестируйте на паскале..пожалуйста!

[__STDC__]

Все работает.

[DomiNick]

отсутствие переменной,потом отсутствие ";"

0_о


А Вы правильно перепечатали-то?