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

Задание №1

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

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

Вычислить значение величины M=(2n+1)!

Проанализировать выполнение программы на примере n=3.

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

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

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

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

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

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

M=(2n+1)!

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

4. Код приложения:

Private Sub Command1_Click()

Dim M As Single, n As Integer, i As Integer

n = InputBox("n=")

M = 1

i = 2

Do While i <= 2 * n - 1

M = M * i

i = i + 1

Loop

Print "M=" & M & " при n=" & n

End Sub

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

Задание №2

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

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

Найти сумму S элементов матрицы L7 размерности K×M. Найденное значение присвоить элементу второй строки третьего столбца матрицы.

Проанализировать выполнение программы на примере K=3, M=4.

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

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

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

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

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

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

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

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

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

4. Код приложения:

Private Sub Command1_Click()

Dim K As Integer, M As Integer, L7() As Single, S As Single, i As Integer, j As Integer

K = InputBox("K=")

M = InputBox("M=")

ReDim L7(1 To K, 1 To M)

For i = 1 To K

For j = 1 To M

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

Next

Next

S = 0

For i = 1 To K

For j = 1 To M

S = S + L7(i, j)

Next

Next

L7(2, 3) = S

Print "L7="

For i = 1 To K

For j = 1 To M

Print L7(i, j),

Next

Print

Next

End Sub

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