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

Задача №1

1. Постановка задачи.

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

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

,

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

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

А={2; -6; 0; 4; -4; -2; 2}

1.2 Состав входных и выходных переменных

Входные переменные:

N – переменная целого типа,

A = {a_i}, где – массив вещественных чисел.

Выходные переменные:

W – переменная вещественного типа.

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

3. Схема алгоритма.

4. Код программы.

Private Sub Command1_Click()

Dim A() As Single, i As Integer, N As Integer, W As Single

N = InputBox("N=")

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

6. Отладка программы.

Задание №2

1. Постановка задачи.

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

Вычислить произведение абсолютных значений элементов прямо­угольной матрицы.

Для отладки программы контрольный вариант выбрать самостоя­тельно.

1.2 Состав входных и выходных переменных

Входные переменные:

M – переменная целого типа,

N – переменная целого типа,

A = {a_ij}, где – массив вещественных чисел.

Выходные переменные:

P – переменная вещественного типа

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

3. Схема алгоритма.

4. Код программы.

Private Sub Command1_Click()

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

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

P = 1

For i = 1 To M

For j = 1 To N

P = P * Abs(A(i, j))

Next

Next

Print "Произведение абсолютных значений элементов = " & P

End Sub

6. Отладка программы.