Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
2 / 2 / 0
Регистрация: 23.10.2009
Сообщений: 50
1

Определить координаты центра тяжести системы материальных частиц

02.03.2010, 13:46. Показов 2092. Ответов 2
Метки нет (Все метки)

Прошу помощи! Пожалуйста!

Задание такое:
Описать подпрограмму-процедуру, определяющую координаты центра тяжести (точку О(x0,y0)), системы материальных частиц с координатами Мi(xi,yi) и с массами mi . (должны быть заданы три массива xi, yi, mi для задания одной системы частиц) по следующим формулам:

x0=(m[i]*x[i])/(m[i]); y0=( m[i]*y[i])/( m[i]).

В главной программе для двух заданных систем материальных частиц выяснить не совпадают ли их центры тяжести.

Добавлено через 54 секунды
где  - знак суммы от i=1 to n...
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2010, 13:46
Ответы с готовыми решениями:

Найти координаты центра тяжести системы
Даны координаты и массы N точек на плоскости.Найти координаты центра тяжести системы.

Найти координаты центра тяжести системы масс по формулам
даны 3 последовательности:x,x,...,x;y,y,...,y;M,M,...,M. Каждая тройка элементов (x,y,M)...

Построить треугольник, вращающийся вокруг центра тяжести
Доброго времени суток. Задание такое - Юзер вводит координаты вершин треугольника и видит свой...

Изобразите разносторонний треугольник, вращающийся вокруг своего центра тяжести
Изобразите разносторонний треугольник, вращающийся в плоскости экрана вокруг своего центра тяжести.

2
Модератор
63381 / 47074 / 32446
Регистрация: 18.05.2008
Сообщений: 114,106
02.03.2010, 14:33 2
Лучший ответ Сообщение было отмечено skopy как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure Vvod(var x,y,m:mas;var n:byte;c:char);
var i:byte;
begin
repeat
write('Размер системы ',c,'=');
readln(n);
if n>nmax then writeln('Слишком большой размер, введите n<=',nmax);
until n in [1..nmax];
writeln('Введите координаты и массы точек:');
for i:=1 to n do
 begin
  writeln('Точка ',i);
  write(' x=');readln(x[i]);
  write(' y=');readln(y[i]);
  write(' m=');readln(m[i]);
 end;
clrscr;
end;
procedure Vyvod(var x,y,m:mas;n:byte;c:char);
var i:byte;
begin
writeln('Система ',c);
write('X');
for i:=1 to n do
write(x[i]:5:2);
writeln;
write('Y');
for i:=1 to n do
write(y[i]:5:2);
writeln;
write('M');
for i:=1 to n do
write(m[i]:5:2);
writeln;
end;
procedure Centr(x,y,m:mas;n:byte;c:char;x0,y0:real);
var i:byte;
    sx,sy,sm:real;
begin
sx:=0;sy:=0;sm:=0;
for i:=1 to n do
 begin
  sx:=sx+x[i]*m[i];
  sy:=sy+y[i]*m[i];
  sm:=sm+m[i];
 end;
x0:=sx/sm;
y0:=sy/sm;
writeln('Координаты центра тяжести X0=',x0:0:2,'  Y0=',y0:0:2);
writeln;
end;
var x1,y1,m1,x2,y2,m2:mas;
    x01,y01,x02,y02:real;
    n1,n2:byte;
begin
clrscr;
Vvod(x1,y1,m1,n1,'A');
Vvod(x2,y2,m2,n2,'B');
Vyvod(x1,y1,m1,n1,'A');
Centr(x1,y1,m1,n1,'A',x01,y01);
Vyvod(x2,y2,m2,n2,'B');
Centr(x2,y2,m2,n2,'B',x02,y02);
if (abs(x01--x02)<0.0001)and(abs(x01--x02)<0.0001)then
write('Центры координат систем совпадают.')
else write('Центры координат систем не совпадают.');
readln
end.
2
2 / 2 / 0
Регистрация: 23.10.2009
Сообщений: 50
02.03.2010, 15:46  [ТС] 3
Огромное спасибо! Вы - Спасатель!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.03.2010, 15:46

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Графика в Турбо Паскаль. Разносторонний треугольник, вращающийся вокруг центра тяжести
Изобразить на экране разносторонний треугольник, вращающийся вокруг центра тяжести в плоскости...

Получить на экране разносторонний треугольник, вращающийся вокруг своего центра тяжести
Получить на экране разносторонний треугольник, вращающийся вокруг своего центра тяжести

Вычислить импульс и кинетическую энергию системы материальных точек
Сама задачка: вычислить импульс (p -формулу я прикрепил) и кинетическую энергию (t -тоже...

Получить координаты центра тяжести системы, а также расстояние от центра тяжести до всех точек системы
Здравствуйте, помогите пожалуйста с решением задачи!!! Система из 25 материальных точек в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.