Задан треугольник АВС длинами своих сторон. Определить его медианы

4итер

Написать процедуру/функцию, предусмотреть передачу параметров процедуру/функцию в теле программыЗадан треугольник АВС длинами своих сторон. Определить его медианы (медиана,проведенная к стороне А равна 0.5(2в2+2с22).
2 ответа

4итер

помогите пожалуйста, очень надо разобраться.


4итер

чуть что, проверяй с калькулятором =)
uses crt;
var a,b,c,ma,mb,mc: real;
 
function Mediana (x,y,z: real): real;
var m: real;
begin
m:=0.5*((2*sqr(y))+(2*sqr(z))-sqr(x));
Mediana:=m;
end;
 
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
writeln('Медиана к стороне А =', Mediana (a,b,c):0:1);
writeln('Медиана к стороне B =', Mediana (b,c,a):0:1);
writeln('Медиана к стороне C =', Mediana (c,a,b):0:1);
readkey
end.