Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
PAGE 3
ЭТ-402 Михайлов Д.В. вариант 12
«Программный элемент НАКОПЛЕНИЕ»
нет
да
нет
да
17
16
14
13
8
7
6
5
12
10
9
4
3
2
1
0
Конец
15
i=i+2
11
P
j=j+1
P=P*a(i,j)
j<=n
P=1
i=2
i=i+1
нет
нет
да
да
9
7
6
5
8
j=j+1
a(i,j)
j<=n
j=1
i<=m
i=1
m, n
Начало
4
3
2
1
0
Конец
Z
11
i=i+1
Z=0
Z=Z+A(i)*(x^(1/i))
I=1
i>n
I>n
Х, n
Начало
A(i)
I=1
i=i+1
12 1111112231512
i<=m
нет
да
Задание 1
Вычислить значение Функции
Для отладки программы значения х , n и массива А выбрать самостоятельно.
Private Sub Command1_Click()
Dim X As Single
Dim n As Integer
Dim i As Integer
Dim Y As Single
Dim Z As Single
Dim A() As Single
X = InputBox("BBEDITE X")
n = InputBox("BBEDITE n")
ReDim A(1 To n)
For i = 1 To n
A(i) = InputBox("BBEDITE A = ")
Next
Z = 0
For i = 1 To n
Z = Z + A(i) * (X ^ (1 / i))
Next
MsgBox ("Z=" & Z)
End Sub
Задание 2
Определить произведение элементов четных строк квадратной мат рицы. Для отладки программы матрицу выбрать самостоятельно.
Private Sub Command1_Click()
Dim M As Integer
Dim N As Integer
Dim P As Single
Dim A() As Single
Dim i As Integer
Dim j As Integer
M = InputBox("M=")
N = InputBox("N=")
ReDim A(1 To M, 1 To N)
For i = 1 To M
For j = 1 To N
A(i, j) = InputBox("A(" & i & "," & j & ")")
Next j
Next i
P = 1
For i = 2 To M Step 2
For j = 1 To N
P = P * A(i, j)
Next j
Next i
MsgBox ("P=" & P)
End Sub