Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Чеченин Д.О. ЭТ-401 Вариант 24
Программный элемент «ЗАПОЛНЕНИЕ»
10
Конец
9
x=0
нет
да
12
8
Конец
6
7
Q(2,j)
x<=2 pi
3
i=1
7
x=x+ pi/6
6
n=n+1
C(i)
10
5
j=j+1
11
С(i)=cos2x
0
Начало
2
x=0
12
i=i+1
4
8
Q(i,j)=Q(i,j)+10
Q(i,j)
j=1
2
i=1
нет
Q(2,j)
нет
да
4
i<=13
1
pi=3.14
да
5
j<=L
нет
да
3
i<=M
1
0
M,L
Начало
9
Заполнись одномерный массив С размерности 13 значениями функции Cos 2X, где Х меняется от О до 2 с шагом /6.
Полученный массив напечатать в столбец.
Private Sub Command1_Click()
Dim x As Single
Dim i As Integer
Dim C() As Single
ReDim C(1 To 13)
Const pi As Single = 3.14
i = 1
Do While i <= 13
C(i) = Cos(x) ^ 2
i = i + 1
x = x + pi / 6
If x > 2 * pi Then
x = 0
End If
Loop
For i = 1 To 13
Print C(i);
Next
End Sub
Пересчитать элементы матрицы Q по правилу:
Qij = |Qij| + 10
Для контроля напечатать вторую строку исходной матрицы и вновь полученную матрицу. Матрицу Q задать самостоятельно.
Private Sub Command1_Click()
Dim M As Integer
Dim L As Integer
Dim i As Integer
Dim j As Integer
Dim Q() As Single
M = InputBox("Введите M")
L = InputBox("Введите L")
ReDim Q(1 To M, 1 To L)
For i = 1 To M
For j = 1 To L
Q(i, j) = InputBox("Введите элементы массива ")
Next
Next
i = 2
For j = 1 To L
Print Q(2, j);
Next
For i = 1 To M
For j = 1 To L
Q(i, j) = Abs(Q(i, j)) + 10
Next
Next
i = 2
For j = 1 To L
Print Q(2, j);
Next
End Sub