ТРИ ЗВЕРСКИЕ ЗАДАЧИ на вопрос жизни и смерти

[Boris_BGB]

I.
Составить программу вычесления центра тяжести системы N материальных точек с массами M1, M2, M3, ..... Mn и координатами (X1, Y1, Z1), (X2, Y2, Z2), ... , (Xn, Yn, Zn) по формулам:






Составить подпрограмму общего вида для вычисления Хm. С помощью подпрограммы вычислить Хm, Ym, Zm. Размер массива - любой. Массы и координаты произвольные.

II.
Составить и вычислить элементы матрицы C4x4 по правилу Cij = Dij + Pij (i= 1 To 4, j= 1 To 4), где матрицы D = A(транспонированная) и P = B(транспонированная).
Числовые значения матриц А и В заданы. Вычисление элементов матрицы Dij = Aij (i = 1 To n ; j = 1 To n) оформить в виде подпрограммы общего вида с формальными параметрами:
N - кол-во строк, столбцов квадратной матрицы А
А - двумерный массив
D - двумерный массив

Исходные данные:
-1 3 5 7
А= -1 3 5 7
-1 3 5 7
-1 3 5 7

9 7 -5 3
В= 9 7 -5 3
9 7 -5 3
9 7 -5 3

Напечатать матрицы А, В, D, P, C

III.
Написать программу для вычисления кол-ва нулевых элементов матрицы В4х4, находящихся на главной диагонали и сумму положительных элементов, находящихся не на главной диагонали.
1 1 0 -1
В = 1 0 1 2
-1 3 2 -3
-2 0 1 0

Сегодня! Срочно!
Исходники, если можно на crow233@mail.ru .[/img]

[gaidar]

Хе-хе, легко все это. Но мне, откровенно, лень. Ди и учиться, братец-кролик, надо самому. А зачем еще задания дают ты думаешь?

[Boris_BGB]

Гайдар, это не мне! Я же не в институте учусь! Пожалуста!

[alibek]

Эх...

1. Помоему ты неправильно написал формулу. Должно быть S(X*M)/S(M) (S - знак суммы); у тебя написано S*X*M/S(M).

Код: Выделить всё

Dim I As Long, N As Long, X() As Single, Y() As Single, Z() As Single, M() As Single, XM As Single, YM As Single, ZM As Single, SM As Single
Input N
ReDim X(1 To N) As Single, Y(1 To N) As Single, Z(1 To N) As Single, M(1 To N) As Single
For I = 1 To N
  Print "Point " & I
  Input X(I), Y(I), Z(I), M(I)
  MS = MS + M(I)
Next I
XM = CalcMV(X(), M(), MS)
YM = CalcMV(Y(), M(), MS)
ZM = CalcMV(Z(), M(), MS)
Print XM, YM, ZM

...

Function CalcMV(Pos() As Single, Mass() As Single, MassTotal As Single)
Dim N As Long, I As Long, S As Single
N = UBound(Pos)
For I = 1 To N
  S = S + Pos(I)*Mass(I)
Next I
CalcMV = S/MassTotal
End Function

З.Ы. В VB нет функции Input Она есть в обычном Basic, в VB надо самому что-либо подобное сделать, но лень. Пусть это будет твое д/з

2. Блин, ну тут инициализация массива переменными займет больше кода, чем само решение. Такое стыдно спрашивать.

3. В общем виде для квадратной матрицы NxN

Код: Выделить всё

Dim I As Long, ZC As Long, PS As Single
For I = 1 To N
  If Matrix(I,I) = 0 Then ZC = ZC+1
  If Matrix(N-I+1,I) > 0 Then PS = PS+Matrix(N-I+1,I)
Next I
Print ZC, PS

[Boris_BGB]

Спасибо, но мне сейчас нужны исходники на мыло. Просто я на компе где нет ВБ, а это необходимо ну просто ПОЗАРЕЗ!

[gaidar]

З.Ы. В VB нет функции Input Она есть в обычном Basic, в VB надо самому что-либо подобное сделать, но лень. Пусть это будет твое д/з

InputBox

[Boris_BGB]

Ну пжалста...!
Зачем мне код? Тут на компе ВБ нет, я не смогу отредактировать... Кинте мне плииз исходники на crow233@mail.ru. Это завтра сдавать надо!