Программный элемент накопление / 10 (3)

ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №7

«ПРОГРАММНЫЙ ЭЛЕМЕНТ НАКОПЛЕНИЕ»

ВАРИАНТ 10

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

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

где X и Y – векторы одинаковой размерности.

Для отладки программы значения K, X и Y выбрать произвольно.

1.2 Описание постановки задачи

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

Входные данные: k – переменная целого типа, {X} – массив вещественных чисел, {Y} – массив вещественных чисел.

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

1.3 Математическое описание задачи:

1.4 Схема алгоритма решения задачи:

1.5 Листинг кода программы:

Private Sub Command1_Click()

Dim k As Integer, X() As Single, Y() As Single, i As Integer, M As Single

k = InputBox("k=")

ReDim X(1 To k), Y(1 To k)

Print "{X}=";

For i = 1 To k

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

Print X(i),

Next

Print

Print "{Y}=";

For i = 1 To k

Y(i) = InputBox("Y(" & i & ")=")

Print Y(i),

Next

Print

N = 1

For i = 1 To k

N = N * (X(i) + Y(i))

Next

Print "N=" & N

End Sub

1.6 Выполнение проекта:

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

Найти сумму элементов нечётных столбцов матрицы S8 размерности M×N. Проанализировать выполнение программы на примере

2.2 Описание постановки задачи

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

Входные данные: M – переменная целого типа, N – переменная целого типа, {S8} – массив вещественных чисел.

Выходные данные: S – переменная вещественного типа.

2.3 Математическое описание задачи:

2.4 Схема алгоритма решения задачи:

2.5 Листинг кода программы:

Private Sub Command1_Click()

Dim N As Integer, M As Integer, i As Integer, j As Integer, S8() As Single, S As Single

M = InputBox("M=")

N = InputBox("N=")

ReDim S8(1 To M, 1 To N)

For i = 1 To M

For j = 1 To N

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

Print S8(i, j);

Next

Print

Next

S = 0

For j = 1 To N Step 2

For i = 1 To M

S = S + S8(i, j)

Next

Next

Print "S=" & S

End Sub

2.6 Выполнение проекта: