00.2 Уч-мет пос МПиС d4 (1). Лабораторная работа Формирование статистической таблицы с возможностью сортировки, фильтрации и группировки данных 4

• Название: Лабораторная работа Формирование статистической таблицы с возможностью сортировки, фильтрации и группировки данных 4
• Дата: 09.10.2022
• Размер: 2.1 Mb.
• Имя файла: 00.2 Уч-мет пос МПиС d4 (1).docx
• Тип: Лабораторная работа; #722618
• страница: 3 из 9

Лабораторная работа № 3.
Разработка процедур и функций обработки массивов

Примеры функций:

• 
  функция вычисления суммы элементов массива А:
  

1-й способ: Public Function Сумма_массива(A As Variant) Dim s, x s = 0 For Each x In A s = s + x Next x Сумма_массива = s End Function

2-й способ: Public Function SumMas(a As Variant) n = a.Columns.Count 'кол-востолбцов m = a.Rows.Count ' количество строк s = 0 For r = 1 To n For c = 1 To m s = s + a(r, c) Next c Next r SumMas=s End Function

• 
  функция подсчета количества положительных элементов массива А:
  

Public Function CountP(a As Variant)

n = a.Columns.Count

m = a.Rows.Count

k= 0

For r = 1 To n

For c = 1 To m

If a(r,c) > 0 Then k=k+1

Next c

Next r

CountP=k

End Function

• 
  функция нахождения максимального и минимального значения массива А:
  

Public Function max_min_A(a As Variant)

n = a.Columns.Count

m = a.Rows.Count

minimal = a(1, 1)

maximal = a(1, 1)

For r = 1 To n

For c = 1 To m

If a(r, c) < minimal Then minimal = a(r, c)

If a(r, c) > maximal Then maximal = a(r, c)

Next c

Next r

max_min_A = "Минимальный эл-т:" + Str(minimal) + ", максимальный эл-т:" + Str(maximal)

EndFunction
Задания для лабораторной работы
На VBA составить функции для:

1. 
   нахождения суммы (количества) положительных (отрицательных) элементов массива;
   
2. 
   нахождения суммы (количества) элементов массива, стоящих на четных (нечетных) местах;
   
3. 
   нахождения произведения отрицательных (положительных) элементов массива;
   
4. 
   подсчета количества отрицательных (положительных, нулевых, кратных k) элементов массива;
   
5. 
   нахождения суммы четных (нечетных, кратных n) элементов массива;
   
6. 
   нахождения НОД (НОК) элементов массива;
   
7. 
   нахождения минимального (максимального) элемента массива и места его расположения в массиве (номера строки и номера столбца);
   
8. 
   нахождения максимального среди положительных (минимального среди отрицательных элементов массива);
   
9. 
   нахождения двух самых больших (самых маленьких) элементов массива;
   
10. 
    нахождения минимального и максимального элемента массива, выполнив наименьшее число сравнений О(1.5n), где n число элементов в массиве;
    
11. 
    расположения элементов массива в следующем порядке – положительные, отрицательные и нулевые;
    
12. 
    упорядочивания по возрастанию (убыванию) элементов массива;
    
13. 
    в упорядоченном массиве, найти такие два элемента, произведение которых максимально (минимально);
    
14. 
    из двух упорядоченных по возрастанию массивов, получить третий, упорядоченный по возрастанию;
    
15. 
    Найти сумму чисел, которые являются суммой двух предыдущих;
    
16. 
    Заменить в строке символ N на символ M.