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

5

24 вариант

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

Задание 1

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

   1. Выбор математической модели

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

S=S*ai*bi*ci*di

2. Входные данные: m, A, B, C, D - вещественные

3. Выходные данные: S - вещественные

Задание 2

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

   1. Выбор математической модели

Вычислить произведение элементов второй строки и третьего столбца матрицы В размерности m*n. Проанализировать выполнение программы на примере

B=

2. Входные данные: m, n, B - вещественные

3. Выходные данные: P - вещественные

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

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

Private Sub Command 1_Click()

Dim i As Integer

Dim m As Integer

Dim A() As Single

Dim B() As Single

Dim C() As Single

Dim D() As Single

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

ReDim A(l To m)

ReDim B(l To m)

ReDim C(l To m)

ReDim D(l To m)

For i = 1 To m

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

Next

For i = 1 To m

B(i) = InputBox("Введите массив В")

Next

For i = 1 To m

C(i) = InputBox("Введите массив С")

Next

For i = 1 To m

D(i) = InputBox("Введите массив D")

Next

S = 0

For i = 1 To m

S = S + (A(i) * B(i) * C(i) * D(i))

Next

Print "S=" & S

End Sub

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

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

Dim S2 As Single

Dim S3 As Single

Dim S As Single

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

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

ReDim A(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

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

Next

Next

i = 2

S2 = 1

For j = 1 To n

S2 = S2 * A(i, j)

Next

j = 3

S3 = 1

For i = 1 To m

S3 = S3 * A(i, j)

Next

S = S2 * S3 / A(2, 3)

Print "S=" & S

End Sub

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