Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
PAGE 4
Кулув Т.В. В-405. Вариант №10
Программный элемент «НАКОПЛЕНИЕ»
1. Вычислить значение
x=[x(i)], i=1;K - матрица вещественных чисел
y=[y(i)], i=1;K - матрица вещественных чисел
Private Sub Command1_Click()
Dim x() As Single
Dim y() As Single
Dim N As Single
Dim i As Integer
Dim K As Integer
N = 1
K = InputBox("K=")
ReDim x(1 To K)
ReDim y(1 To K)
For i = 1 To K
x(i) = InputBox("x(" & i & ")")
Next
For i = 1 To K
y(i) = InputBox("y(" & i & ")")
Next
For i = 1 To K
N = N * (x(i) + y(i))
Next
Print "N=" & N
For i = 1 To K
Print x(i);
Next
For i = 1 To K
Print y(i);
Next
End Sub
2. Найти сумму элементов нечетных столбцов матрицы S8 размернос ти М*N. Проанализировать выполнение программы на примере
S8=
B=[b(i,j)], i=1;m, j=1,n - вещественные
Private Sub Command1_Click()
Dim M As Integer
Dim N As Integer
Dim S As Single
Dim S8() As Single
Dim i As Integer
Dim j As Integer
M = InputBox("M=")
N = InputBox("N=")
ReDim S8(1 To M, 1 To N)
For i = 1 To M
For j = 1 To N
S8(i, j) = InputBox("S8(" & i & "," & j & ")")
Next j
Next i
S = 0
For i = 1 To M
For j = 1 To N Step 2
S = S + S8(i, j)
Next j
Next i
Print "S=" & Str(S)
For i = 1 To M
For j = 1 To N
Print S8(i, j);
Next j
Next i
End Sub