TURBO PASCAL

Новости       

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Благодарности 

Гостевая книга

Спонсор

От автора

 

         Практическое задание N 1. 20

            1.  Рассчитать момент инерции массива точек относительно осей "x" и  "y" :

         Jx = m1 * x12 + m2 * x22 +. . . + mN * xN2,     

         Jy = m1 * y12 + m2 * y22 +. . . + mN * xN2.

Массив "N" точек ( N = 60 ),  имеющих массы "m"  ( 5 =< m <= 25 ) определен на прямоугольнике с координатами  -10 <= x <= 10  и  10 <= y <= 20.  Вывести на экран таблицу значений "N",  "х",  "у",  "m",  а также моменты инерции "Jx",  "Jy".

Определить и вывести на экран номера точек с экстремальными значениями координат,  массы и моментов инерции точки.

            2. Расcчитать координаты центра тяжести массива точек: Xc = Xm/M,  Yc = Ym/M,   где  

         Xm = m1 * x1 + m2 * x2 +. . . + mN * xN, 

         Ym = m1 * y1 + m2 * y2 +. . . + mN * yN, 

         M = m1 + m2 +. . . + mN, 

Массив из "N" точек ( N = 45 ),  имеющих массы "m"  (3 =< m <= 35) определен на прямоугольнике с координатами  -22 <= x <= 33  и  11 <= y <= 44.   Вывести на экран таблицу значений  "N",  "х",  "у",  "m",  а также координаты центра тяжести "Xc",  "Yc" и массу точек "M".  Определить и вывести на экран номера точек с экстремальными значениями координат и массы.

            3.  Рассчитать массив "r" - расстояние между точками с соседними номерами и массива "s"- расстояние от каждой точки до последней вдоль ломанной,  например:

            r1 = Ö((x1 - x2)2 + (y1 - y2)2) - расстояние от точки "1" до точки "2",

            s1 = r1 + r2 + ... + rN  - расстояние от точки "1" до последней точки "N",

            s2 = s1 - r1  - расстояние от точки "2" до последней вдоль ломанной.

Массив из "N" точек ( N = 30 ) определен на прямоугольнике с координатами  9<=x<=25  и  21<=y<=34.  Вывести на экран таблицу значений  "N",  "х",  "у",  "s".

 

 

            4.  Рассчитать массив "s" - сумма расстояний от каждой точки до всех остальных,  по формулам:                                                                                                               6

                                                                                                                            7                        2

            rij = Ö((xi-xj)2+(yi-yj)2)  - расстояние от i- ой                                  1

                                                                               до j- ой точки,                                              3

                                                                                                                               4

            si = si + rij                                                                                                               5

 

- суммирование производится во внутреннем цикле с параметром "j",  а во внешнем цикле меняется параметр "i".  

Массив из "N" точек ( N = 20 ) определен на прямоугольнике с координатами 3<=x<=15  и  8<=y<=14.  Вывести на экран таблицу значений  "N",  "х",  "у",   "s".

 

            5.  К задаче п3.  Определить массив "M" - номеров точек ,  которые придут к финишу быстрее первой,  т. е.  для которых выполняется условие: T[i] < T[1].

Здесь T[i] = S[i] / V[i] - время движения от i-ой точки до последней,  

            V[i] = 30 - i   - скорость движения i-ой точки.  Вывести на экран таблицу значений  "N",  "х",  "у",  "S",  "V",  "t"  для всех точек и таблицу для "быстрых" точек. 

            6.  К задаче п4.  Определить массив номеров точек "M",  которые ходят в гости к другим точкам дольше первой,  т. е.  для которых выполняется условие: S[i]>S[1] (точки каждый раз возвращаются в исходное положение (домой),  скорость всех точек постоянна и одинакова).  Вывести на экран таблицу значений  "N",  "х",  "у",  "s",   для всех точек и таблицу для "медленных" точек. 

            Примечание к п.п. 1-6:  Значения  "x",  "y",  "m" задаются функцией Random.

 

На первую страницу

Rambler's Top100 PROext: Top 1000
Rambler's Top100

(с) Все права защищены.

По всем интересующим вопросам прошу писать электронный адрес

Hosted by uCoz