Задача на нахождение центра тяжести... Опции

[MrKvarz]

Доброе время суток. .

В 11кл. такую вот мне задачу дали на Pascal.

Вычислить координаты центра тяжести трёх материальных точек с массами M1, M2, M3 и координтами (X1,Y1), (X2,Y2),(X3,Y3) по формулам:

Код

Yc=M1Y1+M2Y2+M3Y3 / M1+M2+M3

Xc=M1X1+M2X2+M3X3 / M1+M2+M3

Очень простая задача, но как её реализовать в Pascal!?.

Надо как то присвоить каждому M, значения координат?!

Сообщение отредактировано: MrKvarz - 4.12.2005 23:57

[volvo]

MrKvarz, а строки

Код

{ координаты самого центра тяжести }
centerx := sx/sm;
centery := sy/sm;
centerz := sz/sm;

и все, что перед этим как ты думаешь, что делают?

Та программа как раз и реализует вычисление координат центра тяжести, только в 3-мерном пространстве... Можешь убрать везде координату Z и получишь то, что нужно...