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

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

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

ВАРИАНТ 15

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

Найти сумму элементов с нечётными индексами одномерного массива M9 размерности K.

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

M9 = {-3; 6; -4; 0; 2; -11; 8}

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

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

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

{M9} – массив вещественных чисел, K – переменная целого типа.

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

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

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

где i = 1, 3, 5, … K

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

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

Private Sub Command1_Click()

Dim M9() As Single, i As Integer, K As Integer, S As Single

K = InputBox("Введите размерность массива")

ReDim M9(1 To K)

Print "{M9}=";

For i = 1 To K

M9(i) = InputBox("M9(" & i & ")=")

Print M9(i);

Next

Print

Print

For i = 1 To K Step 2

S = S + M9(i)

Next

Print "Сумма нечётных элементов S=" & S

End Sub

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

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

Определить произведение элементов K-й строки матрицы P размерности M × N. Для отладки программы значения K, M, N и матрицы P выбрать самостоятельно.

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

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

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

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

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

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

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

где i = 1, 2, … N.

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

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

Private Sub Command1_Click()

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

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

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

ReDim P(1 To M, 1 To N)

Print "{P}="

For i = 1 To M

For j = 1 To N

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

Print P(i, j),

Next

Print

Next

Print

K = InputBox("Введите номер строки")

Pr = 1

For i = 1 To N

Pr = Pr * P(K, i)

Next

Print "Произведение " & K & "-й строки матрицы Pr=" & Pr

End Sub

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