Лабораторные по Информатике / Лабораторная работа Накопление 4 / Вариант 17

4

Раздобурдин Р. В-407 Вариант 17

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

ЗАДАНИЕ 1

1. Математическое описание

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

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

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

1. Входные данные: {X}; J – вещественного типа

2. Выходные данные: P – вещественного типа

2. Алгоритмизация

0

1

2

3

7

4

да

5

6

нет

9

8

3. Программирование

Private Sub Command1_Click()

Dim X() As Single

Dim i As Integer

Dim P As Single

Dim j As Single

j = InputBox("BBEDITE J")

ReDim X(1 To j)

P = 1

For i = 1 To j

X(i) = InputBox("BBEDITE X")

P = P * Abs(X(i))

Next

Print "P=" & P

End Sub

4. Отладочный пример

ЗАДАНИЕ 2

2. Математическое описание

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

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

2. Алгоритмизация

2. Программирование

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim m As Integer

Dim n As Integer

Dim Z() As Single

Dim S As Single

Dim K As Single

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

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

ReDim Z(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

Z(i, j) = InputBox("Введите массив ")

Next

Next

S = 0

K = InputBox("Введите K")

For i = 1 To m

For j = n - K + 1 To n

S = S + Z(i, j)

Next

Next

Print "S=" & S

End Sub

2. Отладочный пример

, K=2