материальная точка

[STALKER7538]

вычислить центр тяжести системы с трёх материальных точек на плоскости с массами М1, М2, М3 и координатами (Х1,У1), (Х2,У2), (Х3,У3).

[Mad_Cat]

центр веса

нет такого понятия!!! есть Центр Macc и центр Тяжести!!! что искать то?

[STALKER7538]

центр тяжести

[invizor]

x_c=(m1*x1+m2*x2+m3*x3)/(m1+m2+m3)
y_c=(m1*y1+m2*y2+m3*y3)/(m1+m2+m3)

[Mad_Cat]

x_c=(m1*x1+m2*x2+m3*x3)/(m1+m2+m3)
y_c=(m1*y1+m2*y2+m3*y3)/(m1+m2+m3)

это центр масс а не тяжести
из вики

Центр масс тела не следует путать с центром тяжести!

http://ru.wikipedia.org/wiki/Центр_масс
хотя

центр масс и центр тяжести совпадают при использовании этих терминов в геометрии

там же

var X,Y,M:array[0..3] of real;
i:integer;xc,yc:real;
begin
x[0]:=0;
Y[0]:=0;
M[0]:=0;
for i:=1 to 3 do
begin
Writeln('Введите координаты и массу ',i,'-той точки в формате X Y M');
readln(x[i],y[i],m[i]);
M[0]:=M[0]+M[i];
X[0]:=X[0]+M[i]*X[i];
Y[0]:=Y[0]+M[i]*Y[i];
end;
Xc:=X[0]/M[0];
Yc:=Y[0]/M[0];
Writeln('Xc=',Xc:6:2,' Yc=',Yc:6:2);
readln;
end.