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

Задание №1

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

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

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

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

Проанализировать выполнение программы на примере вектора: А={2; -6; 0; 4; -4; -2; 2}

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

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

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

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

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

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

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

Private Sub Command1_Click()

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

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

i = 1

Do While i <= N

W = W + A(i) ^ 2 / 2

i = i + 1

Loop

Print "W = " & W

End Sub

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

Задание №2

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

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

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

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

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

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

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

Private Sub Command1_Click()

Dim A() As Single, P As Single, i As Integer, m As Integer, j As Single, n 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 = " & P

End Sub

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