накопление

Буслаев Василий УПП-401 Лабораторная работа №4 вариант 4 « накопление »

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

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

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

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

Входные данные:

J – целого типа

X() – вещественного типа

Выходные данные:

X(), p – вещественного типа

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

p=1

i=1…J

p=p*abs(X(i))

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

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

Private Sub Command1_Click()

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

J = InputBox("J=")

ReDim X(J)

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. Постановка задачи

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

Для отладки программы значения К, М, N и матрицу Z выбрать са­мостоятельно.

Входные данные:

M, N, K – целого типа

Z() – вещественного типа

Выходные данные:

Z(), sum – вещественного типа

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

sum=0

i=1… m

j=1… n-K+1

sum=sum+Z(i,j)

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

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

Private Sub Command1_Click()

Dim Z() As Single, m As Integer, n As Integer, i As Integer, j As Integer, K As Integer

m = InputBox("m=")

n = InputBox("n=")

K = InputBox("K=")

ReDim Z(m, n)

For i = 1 To m

For j = 1 To n

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

Print Z(i, j);

Next

Print

Next

Sum = 0

For i = 1 To m

For j = n - K + 1 To n

Sum = Sum + Z(i, j)

Next

Next

Print "K=" & K & "sum=" & Sum

End Sub

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