Треугольник на плоскости задан координатами своих вершин.Найти координаты точки пересечения его медиан.

[Silver23]

Треугольник на плоскости задан координатами своих вершин.Найти координаты точки пересечения его медиан.

Естественно сам попробовал решить, но что-то не работает прога.....

Код:

Program prog2;
Var x,y,x1,y1,x2,y2,xM,yM,k1,b1,k2,b2:r eal;
begin
Writeln('vvedite x,y,x1,y1,x2,y2 ');
readln ( x,y,x1,y1,x2,y2 );
k1:=(y+y2-2*y1)/(x+x2-2*x1);
b1:=y1-k1*x1;
k2:=(y+y1-2*y2)/(x+x1-2*x2);
b2:=y2-k2*x2;
xM:=(b2-b1)/(k1-k2);
yM:=(k1*xM+b1);
writeln ('xM=', y:4:2, 'yM=', y:4:2);
readln;
end.

буду рад, если откликнитесь и поможете с решением.

[IT-man]

xc:=(x1+x2+x3)/3;
yc:=(y1+y2+y3)/3;

(xc,yc)-координаты центра тяжести треугольника & центр тяжести треугольника- точка пересечения медиан
===>(xc,yc)-координаты точки пересечения медиан

[Silver23]

cспасибо,

а можно ли решить это через уравнение y=kx+b ?
я здесь пытаюсь сделать этим методом...