Задача про треугольники на паскале или делфи

[(Нафаня)]

даны 3 числа. Если они являются сторонами треугольника, определите его вид(равносторонний, равнобедренный, разносторонний). Вычислите длины его высот и выведите их в порядке возрастания. Я в принципе написала ее почти, но не знаю как найти высоты в разностороннем и равнобедренном треугольниках

[Zer0]

Формула Герона
Считаем площадь по этой формуле (т.к. стороны нам известны)
Вспоминаем вторую формулу (площадь равна половине основания * высоту)
И из этой формулы получаем, что высота к одной из сторон = 2*площадь делить на длину этой стороны
Таким образом можно найти все три высоты

[(Нафаня)]

спасибо большое

[(Нафаня)]

Пргорамма есть, но что-то с бегином вторым хрень какая-то

program zadacha2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var e,f,h,a,b,c,s,s1,p:real;

begin
      writeln('Vv. 3 chisla');
      readln(a,b,c);
      if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
      writeln ('a,b,c - stor treug.')
      begin
             begin if (a<>b) and (a<>c) and (b<>c) then
               begin writeln('Treug. raznostor.');
                     p:=(a+b+c)/2;
                     s:=sqrt(p*(p-a)*(p-b)*(p-c));
                     h:=s*2/c;
                     e:=s*2/a;
                     f:=s*2/b;
                     writeln('Vys.e= ',e,' Vys.f= ',f,' Vys.h= ',h);
                     readln;
               end;
             end;
             begin if (a=b) and (a=c) and (b=c) then
               begin writeln('Treug. ravnost.')
                     e=sqrt(b*b-sqr(c/2));
                     writeln('Vys.e= ',e,' Vys.h= ',e' Vys.f= ',e);
                     readln;
               end;
             end;
             begin if ((a=b)and(b<>c)and(a<>c))or((a=c)and(a<>b)and(c<>b))or((b=c)and(b<>a)and(c<>a))then
               begin writeln('Treug. ravnobedr.');
                     h:=sqrt(a*a-sqr(b/2));
                     e:=s*2/a;
                     writeln('Vys.e= ',e,' Vys.f= ',e,' Vys.h= ',h);
                     readln;
               end;
             end;
      end
        else writeln ('a,b,c - ne yavl. stor treugolnika');
             readln;
end.

___________
1) зачем начинать ЕЩЁ одну тему, когда есть же Ваша тема про треугольники,
с этой же задачей?!! Чтобы плодить одни и те же темы?!
так это кросспост получается. А он запрещён правилами форума!

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!


Модератор.

[Zer0]

охохох, попробуйте так, вместо:

if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
writeln ('a,b,c - stor treug.');
begin
begin if (a<>b) and (a<>c) and (b<>c) then

сделать

if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then begin
writeln ('a,b,c - stor treug.')
if (a<>b) and (a<>c) and (b<>c) then

и уберите лишние end

P.S.

begin if (a=b) and (a=c) and (b=c) then
begin if ((a=b)and(b<>c)and(a<>c))or((a=c)an d(a<>b)and(c<>b))or((b=c)and(b<>a)a nd(c<>a))then

здесь begin вообще не нужен

[Zer0]

program zadacha2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var e,f,h,a,b,c,s,p:real;

begin
      writeln('Vv. 3 chisla');
      readln(a,b,c);
      if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then begin
         writeln ('a,b,c - stor treug.');
         p:=(a+b+c)/2;
         s:=sqrt(p*(p-a)*(p-b)*(p-c));
         if (a=b) and (a=c) and (b=c) then
              writeln('Treug. ravnost.')
         else
         if((a=b)and(b<>c)and(a<>c))or((a=c)and(a<>b)and(c<>b))or((b=c)and(b<>a)and(c<>a)) then
            writeln('Treug. ravnobedr.')
         else writeln('Treug. raznostor.');
         h:=s*2/c;
         e:=s*2/a;
         f:=s*2/b;
         writeln('Vys.e= ',e,' Vys.f= ',f,' Vys.h= ',h);
      end
        else writeln ('a,b,c - ne yavl. stor treugolnika');
        readln;
end.

исправил и немного сократил код

[Serge_Bliznykov]

        else
         if((a=b)and(b<>c)and(a<>c))or((a=c)and(a<>b)and(c<>b))or((b=c)and(b<>a)and(c<>a)) then

всё правильно.
но, имхо, раз мы пришли сюда по веточке ELSE, то все три стороны не могут быть одинаковые, поэтому достаточно проверить совпадение любых двух сторон:

        else
          if (a=b) or (a=c) or (b=c)  
          then
            writeln('Treug. ravnobedr.')
          else writeln('Treug. raznostor.');

[(Нафаня)]

спасибо всем большое за помощь

[(Нафаня)]

а еще бы высоты в порядке убывания вывести. не могу придумать ничего(

[Serge_Bliznykov]

а еще бы высоты в порядке убывания вывести. не могу придумать ничего(

я бы написал процедуру вывода высот.
и везде, где writeln('Vys..... ), вместо WriteLn вызывал бы эту процедуру...