Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Кузнецова Е.Ю. В-407 Вариант 9
Программный элемент «ЗАПОЛНЕНИЕ»
SG
11
10
x=0
нет
да
9
x<=2 pi
3
n=1
8
x=x+ pi/12
7
n=n+1
6
SG(n,2)=cosx
5
6
4
SG(n,1)=sinx
0
Начало
2
x=0
12
Ri=Ri/ i
Конец
2
i=1
13
Конец
нет
да
4
n<=m
1
pi=3.14
нет
да
5
3
1
0
i=i+1
i<=N
R,N
Начало
R
Пересчитать одномерный массив R размерности n по правилу:
Ri=Ri/ i
Проанализировать выполнение программы на примере:
Р={10; 20; 30; 40; 50}
Математическая модель:R(i)=R(i)/i
Private Sub Command1_Click()
Dim N As Integer
i As Integer
R() As Single
N = InputBox(“Введите размерность вектора R”)
ReDim R(1 To N)
For i = 1 To N
R (i) = InputBox(“Введите элементы массива ”)
Next
For i = 1 To N
R (i) = R(i)/i
Next
For i = 1 To N
Print R(i)
Next
End Sub
Заполнить матрицу SC размерности 25*2 значениями Функции SinX
(первый столбец) , CosX (второй столбец) . Х меняется от 0 до 2 с шагом /12.
Полученную матрицу напечатать в два столбца.
Математическая модель:
Private Sub Command1_Click()
Dim x As Single
Dim n As Integer
Dim m As Integer
Dim SG(1 To 25, 1 To 2) As Single
Const pi As Single = 3.14
n = 1
Do While n <= 25
SG(n, 1) = Sin(x)
SG(n, 2) = Cos(x)
n = n + 1
x = x + pi / 12
If x > 2 * pi Then
x = 0
End If
Loop
For n = 1 To 25
For m = 1 To 2
Print SG(n, m);
Next
Next
End Sub