Задание по Visual Basic, структура «Накопление»

Структура «Накопление»

Задача 1

Вычислить значение функции

где К - вектор  размерности n.  Найденное  значение    присвоить элементу вектора с индексом J.

Проанализировать выполнение программы на примере

К = {2; 4; 3; -1; 2; 1},       J=4.

I.Входные данные:

n – длина вектора, целое

j – индекс элемента вектора, которому следует присвоить значение функции, целое

k(i) – элементы вектора k, вещественное

II. Выходные данные:

k(i) – элементы полученного, вещественное

III. Математическая модель задачи:

                                              i = (1, n)

IV. Разработка алгоритма:

 

V.Кодпрограммы:

Private Sub Command1_Click()

Dim L As Single

Dim k() As Single

Dim i As Integer

Dim j As Integer

Dim n As Integer

n = InputBox("Введите длину вектора")

j = InputBox("Какому элементу следует присвоить значение функции?")

ReDim k(n)

Print "Исходный вектор:"

Print

For i = 1 To n

k(i) = InputBox("Введите значение " & i & " элемента вектора")

Print k(i);

Next

L = 1

For i = 1 To n

L = L * (k(i) / i)

Next

k(j) = L

Print

Print

Print "Поученный вектор:"

Print

For i = 1 To n

Print k(i);

Next

End Sub

Задача 2

Найти среднее арифметическое элементов  матрицы В  размерности М*М. Для отладки программы матрицу выбрать самостоятельно.

I.Входные данные:

m – размерность матрицы, целое

B(i,j) – элементы матрицы, вещественное

II. Выходные данные:

s – элементы пересчитанного вектора, вещественное

III. Математическая модель задачи:

 

S = S * B(i,j) / 2          i = 1,m    j = 1,m

IV. Разработка алгоритма:

 

V.Код программы:

Private Sub Command1_Click()

Dim B() As Single

Dim m As Integer

Dim n As Integer

Dim i As Integer

Dim j As Integer

Dim s As Single

m = InputBox("Введите размерность матрицы", "Накопление (2)")

ReDim B(m, m)

Print "Исходная матрица:"

Print

For i = 1 To m

For j = 1 To m

B(i, j) = InputBox("Введите значение элемента " & i & " столбца " & j & " строки", "Накопление (2)")