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

4

Мурашев В. В. ЛТ-403 Вариант 23

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

ЗАДАНИЕ 1

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

Напечатать сумму произведений элементов векторов А, В размер­ности N.

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

A={2; -6,3; 4,5}; B={1; -1; 2};

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

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

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

0

1

2

3

Pa=Pa*ai

4

5

6

да

нет

7

8

9

10

11

13

да

нет

Pb=Pb*bi

12

16

14

15

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

Private Sub Command1_Click()

Dim A() As Single

Dim B() As Single

Dim Pa As Single

Dim Pb As Single

Dim S As Single

Dim i As Integer

Dim n As Integer

n = InputBox("BBEDITE n")

ReDim A(1 To n)

ReDim B(1 To n)

Pa = 1

For i = 1 To n

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

Pa = Pa * A(i)

Next

Pb = 1

For i = 1 To n

B(i) = InputBox("BBEDITE B")

Pb = Pb * B(i)

Next

S = Pa + Pb

Print "S=" & S

End Sub

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

ЗАДАНИЕ 2

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

Вычислить сумму абсолютных значений элементов матрицы

W=

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)

S = 0

For i = 1 To m

For j = 1 To n

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

S = S + Abs(W(i, j))

Next

Next

Print "S=" & S

End Sub

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