Цитата(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.
