' Перевіримо, чи можуть числа бути довжинами сторін трикутника

If (a + b > c) And (a + c > b) And (b + c > a) Then

' Це трикутник, обчислюємо його площу по формулі Герона

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

TextBox4. Text = "Площа трикутника = " & CStr(s)

Else

TextBox4. Text = "Введені числа не можуть бути довжинами сторін _ трикутника! "

End If

End Sub

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

Тема: Функції користувача.

Мета роботи: навчитися створювати функції користувача для найпростіших обчислень.

5.1 Завдання: Написати функції користувача для обчислення по заданих формулах. Написати підпрограму для виклику функції й обчислити Y, Z для введеного значення Х.

Варіанти:

1. Y=, Z=

2. Y=, Z=

3. Y=, Z=

4. ,

5.

6.

7.

8.

9.

10.

11.

12.

5.2 Написати функції користувача для одержання всіх розрахун­кових значень для списку, створеного в індивідуальному завданні, згідно варіанту.

5.3 Контрольні питання:

1. 1.Опишіть структуру функції користувача.

2. 2. Правила передачі параметрів. Типи параметрів.

3. 3. Правила виклику функції.

4. 4. Чим відрізняється функція від процедури?

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

Задача 5.4.1. Написати функцію користувача для обчислення функції по заданій формулі:

Т екст програми-функції:

Function Z(x As Single) As Single

Z = (1 + x) /sqr (1 + (2 + x + x ^ 2)

End Function

Sub Програма_для_виклику_функції()

Dim x As Single, y As Single

x = InputBox("Введіть значення Х")

y = Z(x)

Worksheets("Лист1").Cells(2, 1).Value = x

Worksheets("Лист1").Cells(2, 2).Value = y

End Sub

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

Задача 5.4.2: Написати функцію користувача для обчислення функції по заданій формулі:

Текст програми-функції:

Function Z1(x As Single) As Single

If x <= 0 Then

Z1 = (3 + Sin(2 * x) ^ 2) / (1 + Cos(x) ^ 2)

Else

Z1 = 2 * Sqr(1 + 2 * x)

End If

End Function

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

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

Тема: Використання циклів для обробки даних у таблиці.

Мета роботи: навчитися використовувати оператори For–Next, Do Loop, For Each, умови While та Until

6.1 Виконайте наступні завдання, написавши для кожного з них окрему процедуру згідно варіанта.

Варіант 1

1. Занесіть на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ -1; 1 ] із кроком 0.1, а Y і Z обчислюються за формулами:

2. Напишіть програму, що для чисел, отриманих у попередній задачі, знаходить середнє значення, записує його на Лист Excel і виділяє кольором числа, які більш на 5% ніж обчислене середнє значення.

3. Серед значень Z із діапазону знайдіть перше, яке виявиться більше відповідного йому значення Y.

Варіант 2

1. Занесіть на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ -1; 2 ] із кроком 0.1, а Y і Z обчислюються за формулами:

2. У клітині D1 знаходиться деяке число М. Знайдіть в діапазоні, отриманому в попередній задачі, усі клітки, що містять значення, рівні М, та виділіть їх кольором.

3. Серед значень з цього ж діапазону знайдіть перше додатне значення Z і те значення Х, що йому відповідає.

Варіант 3

1. Занесіть на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ -2; 1 ] із кроком 0.1, а Y і Z обчислюються за формулами:

2. Для кожного стовпця з діапазону, отриманого в попередній задачі, обчисліть найменше додатне значення. Запишіть їх на Лист Excel під кожним стовпчиком.

3. Для стовпця Z з того ж діапазону підрахувати кількість від’ємних елементів, розташованих до першого додатного.

Варіант 4

1. Занесіть на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ -2; 3 ] із кроком 0.15, а Y і Z обчислюються за формулами:

2. Знайдіть найбільше значення Z з діапазону, отриманого в попередній задачі, і підрахуйте кількість кліток, що містять таке ж значення.

3. Знайдіть суму тих значень Y, яким відповідають додатні значення змінної Z.

Варіант 5

1. Занесіть на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ 0; 3 ] із кроком 0.1, а Y і Z обчислюються за формулами:

2. Напишіть процедуру, що знаходить середнє значення всіх чисел, отриманих у попередній задачі, а потім суму тих значень Y з діапазону, що більше середнього.

3. Підрахуйте, скільки разів в отриманому діапазоні значення Z змінюють свій знак із плюса на мінус.

Варіант 6

1. Занесіть на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ –30, 10 ] із кроком 1, а Y і Z обчислюються за формулами:

2. Напишіть процедуру, яка в діапазоні з попередньої задачі, заміняє кожне від’ємне значення Z на нуль і підраховує загальну кількість таких чисел.

3. Знайдіть суму цілих значень змінної Y, отриманих у завданні 1.

Варіант 7

1. Занесіть на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ 0, 5 ] із кроком 0.2, а Y і Z обчислюються за формулами:

2. Напишіть процедуру, що обчислює для кожного стовпця діапазону з попередньої задачі, кількість чисел, більших, ніж 2. Запишіть отримані результати на Лист Excel під кожним стовпчиком.

3. Якому значенню Х відповідає перше додатне значення Z?

Варіант 8

1. Занесіть на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ 0, 4 ] із кроком 0.2, а Y і Z обчислюються за формулами:

2. Напишіть процедуру, яка обчислює для діапазону з попередньої задачі кількість елементів, більших, ніж 1.5 та виділяє ці елементи кольором.

3. Знайдіть перше значення Х, для якого і Y, і Z водночас будуть менші, ніж 1.5.

Варіант 9

1. Занесіть на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ -2; 1 ] із кроком 0.1, а Y і Z обчислюються за формулами:

2. Напишіть процедуру, яка для значень Y і Z з діапазону попередньої задачі підраховує кількість пар одного знака.

3. Знайдіть суму значень Z, розташованих до першого додатного.

Варіант 10

1. Занесіть на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ –3; 3 ] із кроком 0.1, а Y і Z обчислюються за формулами:

2. Напишіть процедуру, яка до всіх позитивних значень Z додає 1, а від усіх від’ємних значень Z віднімає 1.

3. Знайдіть максимальне значення Z і суму тих значень Z, що розташовані до максимального.

Варіант 11

1. Занесіть на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ –1; 4 ] із кроком 0.2, а Y і Z обчислюються за формулами:

2. Знайдіть найбільше і найменше значення Y і поміняйте їх місцями.

3. Виділіть кольором ті рядки, у яких розташовані значення Z, менші, ніж 0,2.

Варіант 12

1. Занесіть на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ –1; 2 ] із кроком 0.1, а Y і Z обчислюються за формулами:

2. Підрахуйте кількість рядків з діапазону, отриманого в попередній задачі, в яких X<Y<Z .

3. Виділите кольором ті значення Z, що повторюються. Якщо таких значень немає, виведіть відповідне повідомлення.