Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
PAGE 1
В-407 Брель И.К. 1 вариант
«Программный элемент НАКОПЛЕНИЕ»
Y
10
Sg
8
7
6
5
17
j=j+1
i<=m
a(i,j)
i=1
j<=n
j=1
16
Конец
15
m, n
P=P*A(i,j)
j<=n
4
3
2
1
Sg=P/(m*n)
8
P=1
нет
0
да
14
13
j=1
Начало
i<=m
i=i+1
Y=0
k
Y= Y+(A(i)/(i+k))
i=i+1
i<=n
A(i)
i=i+1
i<=n
n
Начало
12
11
да
нет
10
9
i=i+1
j=j+1
Конец
0
1
2
5
3
4
6
7
8
9
11
да
нет
нет
да
Задание 1
Вычислить значение у = ,
где А - одномерный массив размерности n. Проанализировать выполнение программы на примере:
k = 3, А = {2,7; 3; -6; 2; 4}
Задание 2
Вычислить среднее геометрическое элементов матрицы B размерности m*n.
Для отладки программы матрицу выбрать са мостоятельно.
P=P*A(i,j)
Sg=P/(m*n)
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim k As Single
Dim A() As Single
n = InputBox("Введите размерность массива")
ReDim A(1 To n)
For i = 1 To n
A(i) = InputBox("Введите массив")
Next
k = InputBox("Введите k")
Y = 0
For i = 1 To n
Y = Y + (A(i) / (i + k))
Next
Print "Y=" & Y
End Sub
Private Sub Command1_Click()
Dim P As Single
Dim Sg As Single
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim A() 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
P = 1
For i = 1 To m
For j = 1 To n
P = P * A(i, j)
Next
Next
Sg = P / (m * n)
Print "Sg=" & Sg
End Sub