Приватна підкоманда1_Click()
x = Text1.Text
If x = 0 Then
Text3.Text = 99
ElseIf x > 0 Then
Text2.Text = x^(1/2)
Else
Text4.Text = -(Abs(x) ^ (1 / 3))
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
8. Результати розрахунків у VB 6
9. Результати розрахунків у Mathcad (листинг наведено нижче)
10. Результати в VB та Mathcad повністю збігаються
Завдання 3
Табулювання функцій, що розгалужуються, на відрізку
Вказівки до виконання завдання
Для організації лічильного циклу використовується оператор For/Next. Формат оператора:
For i=інач To ікон Step di
У даному форматіінач- початкове значення змінної циклу,iкон- кінцеве значення змінної циклу, аdi- крок збільшення значення змінної циклу.
Між For та Next укладено тіло циклу.
Об'єктMSFlexGrid – сітка призначена для виведення даних на екран.
Для активізаціїMSFlexGrid необхідно виконати пункт менюComponents у меню Project і вибратиMicrosoft Flex Grid Control 5.0.
Основні властивостіMSFlexGrid
Cols,Rows - встановлює кількість колонок та стовпців.
Col,Row - повертають/ встановлюють номер колонки та рядки.
ColWidth, RowHeight - ширина та висота стовпця. Синтаксис використання цих властивостей аналогічнийпопередній приклад.
Text, TextMatrix - повертає або встановлює текст, що зберігається в поточній комірці. Властивість TextMatrix має синтаксис:
TextMatrix (номер рядка, номер стовпця) = інформація
ColAlignment - вирівнювання тексту в осередках:
Синтаксис: Ім'яСітки. ColAlignment (індекс) = Значення
Можна використовувати 10 можливих значень якості Alignment для управління вирівнюванням інформації в осередках.
Варіанти завдань
| № | Функція | Умова | Ітервал | Крок | Вихідні дані |
| 1. | ìa+b___½ ½ e x +cos x z=і(a+b)/(x+1) îe x +sin x | x 4 +bi y=ítg(i+0,5) ½ ____ îe 2i +Öa 2 +i 3 | i 10 | iÎ[7;12] | a = 2,2 b = 0,3 |
| 3. | ìax 3/2 +bx 2/3 +c s=iax 5 î(ax 3/2 +bx 2/3 )c | x 1 | xÎ[0,1;1,5] | 0,15 | a = 2,1 b = -3,7 c = 0,75 |
| 4. | ì _______ ½Öat 2 +bsint+1 z=íat+b ½ __________ îÖ at 2 +bcost+1 | t 0,1 | tÎ[-1;1] | 0,2 | a = 2,1 b = 0,37 |
| 5. | ìae sin x +2,5 y=íe cos x+a î(sinx)/(a+e x ) | x 0,3 | xÎ[0;1] | 0,2 | a=1,5 |
| 6. | ?ct t+(t+d) 3 f=íc/(dt)+ln(t 2 +c) îsin(c+dt)+cos(d-t) | t 0,4 | tÎ[0,1;1,1] | 0,15 | c = 0,5 d = 1,3 |
| 7. | ì a ½¾ +bi 2 +c ½ i y=íi îai+bi 3 | i 7 | iÎ[2;10] | c=-1,5 a=2,1 b=3,15 | |
| 8. | ìax+bx 2 -c ½ ___ y=ia/x+Öx+1 ½ ___ î(a+bx)/ Öx+1 | x 1,2 | xÎ[1,2] | 0,25 | a=1,8 b=-0,5 c=3,5 |
| ___ ì(ln 3 x+x 2 )/Öx+t ï ___ z=íÖx+t +1/x ïîcosx+tsin 2 х | х 0,5 | xÎ[0,1;2] | 0,2 | a=1,5 t=2,2 | |
| ìpx 2 -7/x 2 ï _ y=íax 3 +7Öx ï _ îlg(x+7Öx) | х 1,3 | xÎ[0,9;2] | 0,2 | а=1,5 | |
| ìai+b/i ï z=ìai 2 +b ìi 3 | я 10 | iÎ[3;15] | a=2 b=-0,5 | ||
| 3 ___ ìt Ö t-a s=ít sin at îe -atcos at | t>a t=a t | tÎ[1;5] | 0,5 | а=2,5 | |
| ìax-lg ax f=í1 îax+lg ax | сокира 1 | xÎ[0,1;1] | 0,1 | а=1,5 | |
| ìe -bxsin bx y=ícos ax îe -axcos bx | xb | xÎ[0;4] | 0,5 | a=1 b=3 | |
| ìe - Ö x cos ax s=ísin ax îe - Ö x sin ax | xa | xÎ[2;3] | 0,1 | а=2,7 |
Приклад виконання завдання
1. Протабулюйте функцію на вказаному сегменті
2. Відобразіть результати в MSFLEXGRID
3. Інтерфейс користувача, який відповідає описаному вище, виглядає так
4. Програмний код, який реалізує алгоритм розв’язання
Приватна підкоманда1_Click()
Dim x As Double
Dim y As Double
Dim k як ціле число
Dim xn As Double
Dim xk As Double
Dim dx As Double
xn = 0: xk = 6: dx = 0,5
g1. Рядки = (xk - xn) / dx + 2
g1.TextMatrix(0, 0) = "x"
g1.TextMatrix(0, 1) = "x 2"
Для x = xn До xk Крок dx
g1.TextMatrix(k, 0) = x