даны три числа. Если они могут быть длинами сторон треугольника, определите его вид и найдите высоты (Паскаль)

[charming]

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

Только начала изучать паскаль и мало, что понимаю. Помогите, please.
С определением треугольника справилась, а с высотами - нет...

[Alex11223]

С определением треугольника справилась, а с высотами - нет

И как вам помочь? Где ваш код?

[charming]

program treug;
var a,b,c:real;
begin
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
if (a=b) and (a=c) then
writeln ('ravnostor')
else if ((a=b) and (a<>c)) or ((a=c) and (a<>b)) or ((b=c) and (b<>a)) then writeln ('ravnobedr')
else writeln ('raznostor');
end
else writeln ('ne sushestvuet');
readln;
end.

Подскажите,что нужно добавить для определения высот и расстановки по убыванию?


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

[MyLastHit]

По формуле герона можно найти площадь, а потом эту площадь делить на половину стороны. Это даст длину высоты перпендикулярной к данной стороне.

p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
h1=2*s/a;
h2=2*s/b;
h3=2*s/c;

[charming]

Это я поняла, спасибо.
Вот только плохо понимаю, куда эти формулы нужно добавить в код...

Пожалуйста, очень нужна помощь, куда нужно вставить формулы для определения высот.

[MyLastHit]

Пожалуйста, очень нужна помощь, куда нужно вставить формулы для определения высот.

program treug;
var a,b,c,p,s,h1,h2,h3:real;
begin
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
if (a=b) and (a=c) then
writeln ('ravnostor')
else if ((a=b) and (a<>c)) or ((a=c) and (a<>b)) or ((b=c) and (b<>a)) then writeln ('ravnobedr')
else writeln ('raznostor');
end
else writeln ('ne sushestvuet');
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
h1=2*s/a;
h2=2*s/b;
h3=2*s/c;
writeln(h1:2:2);
writeln(h2:2:2);
writeln(h3:2:2);
readln;
end.

В порядке убывания сам подумай как вывести и напиши.

[charming]

Спасибо огромное!
Можно еще вопрос... Почему-то не открывается файл с расширением pas, мне нужно просто его на флешку скинуть. Пишет, что не является приложением Win32. Не понимаю, как его тогда перенести...

[Вадим Мошев]

Файл с расширение pas можно открыть, например, при помощи программы "блокнот". Просто откройте блокнот и тупо перенесите туда этот файл.

А что касается копирования... просто скопируйте его на флешку, в чём проблема-то?

[charming]

Ага, поняла, открывает с помощью блокнота. Спасибо)
С копированием проблем нет, просто боялась, что когда принесу флешку, он не откроется.