Завдання

1. Визначити індекси мінімального елемента масиву А(3,5). Обчислити добуток його від'ємних елементів.

2. Обчислити кількість елементів масиву А(4,5), для яких виконується нерівність 1<a_kn<6.

3. Обчислити добуток значень тих елементів масиву А(6,5), для яких справджуються нерівності a_kn <-1 або a_kn >1

4. Обчислити кількість додатних елементів масиву А(3,6) та їхній добуток.

5. Обчислити суму квадратів елементів масиву А(3,6), значення яких більші, ніж 1.

6. Обчислити добуток квадратів тих елементів масиву А(3,3), для яких виконується нерівність | a_kn |<3.

7. Обчислити кількість тих елементів масиву А(3,4), для яких виконується нерівність a_kn >3 та суму елементів менших, ніж 9.

8. Обчислити добуток від'ємних елементів масиву А(4,6). Визначити індекси максимального елемента.

9. Обчислити суму діагональних елементів масиву А(6,6) та кількість від'ємних елементів.

10. Обчислити добуток тих елементів масиву А(3,6), для яких виконується нерівність 2< a_kn <10.

11. Визначити індекси максимального елемента масиву. Обчислити добуток елементів над головною діагоналлю.

12. Обчислити добуток елементів масиву А(3,6) перших двох рядків.

13. Обчислити суму елементів масиву А(6,6) над головною діагоналлю. Визначити індекси мінімального елемента.

14. Обчислити суму від'ємних елементів масиву А(3,6). Знайти максимальний елемент масиву А(3,6).

15. Обчислити добуток мінімального і максимального елементів масиву А(5,6).

16. Визначити індекси мінімального і максимального елементів масиву А(3,6).

17. Елементи масиву А(4,6), що дорівнюють нулю, замінити на 1. Знайти суму елементів під головною діагоналлю.

18. Визначити кількість від'ємних та суму додатних елементів масиву А(4,5).

19. Обчислити добуток тих елементів масиву А(6,5), для яких виконуються нерівності a_kn <-5 або a_kn >3. Визначити індекси мінімального елемента.

20. Визначити індекси максимального та мінімального елементів масиву А(4,4). Обчислити їхній добуток.

21. Обчислити добуток елементів масиву А(3,3) над головною діагоналлю матриці та визначити їхню кількість.

22. Обчислити середнє арифметичне додатних елементів масиву А(3,6).

23. Обчислити суму тих елементів масиву А(7,5), для яких виконується нерівність 1< a_kn <5. Знайти максимальний елемент.

24. Обчислити суму діагональних елементів масиву А(3,3) та кількість елементів, значення яких менші, ніж 3.

25. Обчислити добуток елементів масиву А(4,4) під головною діагоналлю на суму елементів на головною діагоналлю.

Лабораторна робота № 11

Тема: розробка програм та алгоритмів обробки рядків

Мета роботи: вивчення функцій обробки рядків

Теоретичні відомості

Рядок – це впорядкована послідовність символів. Кожний символ рядкової змінної займає 1 байт пам’яті (код АSСII). Кількість символів в рядку називається його довжиною. Рядкова зміна оголошується за допомогою службового слова String.

Наприклад:

Dim str as String

Послідовність символів, яка присвоюється рядковій змінній, повинна бути в лапках. Дві лапки (“”) означають порожній рядок. Тобто рядок нульової довжини.

Наприклад:

Dim s as String

s=”це рядок”

У VBA є єдина рядкова операція – додавання. Ця операція застосовується для об’єднання декількох рядків в один, і позначається «&» або плюс.

У VBA є наступні функції обробки рядкових змінних.

Функція	Дія функції
Asc	Повертає ASCII-код початкової букви рядка. Синтаксис: Asc(Рядок)
Chr	Перетворює ASCII-код в рядок. Синтаксис: Chr(Код) Наприклад Chr (13) — перехід на новий рядок, Chr(97) = "а"
Mid	Виділяє підрядок, який має вказане число символів Синтаксис: Mid(string, start [, length]) Аргументы: string — рядкова змінна, чи рядок, з якого виділяється підрядок start — позиція символу в рядку string, з якого починається потрібний підрядок length — число символів підрядка
Len	Довжина рядка. Синтаксис: Len(Рядок)

Перетворення рядка в число і назад виконується наступними функціями

Val (рядок)	Перетворює числа, які є в рядку в числове значення відповідного типу (рядок в число)
Str (число)	Перетворює значення типу variant (string), що є представленням рядкової змінної числа (число в рядок)

Приклад. З даного рядка вибрати всі цифри, і сформувати інший рядок з цих цифр, зберігши їх послідовність.

Розв’язання. Ідея алгоритму базується на наступному: проглядають всі символи вихідного рядка і порівнюють кожний символ з числами від 0 до 9. Якщо «так». То такий символ приєднується до іншого рядка.

Sub stroki() Dim S1 As String Dim S2 As String Dim S As String Dim i As Integer S1 = InputBox("Введите исходную строку") S2 = " " For i = 1 To Len(S1) S= Mid(S1, i, 1) If S>= "0" And S<= "9" Then S2 = S2 + S Next i MsgBox "Результат: " & S2 End Sub

Оголошення типів змінних Ввід рядка S1 Перегляд всіх символів рядка Виділення символу з рядка і порівняння його з цифрами

Результат: з рядка “df56gh£789yt6u8k88w”, буде одержано: “567896888”.