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

Задание №1

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

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

Вычислить значение суммы целых чисел от 1 до N. Для отладки программы значение N выбрать самостоятельно.

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

Входные переменные: N – переменная целого типа.

Выходные переменные: S – переменная целого типа.

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

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

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

Private Sub Command1_Click()

Dim N As Integer, i As Integer, S As Integer

N = InputBox("N=")

For i = 1 To N

S = S + i

Next

Print "Сумма " & N & " целых чисел равна " & S

End Sub

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

Задание №2

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

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

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

Найденное значение присвоить первому элементу матрицы

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

Входные переменные: m – переменная целого типа, n – переменная целого типа, V= – массив вещественных чисел.

Выходные переменные: V= – массив вещественных чисел.

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

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

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

Private Sub Command1_Click()

Dim m As Integer, n As Integer, V() As Single, P As Single, i As Integer, j As Integer

m = InputBox("Введите количество строк")

n = InputBox("Введите количество столбцов")

ReDim V(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

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

Print V(i, j),

Next

Print

Next

Print

P = 1

For i = 1 To m

For j = 1 To n

P = P * Abs(V(i, j))

Next

Next

V(1, 1) = P

For i = 1 To m

For j = 1 To n

Print V(i, j),

Next

Print

Next

End Sub

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