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

[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,
в следующий раз пользуйся поиском, хорошо?
Задача: Центр тяжести

[MrKvarz]

MrKvarz,
в следующий раз пользуйся поиском, хорошо?
Задача: Центр тяжести

Да но там несколько другая задача, у меня даны формулы, по которым надо вычислить, а там надо найти момент вращения.

[volvo]

MrKvarz, а строки

Код

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

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

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

[korvin]

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

В 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, значения координат?!

проще всего создать переменные типа

Код

Mx1,Mx2,Mx3,My1,My2,My3,Mm1,Mm2,Mm3:integer;

(или real по необходимости) или создать структуру для точки с опр. массой и потом ее использовать, например вот так:

Код

type
Mpoint=record
x,y,m:integer;
end; (*record*)
var
M1,M2,M3:Mpoint;
Begin
(*использование структуры в программе очень похоже на переменные только все параметры одно объекта объеденены общим именем, а значение параметра вводится через точку*)
M1.x:=3;
M1.y:=5;
M1.m:=23;
M2.x:=1;
M2.y:=-3;
M2.m:=14;
M3.x:=6;
M3.y:=8;
M3.m:=20;

end.