Программный элемент накопление / Лр накопление (3)

1.1) Постановка задачи

1.1.1) Словесное описание задачи

Вычислить и напечатать значение суммы:

где N – размерность вектора X.

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

X = {1; 3; 5; 7; 9}.

1.1.2) Состав входных и выходных данных

Входные данные: N – переменная целого типа, X={x_i}, i= – массив вещественных чисел.

Выходные данные: S – переменная вещественного типа.

1.2) Математическая модель задачи

где 1 ≤ i ≤ N с шагом 1.

1.3) Схема алгоритма

1.4) Визуальная часть проекта

1.5) Код приложения Private Sub Command1_Click()

Dim N As Integer, X() As Single, S As Single, k As Integer

N = InputBox("Введите размерность одномерного массива X")

ReDim X(1 To N)

Print "X=";

For k = 1 To N

X(k) = InputBox("Введите X(" & k & ")")

Print X(k) & " ";

Next

Print

For k = 1 To N

S = S + (-1 ^ (k - 1)) * X(k) ^ k / k

Next

Print "S=" & S

End Sub

1.6) Отладка программы

2.1) Постановка задачи

2.1.1) Словесное описание задачи

Вычислить среднее геометрическое элементов последних K столбцов прямоугольной матрицы размерности M×N.

Для отладки программы принять M=2; N=5; K=3. Значения элементов матрицы выбрать самостоятельно.

2.1.2) Состав входных и выходных данных

Входные данные: M – переменная целого типа, N – переменная целого типа, A={a_ij}, i= ; j= – массив вещественных чисел, K – переменная целого типа.

Выходные данные: Sg – переменная вещественного типа.

2.2) Математическая модель задачи

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

2.3) Схема алгоритма

2.4) Визуальная часть проекта

2.5) Код приложения

Private Sub Command1_Click()

Dim N As Integer, M As Integer, Sg As Single, i As Integer, j As Integer, A() As Single, K As Integer

M = InputBox("M=")

N = InputBox("N=")

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

K = InputBox("K=")

Sg = 1

For i = 1 To M

For j = K To N

Sg = Sg * A(i, j)

Next

Next

Sg = Sg ^ (1 / (M * K))

Print "Ср. геометрическое последних " & K & " ст-ов A=" & Sg

End Sub

2.6) Отладка программы