Private Sub CommandButton1_Click(). ' табулювання функції

⇐ Назад

' табулювання функції

Dim xn As Double, xk As Double, x As Double, y As Double, _

H As Double, i As Integer, n As Integer

xn = Range("A2").Value

xk = Range("B2").Value

h = Range("C2").Value

n = (xk - xn) / h + 1

Range("D2").Value = n

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

Range("B4").Value = "y"

Range("A4:B4").HorizontalAlignment = xlCenter

' вирівнювання тексту по центру

Range("A4:B4").Font.Bold = True

' робимо текст жирним

Range("A4:B4").Interior.ColorIndex = 8

' змінюємо колір фону клітин заголовку

i = 5 ' номер рядка, з якого починається таблиця

For x = xn To xk Step h

If x >= xn And x <= 0 Then

y = Sqr(1 + 2 * Abs(x))

Else

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

End If

Cells(i, 1).Value = x

Cells(i, 2).Value = y

i = i + 1

Next x

End Sub

Private Sub CommandButton2_Click()

' обчислення середнього арифметичного у для від'ємних х

Dim Sa As Double, s As Double, k As Integer, x As Double, _

I As Integer, n As Integer

n = Range("D2").Value

s = 0: k = 0

i = 5

x = Cells(i,1).Value

Do While x < 0

s = s + Cells(i, 2).Value

k = k + 1

i = i + 1

x = Cells(i, 1).Value

Loop

Cells(n + 6, 1).Value = "Середне арифметичне"

Cells(n + 6, 1).WrapText = True

' для запису тексту в декілька рядків в клітині

If k <> 0 Then

Sa = s / k

Cells(n + 7, 1).Value = Sa

Else

Cells(n + 7, 1).Value = "немае x<0"

End If

End Sub

Private Sub CommandButton3_Click()

' пошук найменьшого у

Dim min As Double, r As Range, i As Integer, _

N As Integer

n = Range("D2").Value

min = Range("B5").Value

For Each r In Range("B5:B25")

If min > r.Value Then min = r.Value

Next

Cells(n + 6, 2).Value = "Мінімум у="

Cells(n + 6, 2).WrapText = True

Cells(n + 7, 2).Value = min

' зміна кольору шрифту для х , що відповідає мінімальному значенню у

i = 5

Do Until i = n + 4

If Cells(i, 2).Value = min Then

Cells(i, 1).Font.ColorIndex = 7

End If

i = i + 1

Loop

End Sub

Private Sub CommandButton4_Click()

' пошук максимального у для додатніх х та їх кількості

Dim max As Double, i As Integer, n As Integer, k As Integer, _

X As Double

n = Range("D2").Value : max = -10 ^ 10

For i = 5 To n + 4

x = Cells(i, 1).Value

If x > 0 And max < Cells(i, 2).Value Then

max = Cells(i, 2).Value

End If

Next

k = 0 ' лічильник кількості значень у, які дорівнюють максимальному

For i = 5 To n + 4

If max = Cells(i, 2).Value Then k = k + 1

Next

Cells(n + 6, 3).Value = "Максимальне у="

Cells(n + 6, 3).WrapText = True

Cells(n + 7, 3).Value = max

Cells(n + 6, 4).Value = "Кількість у= мах"

Cells(n + 6, 4).WrapText = True

Cells(n + 7, 4).Value = k

End Sub

Private Sub CommandButton5_Click()

' обчислення добутку у, меньших середнього арифметичного у для від'ємних х

Dim Sa As Double, P As Double, k As Integer, y As Double, _

I As Integer, n As Integer

n = Range("D2").Value : Sa = Range("A28").Value

P = 1

For i = 5 To n + 4

y = Cells(i, 2).Value

If y < Sa Then P = P * y

Next i

Cells(n + 6, 5).Value = "Добуток у < середнього арифметичного"

Cells(n + 6, 5).WrapText = True

Cells(n + 7, 5).Value = P

End Sub

Результати розрахунків наведені на рис. 1.11 .

Рисунок 1.11 – Результати роботи програми

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

1.4.1 Що таке параметр циклу?

1.4.2 Оператор циклу For – Next і його робота.

1.4.3 Оператори циклу з передумовою і з післяумовою.

1.4.4 Достроковий вихід з процедури.

1.4.5 Вкладені цикли, правила та їх структура.

1.4.5 Логічні відношення, логічні операції, правила запису логічних виразів.

1.4.7 Алгоритми обчислення суми та кількості.

1.4.8 Алгоритм пошуку найбільшого(найменшого) значення.

1.4.9 Алгоритми обчислення добутку.

1.4.10 Призначення vbTAB , vbCrLF .

1.5 Варіанти завдань

Завдання 1.5.1

Для кожного варіанту обчислити значення функції y = f(x) , де x Î [-1;1] , n=10 – кількість розподілу інтервалу.

Дані розмістити у вигляді таблиці та побудувати графік заданої функції.

1 2 3

4 5 6

7 8 9

10 11 12

13 14 15

16 17 18

19 20 21

22 23 24

Завдання 1.5.2

Для заданого x [0,1 ; 0,8] обчислити суму ряду S :

1) для заданої кількості членів ряду n=3, n= 7;

2) із заданою точністю =0,01, та підрахувати кількість врахованих членів ряду .

Примітка: Точність вважається досягнута, якщо знайдеться такий член ряду, який за абсолютним значенням не перевищує задану точність .

1 2

3 4

5 6

7 8

9 10

11 12

13 14

15 16

17 18

19 20

21 22

23 24

25 .

Завдання 1.5.3

Для кожного варіанту протабулювати функцію y = f(x) , дех належить заданому інтервалу , кількість розподілу інтервалу n = 20 . Занести значення х та у на лист Excel у два стовпчика. Побудувати графік заданої функції. Для створеної таблиці значень виконати відповідне завдання:

1) знайти середнє геометричне тих x , яким відповідають значення y< 1;

2) знайти найменше у та виділити кольором відповідні клітини х та у , для яких у дорівнює найменшому.

1) знайти середнє арифметичне у 2;

2) знайти максимальне серед значень у , які менші середнього арифметичного із завдання 1) та змінити колір шрифту цих значень.

1) знайти найменше у для додатних х та змінити колір шрифту значень х та у, які за це найменше;

2) знайти добуток значень у .

1) знайти середнє арифметичне від’ємних у ;

2) знайти мінімальне та максимальне значення у, поміняти місцями ці значення в таблиці та виділити різними кольорами відповідні х .

1) знайти мінімальне у для 0,5 1,5 та виділити кольором його і відповідне х ;

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

1) знайти середнє арифметичне тих у<0 , які відповідають від’ємним значенням х ;

2) знайти максимальне значення у<0 , виділити кольором відповідне х та підрахувати кількість значень у в таблиці, які знаходяться між визначеними середнім арифметичним та максимальним.

1) знайти мінімальне та максимальне значення у для від’ємних значень х в таблиці, змінити колір шрифту цих значень;

2) знайти добуток у>1,5 .

1) знайти кількість 0,5 < y < 1 ;

2) поміняти місцями максимальне значення у та перше у , яке перевищує 1,6 і виділити кольором відповідні х .

1) знайти середнє арифметичне у>0 після першого від’ємного у ;

2) виділити кольором значення х , при якому у досягає свого найменшого значення.

1) знайти середнє арифметичне у<0 , які відповідають від’ємним значенням х ;

2) знайти максимальне у та змінити його колір шрифту і відповідного х .

1) знайти максимальні значення у для х<0 та для х>0 і виділити різними кольорами ці х ;

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

1) виділити кольором відповідні х , для яких у поспіль (два і більше разів) мають однакові значення та знайти середнє арифметичне цих х ;

2) знайти мінімальне значення у та поміняти місцями з першим значенням таблиці.

1) знайти середнє геометричне тих x , яким відповідають значення y> 1;

2) знайти максимальне у та змінити колір шрифту відповідних х та у , для яких у дорівнює максимальному.

1) знайти середнє арифметичне х , для яких у 2,5 ;

2) знайти мінімальне серед тих значень у , які більші середнього арифметичного із завдання 1) та змінити колір шрифту цього значення.

1) знайти мінімальні у для від’ємних та додатних х, та поміняти їх місцями, змінити колір шрифту відповідних значень х ;

2) підрахувати кількість тих значень у , які більші більшого мінімуму. Якщо значення цих мінімумів співпадають, зробити відповідне повідомлення.

1) знайти середнє арифметичне від’ємних у ;

2) знайти мінімальне значення у для від’ємних х, виділити кольором ті х , для яких у співпадає з мінімальним.

1) знайти максимальне у для 0 2 та виділити кольором відповідне х ;

2) знайти середнє геометричне значень у , які розташовані після максимального.

1) знайти середнє арифметичне тих у , які відповідають від’ємним значенням х ;

2) знайти мінімальне значення у , виділити кольором відповідне х та підрахувати кількість значень у в таблиці, які знаходяться між визначеними середнім арифметичним та мінімальним.

1) знайти мінімальні значення у для х <0 та x>0 , змінити колір шрифту х , які відповідають цим мінімальнім ;

2) знайти добуток усіх у>1 , які розташовані між двома мінімумами.

1) знайти середнє геометричне 1<y<1,5 ;

2) поміняти місцями максимальне та мінімальне значення у і виділити кольором відповідні х .

1) знайти середнє арифметичне у>0 , які розташованіпісля останнього від’ємного у ;

2) виділити кольором значення х , при якому у досягає свого найменшого значення.

1) знайти середнє арифметичне у<0 та перевірити, чи є серед цих значень такі, що дорівнюють цьому середньому арифметичному;

2) знайти максимальне у та змінити колір його шрифту і відповідного х .

1) знайти мінімальне значення у, поміняти його місцями зі значенням на лівому кінці проміжкута виділити різними кольорами відповідні х ;

2) знайти середнє геометричне значень у 2 .

1) для у<0 знайти середнє арифметичне добутку цих у з відповідними х ;

2) знайти мінімальне та максимальне значення у і поміняти їх місцями в таблиці, змінивши колір шрифту цих значень.

1) знайти мінімальне та максимальне у і поміняти їх місцями в таблиці, виділити кольором відповідні значення х ;

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

2 РЕКОМЕНДОВАНА ЛІТЕРАТУРА

2.1 Ресельман Боб. Использование Visual Basic.: Пер. с англ. – К.;М.;Спб.: Издат. дом “Вильямс”, 1998. – 456 с.

2.2 Ананьев А.И., Федоров А.Ф. Самоучитель Visual Basic 6.0. - Спб.: БХВ – Санкт-Петербург, 2000. – 624 с.

2.3 Сайлер, Брайан, Споттс, Джефф. Использование Visual Basic 6. Специальное издание. : Пер. с англ. – М.;Спб.; К.: Печатный. дом “Вильямс”, 1999. – 832 с.

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

2.5 Основи алгоритмізації розв’язування задач. Методичні вказівки з курсів “Інформатика”, “Обчислювальна техніка і програмування”, “Алгоритмічні мови та програмне забезпечення” (для студентів усіх форм навчання) /Сост. Вишневська В.Г., Пархоменко Л.О.- Запоріжжя:ЗДТУ, 1998. – 26 с.

⇐ Назад