"Программный элемент НАКОПЛЕНИЕ"

Вариант 17

1. Определить произведение абсолютных значений элементов одноименного массива Х размерности J.

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

Х={2,7; 3,2; -6,3; 2; -6; 0,3}

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

X{} – одномерный массив чисел вещественного типа

J – целые числа

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

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

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

P = 1

Для всех i = от 1 до J

P = P * Abs(X(i))

Следующее i

Алгоритм программы

Программный код

Private Sub Command1_Click()

Dim X() As Single, J As Integer, i As Integer, P As Single

J = InputBox("J=")

ReDim X(1 To J)

For i = 1 To J

X(i) = InputBox("X(" & i & ")=")

Print X(i);

Next

Print

P = 1

For i = 1 To J

P = P * Abs(X(i))

Next

Print "P = " & P

End Sub

Окно программы

2. Найти сумму элементов последних К столбцов матрицы Z размерности M*N.

Для отладки программы значения К, М, N и матрицу Z выбрать са­мостоятельно.

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

Z{} – матрица чисел вещественного типа

K, M, N – целые числа

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

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

K – целое число

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

K = InputBox("K = ")

S = 0

Для всех i = 1 … M и j = N - K + 1 … N

S = S + Z(i, j)

Следующее i, следующее j

Алгоритм программы

Программный код

Private Sub Command1_Click()

Dim Z() As Single, i As Integer, j As Integer, M As Integer, N As Integer, K As Integer

M = InputBox("M=")

N = InputBox("N=")

ReDim Z(1 To M, 1 To N)

For i = 1 To M

For j = 1 To N

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

Print Z(i, j);

Next

Print

Next

K = InputBox("K = ")

S = 0

For i = 1 To M

For j = N - K + 1 To N

S = S + Z(i, j)

Next

Next

Print "S = " & S & ", K = " & K

End Sub

Окно программы

4