Работа5
.docxМинобрнауки Российской Федерации
Казанский Национальный Технологический Университет
Кафедра химической кибернетики
Лабораторная работа №4
Одномерные Массивы
Выполнили:
Студенты группы 2361-62
Пискунов Андрей, Филипов Руслан
Проверил:
Шулаев М. В.
Казань, 2017
Задание 1 .
Обработка одномерного массива или вектора. Для двух векторов Х={ и Y= , i=1,30 , заданная случайным образом вычислить: сумму, среднее, максимальное и минимальное значения, а так же сумму квадратов отклонений - .
Вывод: Мы научились вычислять разные значения при помощи формул.
Задание 2.
Вычисления в программе. Используя значения вектора Х, напечатать количество и порядковые номера элементов вектора, кратных числу 3.
Программа на языке EVB
Sub prog41()
Dim x(1 To 30) As Integer
Dim a(1 To 30) As Integer
i1 = 2: j1 = 4
For i = 1 To 30
x(i) = Worksheets("Работа 4").Cells(i1, j1).Value
If x(i) / 3 = Int(x(i) / 3) Then
k = k + 1
a(k) = i
MsgBox "номер элемента кратного 3:" & a(k)
Worksheets("Работа 4").Cells(i1, j1).Interior.ColorIndex = 6
End If
i1 = i1 + 1
Next i
MsgBox “количество элементов кратных 3:" & k
End Sub
Результат:
и т.д.
Самостоятельная работа.
Для вектора целых чисел x={x}. I=1,15, заданного случайным образом в интервале [-5,5], вычислить: Среднее арифметическое квадратов положительных элементов: Напечатать минимальный положительный элемент последовательности и его порядковый номер.
Массив -
Решение:
Программа на языке EVB
Sub prog42()
Dim x(1 To 15) As Integer
i1 = 2: j1 = 3
For i = 1 To 15
x(i) = Worksheets("Самостоятельная 4").Cells(i1, j1).Value
If x(i) > 0 Then
Sum = Sum + (x(i) ^ 2)
n = n + 1
End If
i1 = i1 + 1
Next i
Min = x(1)
k = 1
For i = 1 To 15
If x(i) > 0 And x(i) < Min Then
Min = x(i)
k = i
End If
Next i
MsgBox "Минимальный положительный элемент=" & Min
MsgBox "Порядковый номер элемента=" & k
MsgBox "Ср.арифметическое квадратов положительных элементов =" & Sum / n
End Sub
Результат:
Вывод: Мы научились работать с одномерными массивами.