Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
1. Заполнить одномерный массив М размерности K так, чтобы значе ния каждого элемента было на единицу меньше значения его ин декса.
Для отладки программы принять K=5.
M(i)=i-1
Private Sub Command1_Click()
Dim i As Integer
Dim K As Integer
Dim L() As Single
K = Val(InputBox("K="))
ReDim L(1 To K)
For i = 1 To K
L(i) = i - 1
Next i
For i = 1 To K
Print L(i);
Next i
End Sub
2. Пересчитать значения элементов матрицы S размерности 4*m по правилу:
Sij =Sij /(i+j)
Исходный и полученный массивы напечатать.
Проанализировать выполнение программы на самостоятельно выб ранном контрольном примере.
Sij =Sij /(i+j)
S=[s(i,j)], i=1…4, j=1…m – массив вещественных чисел
T=[t(i,j)], i=1…4, j=1…m – массив вещественных чисел
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim S() As Single
Dim T() As Single
m = Val(InputBox("m="))
ReDim S(1 To 4, 1 To m)
ReDim T(1 To 4, 1 To m)
For i = 1 To 4
For j = 1 To m
S(i, j) = Val(InputBox("S(" & i & "," & j & ")="))
Next j
Next i
For i = 1 To 4
For j = 1 To m
T(i, j) = S(i, j)
Next j
Next i
For i = 1 To 4
For j = 1 To m
S(i, j) = S(i, j) / (i + j)
Next j
Next i
Print "Исходная матрица:"
For i = 1 To 4
For j = 1 To m
Print T(i, j);
Next j
Next i
Print "Полученная матрица:"
For i = 1 To 4
For j = 1 To m
Print S(i, j);
Next j
Next i
End Sub