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

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

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

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

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.000 из 5


СОХРАНИТЬ ССЫЛКУ