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

Задание №1

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

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

Напечатать сумму произведений элементов векторов А, В размерности N.

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

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

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

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

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

A = – массив вещественных чисел,

B = – массив вещественных чисел.

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

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

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

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

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

Private Sub Command1_Click()

Dim X As Single, N As Integer, i As Integer, A() As Single, B() 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

For i = 1 To N

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

Next

Print "X=" & X

End Sub

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

Задание №2

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

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

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

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

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

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

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

W = – массив вещественных чисел.

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

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

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

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

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

Private Sub Command1_Click()

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

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

Print

For i = 1 To M

For j = 1 To N

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

Next

Next

Print "X=" & X

End Sub

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