шпора по работе в ВВ

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

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

Print

For j = 1 To N

Print L(i, j);

Next

Next

Print

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

Print

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

Print

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

Print

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 м/с² с шагом 0,15 м/с² ; 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