23.10.2007, 07:48
общий
это ответ
Здравствуйте, Торгов Иван Владимирович!
Идея решения сводится к простым свойствам плоских треугольников:
1) все стороны треугольника имеют положительные длины;
2) длина любой стороны всегда меньше, чем сумма длин двух других сторон.
(Однако следует иметь ввиду, что треугольник, построенный на искривлённой поверхности, второму условию может и не удовлетворять. Пример - сфера: проведите отрезок почти по всему экватору сферы, из концов большого отрезка проведите два маленьких так, чтобы они каждый из отрезков концами примыкал к концам двух других.)
Приложение:
procedure TForm1.TestButtonClick(Sender: TObject); var a, b, c: Double;begin a := StrToFloat(a_Edit.Text); b := StrToFloat(b_Edit.Text); c := StrToFloat(c_Edit.Text); if (a > 0) and (b > 0) and (c > 0) and (a < b + c) and (b < a + c) and (c < a + b) then ShowMessage(‘Построение треугольника возможно‘) else ShowMessage(‘Из таких сторон плоский треугольник построить нельзя‘);end;