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

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

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

где В - матрица размерности M*N.
Проанализировать выполнение программы на примере

Определение состава входных и выходных данных.

Входные данные:
- количество строк M матрицы B
- количество столбцов N матрицы B
- элементы матрицы B
Выходные данные:
- сумма T

Математическое описание.

M=1, 2, 3, …
N=1, 2, 3,...

1

i=i+1

да

да

нет

j<=N

B(i,j)

j=j+1

B(i,j)

M, N

i=1

Начало

Разработка схемы алгоритма.

Конец

T

j<=N

T=T+B(i,j)/(i+j)

j=j+1

нет

да

j=1

T=0

нет

i<=M

i=i+1

да

нет

i<=M

i=1

j=1

3 Разработка визуальной части.

4 Разработка кода приложения.

Private Sub Command1_Click()

Dim B() As Single, M As Integer, N As Integer, i As Integer, j As Integer, T As Single

M = Text1

N = Text2

ReDim B(M, N) As Single

For i = 1 To M

For j = 1 To N

B(i, j) = InputBox("Введите элемент матрицы B под номером " & i & "," & j)

Print B(i, j);

Next

Print

Next

S = 0

For i = 1 To M

For j = 1 To N

T = T + B(i, j) / (i + j)

Next

Next

Print "Сумма T=" & T

End Sub

5 Отладочный пример.

Дата добавления: 2015-07-11