нами якого є медіани вихідного трикутника. (Довжина медіани, проведеної до сторони a, дорівнює .
Лістинг з коментарями
Program Exercise_10;
Var a, b, c: Integer;, b1, c1, m1, m2, m3: Real; ('a ='); (a); ('b ='); (b ); ('c ='); (c);
// перевірка існування трикутника
if (a> = b + c) or (b> = a + c) or (c> = a + b) then
begin ('Net');;: = 0.5 * sqrt (2 * b * b +2 * c * ca * a);: = 0.5 * sqrt (2 * a * a +2 * c * cb * b);: = 0.5 * sqrt (2 * a * a +2 * b * bc * c);: = 0.5 * sqrt (2 * b1 * b1 +2 * c1 * c1-a1 * a1 );: = 0.5 * sqrt (2 * a1 * a1 +2 * c1 * c1-b1 * b1);: = 0.5 * sqrt (2 * a1 * a1 +2 * b1 * b1-c1 * c1); (' m1 = ', m1: 3:2); (' m2 = ', m2: 3:2); (' m3 = ', m3: 3:2);; nd. br/>
