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

Задание №1

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

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

Напечатать произведение сумм соответсвтующих элементов векторов A и B размерности N.

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

A={2; -6,3; 4,5}; B={1; -1; 2}.

1.2. Состав входных и выходных данных:

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

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

A – массив данных вещественного типа,

B – массив данных вещественного типа.

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

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

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

где i=1, 2, 3 … N.

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

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

Private Sub Command1_Click()

Dim N As Integer, A() As Single, B() As Single, i As Integer, p As Single

N = InputBox("N=")

ReDim A(1 To N), B(1 To N)

Print "A=";

For i = 1 To N

A(i) = InputBox("A(" & i & ")=")

Print A(i) & " ";

Next

Print

Print "B=";

For i = 1 To N

B(i) = InputBox("B(" & i & ")=")

Print B(i) & " ";

Next

Print

p = 1

For i = 1 To m

p = p * (A(i) + B(i))

Next

Print "p=" & p

End Sub

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

Задание №2

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

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

Вычислить сумму абсолютных элементов матрицы

1.2. Состав входных и выходных данных:

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

W – массив данных вещественного типа,

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

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

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

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

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

где i=1, 2, 3 … M; j=1, 2, 3 … N.

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

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

Private Sub Command1_Click()

Dim i As Integer, j As Integer, W() As Single, M As Integer, N As Integer, S As Single

M = InputBox("M=")

N = InputBox("N=")

ReDim W(1 To M, 1 To N)

Print "W="

For i = 1 To M

For j = 1 To N

W(i, j) = InputBox("W(" & i & ", " & j & ")=")

Print W(i, j),

Next

Print

Next

For i = 1 To M

For j = 1 To N

S = S + Abs(W(i, j))

Next

Next

Print "S=" & S

End Sub

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