Приклад виконання лабораторної роботи.

Задача 6.3.1 В клітинці D2 знаходиться число Х. Підрахувати всі степені числа X, які менш ніж 1000. Записати їх на Лист Excel в два стовпчика: в одному стовпці - показник степені, в другому - її значення.

 

Текст програми

Sub степінь()

Dim x As Single, st As Single

' st – змінна для накопичення значень х в степені

Dim i As Integer, k As Integer ' i - номер строки, k - степінь

Range("A1").Value = "k"

Range("B1").Value = "x^k"

Range("D1").Value = "x"

Range("A1:D1").HorizontalAlignment = xlCenter

‘ Вирівнювання по центру ‘

x = Range("D2").Value

st = x: i = 2: k = 1

Do

Cells(i, 1).Value = k

Cells(i, 2).Value = st

Cells(i, 2).NumberFormat = "0.0000"

i = i + 1: st = st * x: k = k + 1

Loop While st < 1000

End Sub

Рис 6.1 Результати роботи програми

Задача 6.3.2 В діапазоні А1:С19 знаходяться числа. Перевірити чи є серед них числа, що дорівнюють 3. Вивести повідомлення.

Текст програми

Sub задача2()

Dim r As Range

For Each r In Range("A1:С19")

If r.Value = 3 Then

r.Select

MsgBox "Є числo =3"

Exit Sub

' Як тільки зустрічається потрібне число, виділяється клітина,

' що його містить, і відбувається достроковий вихід з процедури

End If

Next

MsgBox "Немає чисел=3"

' Ця частини програми працює тільки, якщо таких значень немає.

End Sub

Рис. 6.2 Результати роботи програми

 

Приклад блок схеми до Задачі 6.3.

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

 

Тема: багатовимірні масиви

Мета роботи: навчитися створювати та обробляти двовимірні масиви.

 

Масив – це скупість однотипних елементів даних (чисел, логічних даних, символів), яким при обробці присвоєно певне ім’я. Масиви бувають одновимірними та багатовимірними.

Елементи двовимірного масиву (дані можуть бути подані у вигляді таблиці) визначаються іменем масиву та двома індексами: перший індекс означає номер рядка, а другий – номер стовпця, на перетині яких стоїть елемент, наприклад А(2,3).

Правила опису двовимірного масиву:

 

Dim <ім’я масиву > ( <початкове значення індексу по рядкам> To < кінцеве значення індексу по рядкам >, < початкове значення індексу по стовпцям > To < кінцеве значення індексу по стовпцям > ) [ As <тип елементів масиву> ]

Приклад:

Dim А(1 To 4, 1 To 5) As Integer (масив розмірністю 4*5 цілих чисел.

Звернення до елементу двохвимірного масиву здійснюється наступним чином: вказується ім’я масиву а потім вказується спочатку номер рядка, а потім номер стовпця.

Наприклад. Визначити суму додатніх елементів масиву A_5×8.

Public Sub prog() Dim a(1 To 5, 1 To 8) As Integer Dim s As Integer s = 0 For i = 1 To 5 For j = 1 To 8 a(i,j)=Worksheets(1).Cells(i,j)   If a(i, j) > 0 Then s = s + a(i, j) End If Next j Next I Worksheets(1).Range("A12")= s End Sub

Опис цілочисельного масиву з 5 рядків і 8 стовпців Занулення змінної s Цикл по рядкам (номер рядка від 1 до 5) Цикл по стовпцям (номер стовпця від 1 до 8) Ввід елементів масиву з листа Excel (номера рядків змінюються від 1 до 5, стовпців – від 1 до 8) Порівняння елементів масиву з нулем. Додавання додатних елементів до поточної суми позитивних елементів. Додавання кроку до лічильника j Додавання кроку до лічильника i Вивід результатів в комірку А12

Блок-схема програми

Завдання

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”.

 

 

Завдання

 

1. Вивести ім'я та кількість букв у третьому слові.

2. Визначити скільки букв ' а ' є у прізвищі.

3. Вивести три букви - свої ініціали з крапками.

4. Вивести довжини прізвища та імені.

5. Вивести прізвище та ініціали.

6. Вивести ім'я та кількість букв у прізвищі.

7. Визначити скільки букв ' о ' є в імені.

8. Вивести найдовше слово.

9. Вилучити усі букви ' а ' та ' о ' з прізвища.

10. Вивести ім'я у стовпчик.

11. Чи починається хоч би одне слово з букви ' М '?

12. Усі букви ”i” в імені продублювати.

13. Вивести прізвище та кількість букв у імені.

14. Вивести ім'я у зворотному порядку.

15. Вивести прізвище у стовпчик.

16. Вивести ім'я та по батькові та кількість букв у імені.

17. Вивести найкоротше слово.

18. Вивести дане без пропусків. Скільки букв є в імені?

19. Вивести довжини трьох слів.

20. Вивести ім'я та кількість букв у прізвищі.

21. Вивести ім'я, прізвище.

22. Кожну букву імені продублювати.

23. Вивести прізвище у зворотному порядку.

24. Визначити скільки букв ' а ' та ' б ' є у прізвищі.

25. Вивести третє слово та кількість букв у прізвищі.

 

ПЕРЕЛІК РЕКОМЕНДОВАНИХ ДЖЕРЕЛ

1. Інформатика. Комп’ютерна техніка. Комп’ютерні технології. Посібник /За ред. О.І. Пушкаря – К.: Видавничий центр “Академія”, 2001.- 530 с.

2. Глинський Я. М. і др.Паскаль.Turbo Paskal& Delphi. Навч.посібн.7-є вид. – Львів: СПД Глинський, 2006.– 192с.

 

ДОДАТКИ

 

Додаток А

Зразок титульної сторінки

 

 

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

 

Івано-Франківський національний технічний

університет нафти і газу

 

 

Кафедра інформатики

 

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

Тема: Одновимірні масиви

 

 

Виконав:

студент групи ПБ-10-1

Павлів М.

 

Перевірив:

 

 

Івано-Франківськ,

 

Додаток Б

 

Витяг з ГОСТ 19.003–80 - символи алгоритмів і програм

 

Назва	Позначення і розміри в мм	Функція
Процес		Виконання операції або групи операцій, в результаті яких змі-нюється значення, форма пред-ставлення або розміщення да-них.
Розв’язок		Зміна напрямку обчислювально-го процесу (розгалуження) в за-лежності від умови.
Модифікація		Виконання операцій, які міня-ють команди або групи команд, що змінюють програму (заго-ловки циклу).
Наперед визначений процес		Використання раніше створених і окремо описаних алгоритмів або програм (підпрограм).
Ввід-вивід		Перетворення даних в форму, вигідну для обробки (ввід) або відображення результатів оброб-ки (вивід).
Документ		Ввід-вивід даних, носієм яких є папір

Продовження додатку Б

 

З’єднувач		Вказівник зв’язку між перерва-ними лініями потоку, зв’язуючи-ми символами
Пуск-зупинка		Початок (кінець) процесу оброб-ки даних або виконання програ-ми