Даны длины отрезков a,b,c,d,e.Выяснить,можно ли построить треугольник со сторонами {a,b,c},{b,c,d},{c,d,e}?Если да,то найдите пло

[kazbek1]

Даны длины отрезков a,b,c,d,e.Выяснить,можно ли построить треугольник со сторонами {a,b,c},{b,c,d},{c,d,e}?Если да,то найдите площадь соответсвующего треугольника.проверку на возможность составления треугольника и вычисление площади оформите в виде подпрограммы.

[Pein95]

а в чем сложность?? елементарная геометрия...

[denisbrain]

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

Даны длины отрезков a,b,c,d,e.Выяснить,можно ли построить треугольник со сторонами {a,b,c},{b,c,d},{c,d,e}?Если да,то найдите площадь соответсвующего треугольника.проверку на возможность составления треугольника и вычисление площади оформите в виде подпрограммы.

во фриланс - рублей 200 маx.

[Serge_Bliznykov]

во фриланс - рублей 200 маx.

ОМГ. за пять-семь строчек на Паскале (элементарных!) 200 рублей?!
Ну у Вас и расценки!!

[s-andriano]

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

ОМГ. за пять-семь строчек на Паскале (элементарных!) 200 рублей?!
Ну у Вас и расценки!!

Стоимость строки отлаженного кода колеблется в диапазоне от $5 до $10.
Так что оценка стоимости работы верная.

[Rififi]

Serge_Bliznykov

ОМГ. за пять-семь строчек на Паскале (элементарных!) 200 рублей?!
Ну у Вас и расценки!!

Ну видимо, кто как себя оценивает, у того такие и расценки... :D

[denisbrain]

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

Serge_Bliznykov

ОМГ. за пять-семь строчек на Паскале (элементарных!) 200 рублей?!
Ну у Вас и расценки!!

Ну видимо, кто как себя оценивает, у того такие и расценки... :D

я так понимаю нужно проверить длины стороны на >0

и по формулам площади посчитать





// находим площадь треугольника по теореме
// формула Герона
// http://ru.wikipedia.org/wiki/%D4%EE%...E5%F0%EE%ED%E0

Function GetS(r1,r2,r3:real):real;
var p:real;
begin
 p:=(r1+r2+r3)/2;
 if p*(p-r1)*(p-r2)*(p-r3)>0 then
 GetS:=sqrt(p*(p-r1)*(p-r2)*(p-r3))
 else GetS:=0;
end;