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

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


textual

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

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



Похожие ответы
  1. Мне попалась очень интересная математическая задача, но решить ее можно только написав программу. Здесь рассматривается частный случай N=4 Чтобы понять что нам надо вычислить рассмотрим числовую последовательность 1234, 1243, ... 4321. (Это перестановки чисел 1,2,3,4) С каждой такой перестановкой связана функция. Например 1234 - sin(1sin(2sin(3sin(4x)))) 4321 - sin(4sin(3sin(2sin(1x)))) надеюсь, что понятно Требуется найти "сумму всех перестановок" при x=1 То есть надо найти сумму вида "1234" + "1243" + ... + "4321" Где вместо перестановок стоят описанные выше функции (Всего в данном случае 24 функции) Эта задача решена в приведенной ниже программе. Вопрос. Как решить эту задачу в общем случае? Я предполагал использовать рекурсию? Но кто сумеет записать СТРОКУ 13? Ребята, помогите богу математики.

  1. VB 6.0. Задания простые но не для меня 1.Вычислить и вывести среднее арифметическое значение элементов заданного массива А16 (10). 2. Вычислить и вывести среднее квадратическое нечетных элементов массива В (12). 3. Поменять местами максимальный и минимальный элементы массива L (10). Вывести исходный и преобразованный массивы.

  1. Составить программу и вычислить:; Для организации цикла при вычислении Z1 использовать оператор цикла while..do.

  1. Написать программу и вычислить: Значение X выдать с клавиатуры. c=1,2; q=7.05 Если Если X=1,2

  1. Прошу помочь, ибо не шарю вообще Задание: вычислить значение функции при А,В и С-константах (задать самостоятельно) и произвольном "х" (ввести с клавиатуры). y=(A+B)/(2*A-B)*(A+C)*sinx^2+z Про "z" ничего не сказано. Пы.сы.Сорян создал в другом разделе эту тему, просто не знал, что нужно не Basic а в VisualBasic

  1. Ребят, помогите пожалуйста!!! Не могу решить задачу Visual Basic: Вычислить:

  1. Вычислить значение выражения:

  1. Задан массив d. Составить подпрограмму для вычисления суммы трех последовательно расположенных элементов массива с номерами от k до p