Программный элемент накопление / 17

Задание №1

1) Постановка задачи Вычислить значение функции где N – размерность вектора А. Проанализировать выполнение программы на примере:

А = {2; –6; 0; 4; –4; –2; 2}.

Входные данные: N – целого типа; {A} – вещественного типа. Выходные данные: W – вещественного типа.

2) Математическое описание где 1 ≤ i ≤ N с шагом 1.

3) Разработка алгоритма

4) Код приложения Private Sub Command1_Click() Dim N As Integer, A() As Single, i As Integer, S As Single N = InputBox("N=", "Input") ReDim A(1 To N) Print "{A}="; For i = 1 To N A(i) = InputBox("A(" & i & ")=") Print A(i) & " "; Next Print For i = 1 To N W = W + A(i) ^ 2 / 2 Next Print "W=" & W End Sub

5) Отладка кода приложения

6) Ручной расчёт А = {2; –6; 0; 4; –4; –2; 2}

Задание №2

1) Постановка задачи Вычислить произведение и количество элементов прямоугольной матрицы в четных строках. Входные данные: M, N – целого типа; {A} – вещественного типа. Выходные данные: K – целого типа; P – вещественного типа.

2) Математическое описание P=1

где 2 ≤ i ≤ M с шагом 2; 1 ≤ j ≤ N с шагом 1.

3) Разработка алгоритма

4) Код приложения Private Sub Command1_Click() Dim M As Integer, N As Integer, i As Integer, j As Integer, A() As Single, P As Single, K As Integer M = InputBox("M=", "Input") N = InputBox("N=", "Input") ReDim A(1 To M, 1 To N) Print "{A}=" For i = 1 To M For j = 1 To N A(i, j) = InputBox("A(" & i & ", " & j & ")=") Print A(i, j), Next Print Next P = 1 For i = 2 To M Step 2 For j = 1 To N P = P * A(i, j) K = K + 1 Next Next Print "Произведение " & K & " элементов чётных строк=" & P End Sub

5) Отладка кода приложения

6) Ручной расчёт P=5*(-6)*(-3)*1*3*6*1*5=8100