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

4

Вертегел В. ЛТ-403 Вариант 27

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

ЗАДАНИЕ 1

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

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

,

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

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

А={2; -6; О; 4; -4; -2; 2}

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

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

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

0

1

2

4

5

да

нет

6

3

7

да

нет

9

8

11

10

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

Private Sub Command1_Click()

Dim A() As Single

Dim W As Single

Dim i As Integer

Dim n As Integer

n = InputBox("BBEDITE n")

ReDim A(1 To n)

For i = 1 To n

A(i) = InputBox("BBEDITE A")

Next

W = 0

For i = 1 To n

W = W + (A(i)) ^ 2 / 2

Next

Print "W=" & W

End Sub

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

ЗАДАНИЕ 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 W() As Single

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

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

ReDim W(1 To m, 1 To n)

P = 1

For i = 1 To m

For j = 1 To n

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

P = P *Abs(W(i, j))

Next

Next

Print "P=" & P

End Sub

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

W=