Вычислить скалярное произведение двух десятимерных векторов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д