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

[DidT33rus]

1.1 Пусть даны координаты трех точек на плоскости.Если они могут быть вершинами тупоугольного треугольника. вычислите его площадь.Выведите длины сторон в порядке убывания.
1.2 Пусть даны координаты трех точек на плоскости.Составьте программу для определения вида треугольника(равносторонний, разносторонний,равнобедренный,прямо угольный, тупоугольный,остроугольный),если данные координаты вершин позволяют его построить.

[ROMA2PVT]

http://www.cyberforum.ru/pascal/thread34058.html
Для первой ссылки уже выкладывались мной.

[DidT33rus]

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

[kogemrka]

Для второй задачи (ммм... опишу алгоритм на словах):

1. Найдём длину каждой стороны. Длина стороны находится по формуле l = sqrt((x1-x0)^2 + (y1-y0)^2);
2. Проверим, можно ли построить этот треугольник. (Проходим по всем сторонам и убеждаемся, что длина каждой стороны меньше суммы длин других сторон)
3. Найдём большую сторону. Если квадрат большей стороны больше суммы квадратов остальных сторон - треугольник тупоугольный. Если квадрат большей стороны равен сумме квадратов других сторон - треугольник прямоугольный. Если квадрат большей стороны меньше суммы квадратов других сторон - треугольник остроугольный.
4. Дальше осталось только проверить, если все стороны треугольника разные - он разносторонний, если есть две одинаковые - он равнобедренный, если все три одинаковые - равносторонний.

Если возникнут какие-то проблемы - напиши, размещу здесь код. Но сначала попробуй написать сам.

[kogemrka]

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

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

нет, там та же самая задача. Единственное отличие - в твоей задаче нет требования того, чтобы треугольник был разносторонним. Достаточно убрать из того решения проверку на разносторонность и всё готово.

Впрочем, может быть меня глючит? Покажи мне хотя бы ещё одно отличие)

PS. смотрю, "33rus" есть в нике. Выходит, мы земляки? ;-)

[DidT33rus]

Выходит да, если ты тоже со Владимира)))

[DidT33rus]

ой а напиши плиз код

[kogemrka]

Эх, давно я не брал в руки шашку^W паскаль)

Не проверял особо на ошибки, но вроде работает. Как-то так:

program tri;
var
  pointx : array[0..2] of real;
  pointy : array[0..2] of real;
  len : array[0..2] of real;
  max : integer;
  i : integer;
begin
     {Vvod dannih}
     for i := 0 to 2 do
          readln(pointx[i], pointy[i]);

     {Schitaem dlini}
     for i := 0 to 2 do
         len[i] := sqrt(sqr(pointx[(i+1) mod 3]-pointx[i]) + sqr(pointy[(i+1) mod 3] - pointy[i]));

     {Proverjaem, mozhno li postroit` takoj treugol`nik}
     for i := 0 to 2 do
         if len[i] >= len[(i+1) mod 3] + len[(i+2) mod 3] then
         begin
             writeln('Achtung! Eto ne treugol`nik!');
             readln;
             Exit;
         end;

     {Nahodim samuyu dlinnuyu storonu}
     max := 0;
     if len[max] < len[1] then max := 1;
     if len[max] < len[2] then max := 2;

     {Proverjaem na ostrougol`nost`}
     if sqr(len[max]) < sqr(len[(max + 1) mod 3]) + sqr(len[(max + 2) mod 3]) then
         writeln('Treugol`nik ostrougol`nij')
     else if sqr(len[max]) = sqr(len[(max + 1) mod 3]) + sqr(len[(max + 2) mod 3]) then
         writeln('Treugol`nik prjamougol`nij')
     else
         writeln('Treugol`nik tupougol`nij');

     {Proverjaem na kolichestvo ravnih storon}
     if (len[0] = len[1]) and (len[1] = len[2]) then
        writeln('Treugol`nik ravnostoronnij')
     else if (len[0] <> len[1]) and (len[1] <> len[2]) and (len[2] <> len[0]) then
        writeln('Trugol`nik raznostoronnij')
     else
        writeln('Treugol`nik ravnobedrennij');

     readln;
end.

[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.

Т.е. вот так.