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

Задание 1

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

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

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

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

n – целое число.

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

M – вычисляемая величина, целое число.

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

3 Разработка алгоритма

4 Разработка визуальной части проекта

На форме располагаем только командную кнопку Command1.

В свойстве Caption кнопки записываем «Вычислить».

5 Код приложения

Private Sub Command1_Click()

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

n = InputBox("n =")

If 2 * n + 1 < 0 Then

Print "M не может быть вычислена тк 2*" & n & "+1<0"

Exit Sub

End If

M = 1

For i = 2 To 2 * n + 1

M = M * i

Next

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

End Sub

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

Ручной счет:

Задание 2

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

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

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

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

K – количество строк матрицы, целое число.

M – количество столбцов матрицы, целое число.

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

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

S – сумма элементов с нечётными индексами, вещественное число.

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

где i и j – только нечётные числа.

3 Разработка алгоритма

4 Разработка визуальной части проекта

На форме располагаем только командную кнопку Command1.

В свойстве Caption кнопки записываем «Вычислить сумму».

5 Код приложения

Private Sub Command1_Click()

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

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 & ")=")

Print L7(i, j),

Next

Print

Next

S = 0

For i = 1 To K Step 2

For j = 1 To M Step 2

S = S + L7(i, j)

Next

Next

Print "Сумма эл. с нечётными индексами равна:"

Print "S = " & S

End Sub

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

Ручной счет: