Напишите программу нахождения длин медиан m1, m2 и m3, треугольника по указанными формулами. Длина сторон a, b, c задается с клавиатуры m1=1/2sqrt (2a^2+2b^2-c^2); m2=1/2sqrt (2a^2+2c^2-b^2); m3=1/4*sqrt (2b^2+2c^2-a^2);.

Question

Ольга Александрова

Информатика

18 сентября, 12:04

Напишите программу нахождения длин медиан m1, m2 и m3, треугольника по указанными формулами. Длина сторон a, b, c задается с клавиатуры m1=1/2sqrt (2a^2+2b^2-c^2); m2=1/2sqrt (2a^2+2c^2-b^2); m3=1/4*sqrt (2b^2+2c^2-a^2);.

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Шура · Answer 1

var

a, b, c: real;

function mediana (a, b, c: real) : real;

begin

mediana : = 1 / 2 * sqrt (2 * a * a + 2 * b * b - c * c);

end;

begin

writeln ('Введите длины сторон треугольника a b c');

read (a, b, c);

writeln ('m1 = ', mediana (a, b, c));

writeln ('m2 = ', mediana (a, c, b));

writeln ('m3 = ', mediana (b, c, a));

end.