Вычислить скалярное произведение двух десятимерных векторов - VB

Узнай цену своей работы

Формулировка задачи:

Вычислить скалярное произведение двух десятимерных векторов X и Y.

Решение задачи: «Вычислить скалярное произведение двух десятимерных векторов»

textual
Листинг программы
Dim x(1 To 10), y(1 To 10), p As Integer
Dim s As String
List1.Clear
Randomize
List1.AddItem " x   y  x*y"
For i = 1 To 10
 x(i) = Int(Rnd(1) * 10 - 5): y(i) = Int(Rnd(1) * 10 - 5)
 s = Str(x(i)) & " " & Str(y(i)) & " " & Str(x(i) * y(i))
 List1.AddItem s
 p = p + x(i) * y(i)
Next i
s = "ïðîèçâ=" & p
List1.AddItem s

Оцени полезность:

15   голосов , оценка 4 из 5
Похожие ответы