Тупоугольный треугольник

[Сергей33]

Помогите доделать задачу
Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами тупоугольного треугольника, вычислите его площадь. Выведите длины сторон в порядке убывания.
uses crt;
function Dlina(x1,y1,x2,y2:real):real;
begin
Dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
procedure DlinySt(a,b,c:real;var mx,mn,sr:real);
begin
mx:=a;
if b>mx then mx:=b;
if c>mx then mx:=c;
mn:=a;
if b<mn then mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mx-mn;
end;
function Plosh(a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2;
Plosh:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
var x1,y1,x2,y2,x3,y3,a,b,c,mx,mn,sr:re al;
begin
clrscr;
repeat
writeln('Введите координаты вершин треугольника:');
writeln('1->');
readln(x1,y1);
writeln('2->');
readln(x2,y2);
writeln('3->');
readln(x3,y3);
a:=Dlina(x1,y1,x2,y2);
b:=Dlina(x1,y1,x3,y3);
c:=Dlina(x3,y3,x2,y2);
if (abs(a-b)>=c) or (a+b<=c) then
writeln('Это не треугольник! Повторите ввод.');
until (abs(a-b)<c)and(a+b>c);
DlinySt(a,b,c,mx,mn,sr);
if mn*mn+sr*sr<mx*mx then
begin
writeln('Это тупоугольный треугольник!');
writeln('Его стороны в порядке убывания ',mx:0:2,' ',sr:0:2,' ',mn:0:2);
writeln('Его площадь=',Plosh(a,b,c):0:2);
end
else write('Это не тупоугольный треугольник!');
readln
end.
Тут когда вводиш координаты тупоугольного треугольника она вылетает или пишет что это не тупогольный треугольник почемуто
Помогите пожалуйста!

[ROMA2PVT]

a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
     b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
     c:=sqrt(sqr(x1-x3)+sqr(y1-y3));

Вот формулы нахождения длины каждой стороны треугольника.И почитайте геометрию.Ну там например теорему Пифагора.Откроете много интересного для себя и тогда и только тогда когда вы это прочтёте то поймёте что "ваша" программа работает верно.

[Сергей33]

КА же она работает верно если когда вводиш координаты например:
1
1

5
3

7
1
она пишет что это не тупоугольый треугольник

[ROMA2PVT]

С этими координатами выдаст что это тупоугольный треугольник.Но не как это не тупоугольый треугольник

[ROMA2PVT]

Program treug;
uses crt;
var a,b,c,mx,mn,sr,y1,y2,y3,x1,x2,x3,p,Plosh:real;
begin
     clrscr;
     write('Введите координаты сторон через пробел: ');
     readln(x1,y1);
     readln(x2,y2);
     readln(x3,y3);
     a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
     b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
     c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
if (a+b<=c)or(a+c<=b)or(b+c<=a)then
 begin
  writeln('Это не треугольник!');
  readln;
  exit;
 end;
    begin
     mx:=a;
    if b>mx then mx:=b;
    if c>mx then mx:=c;
     mn:=a;
     if b<mn then mn:=b;
     if c<mn then mn:=c;
      sr:=a+b+c-mx-mn;
    end;
 p:=(a+b+c)/2;
Plosh:=sqrt(p*(p-a)*(p-b)*(p-c));
if{(a<>b)and(a<>c)and(b<>c) and}(mn*mn+sr*sr<mx*mx)then
 begin
  writeln('Это разносторонний тупоугольный треугольник!');
  writeln('Его стороны в порядке возрастания ',mx,' ',sr,' ',mn);
  writeln('Его площадь=',Plosh:0:2);
 end
else write('Это не разносторонний тупоугольный треугольник!');
readkey;
end.

Так попробуй.

[Сергей33]

спасибо попробую

[Сергей33]

спасибо вроде всё работает

[ROMA2PVT]

Ну вот.Только и та всё прекрасно вычисляет.