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

4

Фомичев П.А. ЛТ-403 Вариант 28

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

ЗАДАНИЕ 1

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

Вычислить и напечатать значение функции:

,

где N - размерность вектора Z и Q.

Для отладки программы контрольный вариант выбрать самостоя­тельно.

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

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

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

0

1

2

4

5

да

нет

7

3

6

9

8

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

Private Sub Command1_Click()

Dim Z() As Single

Dim Q() As Single

Dim G As Single

Dim i As Integer

Dim n As Integer

n = InputBox("BBEDITE n")

ReDim Z(1 To n)

ReDim Q(1 To n)

For i = 1 To n

Z(i) = InputBox("BBEDITE Z")

Q(i) = InputBox("BBEDITE Q")

G = 0

G = G + ((Z(i)) ^ 3 + (Q(i)) ^ 3)

Next

Print "G=" & G

End Sub

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

Z={2; -6; 0; 4; -4; -2; 2}

Q={3; 9; 1; -9; 5; -7; 1}

ЗАДАНИЕ 2

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

Определить произведение элементов четных столбцов произволь­ной матрицы. Проанализировать выполнение программы на примере:

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

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

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim m As Integer

Dim n As Integer

Dim A() As Single

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

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

ReDim A(1 To m, 1 To n)

P = 1

For i = 1 To m

For j = 1 To n

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

Next

Next

For i = 1 To m

For j = 2 To n Step 2

P = P * A(i, j)

Next

Next

Print "P=" & P

End Sub

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