IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача на нахождение центра тяжести...
сообщение
Сообщение #1


Гость






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

В 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 -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






MrKvarz,
в следующий раз пользуйся поиском, хорошо?
Задача: Центр тяжести
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата(volvo @ 4.12.2005 23:59) *

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

Да но там несколько другая задача, у меня даны формулы, по которым надо вычислить, а там надо найти момент вращения. mega_chok.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






MrKvarz, а строки
Код
{ координаты самого центра тяжести }
centerx := sx/sm;
centery := sy/sm;
centerz := sz/sm;
и все, что перед этим как ты думаешь, что делают? blink.gif

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


Гость






Цитата(MrKvarz @ 4.12.2005 23:52) *

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

В 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.
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 11:53
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name