Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
PAGE 24
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Запорізький національний технічний університет
МЕТОДИЧНІ ВКАЗІВКИ ТА ЗАВДАННЯ
до лабораторних та самостійних робіт
з курсів
“Інформатика”, “Основи інформатики та обчислювальної техніки”, “Алгоритмічні мови та програмне забезпечення”
за темою
“Програмування циклів” засобами VBA
для студентів технічних спеціальностей усіх форм навчання
2009
Методичні вказівки та завдання до лабораторних та самостійних робіт з курсів “Інформатика”, “Основи інформатики та обчислювальної техніки”, “Алгоритмічні мови та програмне забезпечення” засобами VBA для студентів технічних спеціальностей усіх форм навчання /Укл.:В.Г.Вишневська, О.В.Корнєєва, А.О.Кузьменко, Г.В.Романиченко. – Запоріжжя: ЗНТУ,2008. – 33с.
Методичні вказівки містять теоретичні відомості та індивідуальні завдання до лабораторних та самостійних робіт з курсів „Інформатика”, „Алгоритмічні мови та програмне забезпечення” за темою Програмування циклів”, рекомендації по побудові алгоритмів засобами VBA, приклади їх виконання з використанням середовища Excel та програмування мовою VBA для студентів технічних спеціальностей усіх форм навчання.
Укладачі: В.Г. Вишневська, доцент,
О.В. Корнєєва, асистент,
А.О. Кузьменко, асистент,
Г.В. Романіченко, ст. викладач.
Рецензенти: Н.І. Біла, доцент,
О.І. Денисенко, доцент.
Експерт: А.О. Шумілов, к.т.н., доцент.
Відповідальний
за випуск Г.В. Корніч, професор.
Затверджено
на засіданні кафедри
системного аналізу та
обчислювальної математики
протокол № 7 від 12.01.09 р.
ЗМІСТ
1 Лабораторна робота №1: Програмування циклічних обчислювальних процесів........................................................................................................4
1.1 Мета роботи......................................................................................4
1.2 Загальні теоретичні відомості.........................................................4
1.3 Приклади розв’язання завдання та програмування циклічних обчислювальних процесів..........................................................................5
1.4 Контрольні питання.......................................................................22
1.5 Варіанти завдань............................................................................23
2 Рекомендована література.....................................................................34
1 ЛАБОРАТОРНА РОБОТА № 1
1.1 Мета роботи
Навчитися використовувати оператори циклу For – Next , оператори циклу с передумовою та післяумовою Do – Loop , For – Each , умови While та Until для реалізації арифметичних та ітераційних циклічних обчислювальних алгоритмів.
1.2 Загальні теоретичні відомості
Відомо, що цикл – це група дій(операцій), які виконуються багаторазово. Змінна, від якої залежить кількість повторень циклу називається параметром циклу.
Розрізняють два види циклів:
Синтаксис оператора:
For лічильник = початкове значення To кінцеве значення Step крок зміни
[Оператори – тіло циклу]
Next лічильник .
Оператор повторює виконання тіла циклу, змінюючи значення змінної лічильника від початкового значення до кінцевого значення із заданим кроком зміни. Кількість повторень підраховується за формулою:
n = + 1 ;
Синтаксис операторів з передумовою:
або .
Синтаксис операторів з післяумовою:
або .
Причому, While – забезпечує багатократне виконання тіла циклу доти, поки умова виконується, Until – забезпечує багатократне виконання тіла циклу доти, поки умова не виконується.
Додатково є оператор циклу по сімейству об’єктів.
Синтаксис оператора:
For Each змінна in сімейство
[Оператори – тіло циклу]
Next змінна .
Оператор повторює виконання тіла циклу, поки змінна перебирає всі об’єкти із сімейства обєктів.
Задачі, у розв’язку яких використовують арифметичний цикл – це табулювання функції на заданому проміжку із заданим кроком.
Задачі ітераційного циклу – це задачі на визначення наближеного значення функції з заданою точністю та підрахунки за рекурентними формулами.
В мові VBA є також декілька спеціальних операторів для організації таких циклів.
1.3 Приклади розв’язання завдання та програмування циклічних обчислювальних процесів
Розглянемо типові алгоритми циклічних процесів.
Приклад 1.3.1 Обчислити значення функції ,
де , n=10 – кількість розподілу інтервалу.
Дані розмістити у вигляді таблиці.
Для наданої задачі розглянемо три способи рішення.
Спосіб 1
Початкові значення х введемо за допомогою вбудованого вікна вводу InputBox , а результати підрахунків виведемо у діалогове вікно виводу MsgBox . Додамо про проекту модуль за ім’ям “Приклад1_1”.
Запишемо код цього модуля у відповідному вікні.
Код програми:
Sub tab1()
Dim xn As Single, xk As Single, x As Single, y As Single, n As _ Integer, h As Single, st As String
st = “” ' розраховану таблицю значень оформлюємо за допомогою рядкової змінної st
xn = InputBox("Ввести початкове х=")
xk = InputBox("Ввести кінцеве х=")
n = InputBox("Ввести кількість розподілу інтервалу n=")
h = (xk - xn) / n
For x = xn To xk Step h
y = (Sin(x) - 2.7) / (Abs(x) + Sqr(x ^ 4 + 1))
st = st & "x=" & x & vbTab & "y=" & y & vbCrLf
Next x
MsgBox st , , “Результати розрахунків”
End Sub
Результати роботи програми наведені на рис. 1.1 :
Рисунок 1.1 – Результати роботи програми
Спосіб 2
Для відображення початкових значень х та розрахункових значень y використовуємо “Лист1” EXCEL , як показано на рис. 1.2.
Результати обчислень виведемо починаючи з клітин А5 , В5 .
Розмістимо на цьому ж листі CommandButton1 , для якої змінимо властивості: Caption – «Табулювання» ; Font – «жирный» , 14.
Рисунок 1.2 – Інтерфейс “Лист1”
Код програми:
Private Sub CommandButton1_Click()
Dim xn As Single, xk As Single, x As Single, y As Single, n As _
Integer, h As Double, st As String, i As Integer
Worksheets("Лист1").Activate
xn = Range("A2").Value
xk = Range("B2").Value
n = Range("C2").Value
h = (xk - xn) / n
i = 5 ‘Номер рядка, з якого на листі Excel друкується таблиця
For x = xn To xk Step h
y = (Sin(x) - 2.7) / (Abs(x) + Sqr(x ^ 4 + 1))
Cells(i, 1).NumberFormat = "0.00"
Cells(i, 1).Value = x
Cells(i, 2).Value = y
i = i + 1
Next x
End Sub
Результати роботи програми наведені на рис. 1.3 .
Рисунок 1.3 – Результати роботи програми
Спосіб 3
Для рішення цієї задачі додамо до проекту форму на ім’я “Приклад1_3_1” і створимо слідуючий інтерфейс, як на рис. 1.4 .
Рисунок 1.4 – Форма “Приклад1_3_1”
Встановимо слідуючи властивості елементів управління форми:
|
Елемент(ім’я) |
Властивість |
Значення властивості |
|
UserForm1 |
Name |
Приклад1_3_1 |
|
Caption |
||
|
Label1 |
Caption |
Початкове x= |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
Label2 |
Caption |
Кінцеве x= |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
Label3 |
Caption |
Кількість n= |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
Label4 |
Caption |
Таблиця значень |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
TextBox1 |
Name |
xn |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
TextBox2 |
Name |
xk |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
TextBox3 |
Name |
n |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
TextBox4 |
Name |
xy |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
MultiLine |
True |
|
|
ScrollBars |
3 |
|
|
CommandButton1 |
Caption |
Табулювання |
|
Font(Начертание; Размер) |
жирный; 12 |
Код програми:
Private Sub CommandButton1_Click()
Dim xn As Single, xk As Single, x As Single, y As Single, n As _
Integer, h As Double, st As String
xy.Text = ""
xn = xnv.Text
xk = xkv.Text
n = nv.Text
h = (xk - xn) / n
For x = xn To xk Step h
y = (Sin(x) - 2.7) / (Abs(x) + Sqr(x ^ 4 + 1))
xy.Text = xy.Text & "x=" & x & vbTab & "y=" & y & vbCrLf
Next x
End Sub
Результати розрахунків наведені на рис. 1.5 .
Рисунок 1.5 – Форма з результатами обчислень
Приклад 1.3.2 Дано дійсне x , ряд . Обчислити суму ряду S :
Примітка: Точність вважається досягнута, якщо перший член ряду, що відкидається за абсолютним значенням не перевищує задану точність .
Для наданої задачі розглянемо два способи рішення.
Спосіб 1
Для відображення початкового значення х , n або та розрахункового S використовуємо “Лист2” EXCEL і відповідно клітини B2 , B1 , B4 , як показано на рис. 1.6 .
Розмістимо на цьому же листі CommandButton1 , два перемикачі OptionButton1 , OptionButton2 , які угрупованні за допомогою групи Окно группы 1 .
Рисунок 1.6 – Інтерфейс “Лист2”
Встановимо слідуючи властивості елементів управління, які розміщені на «Лист2»:
|
Елемент(ім’я) |
Властивість |
Значення властивості |
|
OptionButton1 |
Caption |
для заданої кількості членів ряду |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
OptionButton2 |
Caption |
для n=10 |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
Группа |
Изменить текст |
Вибір варіанту |
|
CommandButton1 |
Caption |
Обчислення суми |
|
Font(Начертание; Размер) |
жирный; 12 |
Код програми:
Private Sub CommandButton1_Click()
Dim n As Integer, i As Integer, j As Integer, eps As Single, x As Single
Dim s As Single, sl As Single, p As Double
Worksheets("Лист2").Activate
x = Range("B2").Value
s = 0
If OptionButton1.Value = True Then
n = Range("B1").Value
For i = 1 To n
p = 1
For j = 1 To 2 * i
p = p * j
Next j
sl = (-1) ^ i * x ^ (2 * i) / p
s = s + sl
Next i
ElseIf OptionButton2.Value = True Then
eps = Range("B1").Value
i = 0
Do
i = i + 1
p = 1
For j = 1 To 2 * i
p = p * j
Next j
sl = (-1) ^ i * x ^ (2 * i) / p
s = s + sl
Loop While Abs(sl) >= eps
Else
MsgBox "Не вибраний спосіб розрахунку", vbCritical , "Помилка"
Exit Sub
End If
Range("B4").Value = s
End Sub
Результати роботи програми і розрахунків наведені на рис. 1.7.
Рисунок 1.7 – Результати роботи програми
Спосіб 2
Не важко встановити, що черговий член суми можна одержати за формулою: , де – черговий член суми, – попередній член суми, i – номер члена обчислювальної суми. В цьому прикладі = - x2/2 . Такий вибір розрахунку поточного члену суми дозволяє кожного разу не підраховувати (2i)! .
Для рішення цієї задачі додамо до проекту форму на ім’я “Приклад1_3_2” і розробимо інтерфейс, як показано на рис. 1.8 .
Рисунок 1.8 – Форма “Приклад1_3_2”
Встановимо слідуючи властивості елементів управління форми:
|
Елемент(ім’я) |
Властивість |
Значення властивості |
|
UserForm1 |
Name |
Приклад1_3_2 |
|
Caption |
||
|
Label1 |
Caption |
x = |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
Label2 |
Caption |
Вибір способу розрахунка |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
Label3 |
Caption |
Сума S = |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
TextBox1 |
Name |
xv |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
TextBox2 |
Name |
Sv |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
ListBox1 |
Name |
Lvar |
|
Font(Начертание; Размер) |
жирный; 10 |
|
|
CommandButton1 |
Caption |
Обчислення суми |
|
Font(Начертание; Размер) |
жирный; 12 |
Код програми:
Private Sub UserForm_activate()
Lvar.AddItem ("для заданої кількості членів ряду")
Lvar.AddItem ("з заданою точністю")
End Sub
Private Sub CommandButton1_Click()
Dim n As Integer, i As Integer, eps As Single, x As Single, _
s As Single, sl As Single
Label3.Caption = "сума S="
x = CSng(xv.Text)
sl = -(x ^ 2) / 2: s = sl
If Lvar.ListIndex = 0 Then
n = InputBox(“Ввести кількість членів n=”)
ElseIf Lvar.ListIndex = 1 Then
eps = InputBox(“Задати точність розрахунків =”)
Else
Label3.Caption = "Помилка!"
Sv.Text = "Не обраний спосіб розрахунку"
Exit Sub
End If
If Lvar.ListIndex = 0 Then
For i = 2 To n
sl = sl * (-(x ^ 2) / ((2 * i - 1) * (2 * i)))
s = s + sl
Next i
ElseIf Lvar.ListIndex = 1 Then
i = 1
Do
i = i + 1
sl = sl * (-x ^ 2 / ((2 * i - 1) * (2 * i)))
s = s + sl
Loop While Abs(sl) >= eps
End If
Sv.Text = s
End Sub
Результати розрахунків наведені на рис. 1.9 .
Рисунок 1.9 – Форма з результатами обчислень
Приклад 1.3.3 Протабулювати функцію
,
де х належить інтервалу [-2;2] , крок зміни х – 0,2 . Занести значення х , у на лист Excel у два стовпчика. Для цієї таблиці значень виконати слідуючи завдання:
1) знайти середнє арифметичне тих у , які відповідають від’ємним значенням х ;
2) знайти найменше у та виділити кольором відповідне х ;
3) знайти максимальне значення у , які відповідають додатнім значенням х і підрахувати кількість у в таблиці, що досягають максимального значення;
4) знайти добуток тих значень у , які менші середнього арифметичного із завдання 1).
Для відображення початкового значення, кінцевого значення та кроку зміни х , використовуємо лист EXCEL та відповідні клітини А2 , В2 , С2 , як показано на рис. 1.10 .
Рисунок 1.10 – Інтерфейс приклада 1.3.3
Розмістимо на цьому ж листі п’ять командних кнопок, за якими закріпимо відповідні процедури.
Встановимо слідуючі властивості елементів управління, які розміщені на листі EXCEL :
|
Елемент(ім’я) |
Властивість |
Значення властивості |
|
CommandButton1 |
Caption |
Табулювання функції |
|
Font(Начертание; Размер) |
жирный; 12 |
|
|
WordWrap |
True |
|
|
CommandButton2 |
Caption |
Середнє арифметичне |
|
Font(Начертание; Размер) |
жирный; 12 |
|
|
WordWrap |
True |
|
|
CommandButton3 |
Caption |
Найменше |
|
Font(Начертание; Размер) |
жирный; 12 |
|
|
CommandButton4 |
Caption |
Максимальне |
|
Font(Начертание; Размер) |
жирный; 12 |
|
|
CommandButton5 |
Caption |
Добуток |
|
Font(Начертание; Размер) |
жирный; 12 |
Код програм на командних кнопках:
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
25
Завдання 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
1) знайти середнє геометричне тих x , яким відповідають значення y< 1 ;
2) знайти найменше у та виділити кольором відповідні клітини х та у , для яких у дорівнює найменшому.
2
1) знайти середнє арифметичне у2;
2) знайти максимальне серед значень у , які менші середнього арифметичного із завдання 1) та змінити колір шрифту цих значень.
3
1) знайти найменше у для додатних х та змінити колір шрифту значень х та у , які за це найменше;
2) знайти добуток значень у .
4
1) знайти середнє арифметичне від’ємних у ;
2) знайти мінімальне та максимальне значення у , поміняти місцями ці значення в таблиці та виділити різними кольорами відповідні х .
5
1) знайти мінімальне у для 0,5 1,5 та виділити кольором його і відповідне х ;
2) знайти середнє геометричне тих значень у в таблиці, які менші визначеного мінімального.
6
1) знайти середнє арифметичне тих у<0 , які відповідають від’ємним значенням х ;
2) знайти максимальне значення у<0 , виділити кольором відповідне х та підрахувати кількість значень у в таблиці, які знаходяться між визначеними середнім арифметичним та максимальним.
7
1) знайти мінімальне та максимальне значення у для від’ємних значень х в таблиці, змінити колір шрифту цих значень;
2) знайти добуток у > 1,5 .
8
1) знайти кількість 0,5 < y < 1 ;
2) поміняти місцями максимальне значення у та перше у , яке перевищує 1,6 і виділити кольором відповідні х .
9
1) знайти середнє арифметичне у > 0 після першого від’ємного у ;
2) виділити кольором значення х , при якому у досягає свого найменшого значення.
10
1) знайти середнє арифметичне у < 0 , які відповідають від’ємним значенням х ;
2) знайти максимальне у та змінити його колір шрифту і відповідного х .
11
1) знайти максимальні значення у для х < 0 та для х > 0 і виділити різними кольорами ці х ;
2) знайти добуток тих значень у , які більші меншого максимального значення. Якщо два максимуми співпадають, зробити відповідне повідомлення.
12
1) виділити кольором відповідні х , для яких у поспіль (два і більше разів) мають однакові значення та знайти середнє арифметичне цих х ;
2) знайти мінімальне значення у та поміняти місцями з першим значенням таблиці.
13
1) знайти середнє геометричне тих x , яким відповідають значення y > 1 ;
2) знайти максимальне у та змінити колір шрифту відповідних х та у , для яких у дорівнює максимальному.
14
1) знайти середнє арифметичне х , для яких у 2,5 ;
2) знайти мінімальне серед тих значень у , які більші середнього арифметичного із завдання 1) та змінити колір шрифту цього значення.
15
1) знайти мінімальні у для від’ємних та додатних х , та поміняти їх місцями, змінити колір шрифту відповідних значень х ;
2) підрахувати кількість тих значень у , які більші більшого мінімуму. Якщо значення цих мінімумів співпадають, зробити відповідне повідомлення.
16
1) знайти середнє арифметичне від’ємних у ;
2) знайти мінімальне значення у для від’ємних х , виділити кольором ті х , для яких у співпадає з мінімальним.
17
1) знайти максимальне у для 0 2 та виділити кольором відповідне х ;
2) знайти середнє геометричне значень у , які розташовані після максимального.
18
1) знайти середнє арифметичне тих у , які відповідають від’ємним значенням х ;
2) знайти мінімальне значення у , виділити кольором відповідне х та підрахувати кількість значень у в таблиці, які знаходяться між визначеними середнім арифметичним та мінімальним.
19
1) знайти мінімальні значення у для х < 0 та x > 0 , змінити колір шрифту х , які відповідають цим мінімальнім ;
2) знайти добуток усіх у > 1 , які розташовані між двома мінімумами.
20
1) знайти середнє геометричне 1 < y < 1,5 ;
2) поміняти місцями максимальне та мінімальне значення у і виділити кольором відповідні х .
21
1) знайти середнє арифметичне у > 0 , які розташовані після останнього від’ємного у ;
2) виділити кольором значення х , при якому у досягає свого найменшого значення.
22
1) знайти середнє арифметичне у < 0 та перевірити, чи є серед цих значень такі, що дорівнюють цьому середньому арифметичному;
2) знайти максимальне у та змінити колір його шрифту і відповідного х .
23
1) знайти мінімальне значення у , поміняти його місцями зі значенням на лівому кінці проміжку та виділити різними кольорами відповідні х ;
2) знайти середнє геометричне значень у 2 .
24
1) для у < 0 знайти середнє арифметичне добутку цих у з відповідними х ;
2) знайти мінімальне та максимальне значення у і поміняти їх місцями в таблиці, змінивши колір шрифту цих значень.
25
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 с.