Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
4. Вычислить среднее арифметическое элементов с нечетными индексами одномерного массива Х размерности L. Проанализировать выполнение программы на примере:
Private Sub Command1_Click()
Dim X() As Single
Dim L As Integer
Dim i As Integer
Dim k As Integer
Dim n As Integer
Dim S1 As Single
Dim S As Single
L = InputBox("BBEDITE L")
ReDim X(1 To L)
For i = 1 To L
X(i) = InputBox("BBEDITE X")
Next
S1 = 0
n = 0
For i = 1 To L Step 2
S1 = S1 + X(i)
n = n + 1
Next
S = S1 / n
Print "S=" & S
End Sub
4. Вычислить произведение элементов на главной диагонали квадратной матрицы В размерности N. Для отладки программы контрольный вариант выбрать самостоятельно.
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim B() As Single
Dim P As Single
n = InputBox("Введите размерность массива ")
ReDim B(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
B(i, j) = InputBox("Введите массив")
Next
Next
P = 1
For i = 1 To n
j = i
P = P * B(i, j)
Next
B(n, n) = P
MsgBox ("P=" & P)
End Sub
5. Определить и напечатать индексы наибольшего и наименьшего элементов одномерного массива P размерности К. Найденные элементы поменять местами.
Private Sub Command1_Click()
Dim i As Integer
Dim K As Integer
Dim P() As Single
Dim Pmax As Single
Dim Pmin As Single
Dim index1 As Integer
Dim index2 As Integer
K = InputBox("Введите размерность массива ")
ReDim P(1 To K)
For i = 1 To K
P(i) = InputBox("Введите массив")
Next
Pmax = P(1)
For i = 1 To K
If Pmax < P(i) Then
Pmax = P(i)
index1 = i
End If
Next
Pmin = P(1)
For i = 1 To K
If Pmin > P(i) Then
Pmin = P(i)
index2 = i
End If
Next
P(index2) = Pmax
P(index1) = Pmin
Print ("Index max=" & index1)
Print ("Index min=" & index2) End Sub
5. Напечатать индекс строки минимального элемента L-го столбца матрицы Х размерности М*N.
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim M As Integer
Dim N As Integer
Dim L As Integer
Dim P() As Single
Dim Pmin As Single
Dim index As Integer
M = InputBox("BBEDITE M")
N = InputBox("BBEDITE N")
L = InputBox("BBEDITE L")
ReDim P(1 To M, 1 To N)
For i = 1 To M
For j = 1 To N
P(i, j) = InputBox("ВВЕДИТЕ МАССИВ")
Next
Next
Pmin = P(1, L)
For i = 1 To M
If Pmin > P(i, L) Then
Pmin = P(i, L)
index = i
End If
Next
Print "L=" & L; Tab; "Index min i=" & index
End Sub
5. Определить наибольший из элементов с четными индексами одномерного массива S размерности N. Поменять местами найденный и последний элемент массива. Проанализировать выполнение программы на примере: S={2; 3,7; -2; 6; 9; 1; 0}
Private Sub Command1_Click()
Dim S(), m, c As Single, N, i, k As Integer
N = InputBox("N=")
ReDim S(N)
For i = 1 To N
S(i) = InputBox("Введите массив")
Print S(i)
Next
m = S(1): k = 1
For i = 2 To N Step 2
If S(i) > m Then
m = S(i): k = i
End If
Next
c = S(N)
S(N) = S(k)
S(k) = c
For i = 1 To N
Print S(i)
Next
End Sub
5. Найти и напечатать индексы элементов матрицы L размерности MхN, значения которых находятся в промежутке [ К1,К2 ].Для отладки программы значения M, N, L, K1, K2 выбрать самостоятельно.
Private Sub Command1_Click()
Dim L(), K1, K2 As Single, M, N, i, j As Integer
M = InputBox("M=")
N = InputBox("N=")
ReDim L(M, N)
K1 = InputBox("K1=")
K2 = InputBox("K2=")
For i = 1 To M
For j = 1 To N
L(i, j) = InputBox("Введите массив")
Next
Next
For i = 1 To M
For j = 1 To N
Print L(i, j);
Next
Next
For i = 1 To M
For j = 1 To N
If L(i, j) >= K1 And L(i, j) <= K2 Then
Print " i=" & i & " J=" & j
End If
Next
Next
End Sub
6. Пересчитать одномерный массив R размерности n по правилу: Ri=Ri/ i
Проанализировать выполнение программы на примере: Р={10; 20; 30; 40; 50}
Private Sub Command1_Click()
Dim R() As Single, n, i As Integer
n = InputBox("n=")
ReDim R(1 To n)
For i = 1 To n
R(i) = InputBox("Vvedite massiv")
Print R(i);
Next
For i = 1 To n
R(i) = R(i) / i
Print " " & R(i);
Next
End Sub
6. Заполнить матрицу SC размерности 25*2 значениями Функции SinX
(первый столбец) , CosX (второй столбец) . Х меняется от 0 до 2 с шагом /12.
Полученную матрицу напечатать в два столбца.
Private Sub Command1_Click()
Dim SC(25, 2), x As Single, i, j As Integer
Const Pi = 3.14
x = 0
For i = 1 To 25
SC(i, 1) = Cos(x)
SC(i, 2) = Sin(x)
x = x + Pi / 12
Print " " & Format(SC(i, 1), "0.00") & " "
Print " " & Format(SC(i, 2), "0.00");
Next
End Sub
4. Вычислить значение Функции. Для отладки программы значения Х и массива С выбрать самостоя тельно.
Private Sub Command1_Click()
Dim x As Integer, y As Single, i As Integer
ReDim C(7) As Double
x = InputBox("x=")
For i = 1 To 7
C(i) = InputBox("C(" & i & ")=")
Print C(i)
Next
y = 0
For i = 1 To 7
y = y + C(i) * (x ^ i)
Next
Print y
End Sub
4. Найти произведение элементов четных строк матрицы В размернос ти L*M. Полученное значение присвоить элементу матрицы, распо ложенному в четвертой строке третьего столбца. Проанализировать выполнение программы на примере.
Private Sub Command1_Click()
Dim L As Single, M As Single, P As Single, i As Integer, j As Integer
L = InputBox("Ввести число строк")
M = InputBox("Ввести число столбцов")
ReDim B(L, M) As Double
For i = 1 To L
For j = 1 To M
B(i, j) = InputBox("B(" & i & "," & j & ")=")
Print B(i, j);
Next
Next
P = 1
For i = 2 To L Step 2
For j = 1 To M
P = P * B(i, j)
Next
Next
B(4, 3) = P
For i = 1 To L
For j = 1 To M
Print B(i, j);
Next
Next
End Sub
4. Вычислить значение величины М=(2n+1)!
Проанализировать выполнение программы на примере n = 3.
Private Sub Command1_Click()
Dim M As Integer
Dim x As Integer
Dim n As Integer
Dim P As Single
n = InputBox("BBEDITE n")
P = 1
x = 1
M = 2 * n + 1
For i = 1 To M
P = P * x
x = x + 1
Next
Print "P=" & P
End Sub
4. Найти сумму S элементов матрицы L7 размерности К*М. Найденное значение присвоить элементу второй строки третьего столбца матрицы.
Проанализировать выполнение программы на примере К = 3, М = 4.
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim K As Integer
Dim M As Integer
Dim L7() As Single
Dim S As Single
K = InputBox("Введите K")
M = InputBox("Bведите M")
ReDim L7(1 To K, 1 To M)
S = 0
For i = 1 To K
For j = 1 To M
L7(i, j) = InputBox("Bведите массив ")
S = S + L7(i, j)
Next
Next
L7(2, 3) = S
For i = 1 To K
For j = 1 To M
Print L7(i, j);
Next
Next
End Sub
5. Напечатать индексы и значения отрицательных элементов вектора N3 размерности М. Проанализировать выполнение программы на примере:
N3={ 2; -3; -6; 4; 1; 0; -3}
Private Sub Command1_Click()
Dim N3() As Single
Dim i As Integer
Dim n As Integer
n = InputBox("BBEDITE n")
ReDim N3(1 To n)
For i = 1 To n
N3(i) = InputBox("BBEDITE N3")
If N3(i) < 0 Then
Print ("Отрицательный элемент N3(" & i & ")=" & N3(i))
End If
Next
End Sub
5. Определить наибольший элемент нечетных строк квадратной матрицы G8 размерности MxM. Значение найденного элемента присвоить элементу третьей строки второго столбца матрицы. Проанализировать выполнение программы на примере :
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim G8() As Single
Dim Kmax As Single
m = InputBox("BBEDITE M")
ReDim G8(1 To m, 1 To m)
For i = 1 To m
For j = 1 To m
G8(i, j) = InputBox("Введите массив")
Next
Next
Fmax = G8(1, 1)
For i = 1 To m
For j = 1 To m
If Fmax < G8(i, j) Then
Fmax = G8(i, j)
End If
Next
Next
G8(3, 2) = Fmax
Print "Fmax=" & Fmax
End Sub
Range("H2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:=">=" & InputBox("введите кол-во персонала"), Operator:=xlAnd
3. Определить число зон пригородного пассажиропотока при составлении расписаний движения поездов. Для отладки принять: П=12; 1000чел; =0,5ч; А=3,0 тыс.чел; чел.
Private Sub Command1_Click()
Dim P As Single
Dim Mn As Single
Dim Mk As Single
Dim Mh As Single
Dim t As Single
Dim A As Single
Dim z As Single
P = Val(Text1)
Mn = Val(Text2)
Mk = Val(Text3)
Mh = Val(Text4)
t = Val(Text5)
A = Val(Text6)
For M = Mn To Mk Step Mh
z = P * A * t / M
Print "M=" & M, "z=" & z
Next M
End Sub
3. Поезд массой m при торможении с ускорением а останавливается через время t после начала торможения. Какое количество тепла выделится при торможении?
Для отладки принять: m =2000 т; 0,1 а 0,7 м/с2 с шагом 0,15 м/с2 ; 30 t 50 с шагом
10 с.
Private Sub Command1_Click()
Dim m As Single
Dim an As Single
Dim ak As Single
Dim ah As Single
Dim t1 As Single
Dim t2 As Single
Dim th As Single
Dim Q As Single
m = Val(Text1)
an = Val(Text2)
ak = Val(Text3)
ah = Val(Text4)
t1 = Val(Text5)
t2 = Val(Text6)
th = Val(Text7)
For a = an To ak Step ah
Print "a=" & a
For t = t1 To t2 Step th
Q = m * a ^ 2 * t ^ 2 / 2
Print "t=" & t, "Q=" & Q
Next
Next
End Sub