Программный элемент накопление / 7 (2)

Задание №1

1.Постановка задачи

1.1 Словесное описание задачи

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

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

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

1.2. Состав входных и выходных переменных

Входные переменные:

J – переменная целого типа,

X= – массив вещественных чисел.

Выходные переменные:

P – переменная вещественного типа.

2.Математическая модель

3. Схема алгоритмa

4. Код программы

Private Sub Command1_Click()

Dim P As Single, X() As Single, J As Integer, i As Integer

J = InputBox("J=")

ReDim X(1 To J)

Print "X=";

For i = 1 To J

X(i) = InputBox("X(" & i & ")=")

Print X(i);

Next

Print

P = 1

For i = 1 To J

P = P * Abs(X(i))

Next

Print "P=" & P

End Sub

5. Отладка программы

Задание №2

1.Постановка задачи

1.1Словесное описание задачи

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

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

1.2. Состав входных и выходных переменных

Входные переменные:

M – переменная целого типа,

N – переменная целого типа,

Z= – массив вещественных чисел,

K – переменная целого типа.

Выходные переменные:

S – переменная вещественного типа.

2.Математическая модель

3.Схема алгоритма

4. Код программы

Private Sub Command1_Click()

Dim M As Integer, N As Integer, Z() As Single, K As Integer, i As Integer, j As Integer

M = InputBox("M=")

N = InputBox("N=")

ReDim Z(1 To M, 1 To N)

Print "Z="

For i = 1 To M

For j = 1 To N

Z(i, j) = InputBox("Z(" & i & ", " & j & ")=")

Print Z(i, j),

Next

Print

Next

K = InputBox("K=")

For j = N - K + 1 To N

For i = 1 To M

S = S + Z(i, j)

Next

Next

Print "Сумма " & K & " последних столбцов " & S

End Sub

5. Отладка программы