Private Sub Command1_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

Private Sub Command1_Click() - student2.ru

Private Sub Command1_Click() - student2.ru

Private Sub Command1_Click() - student2.ru

9. Результаты расчетов в Mathcad (листинг приведен ниже)

Private Sub Command1_Click() - student2.ru

10. Результаты в VB и Mathcad полностью совпадают

Задание 3

Табулирование разветвляющихся функций на отрезке

Указания к выполнению задания

Для организации счетного цикла используется оператор For/Next . Формат оператора:

For i=iнач To iкон Step di

<тело цикла>

Next I

В данном формате iнач – начальное значение переменной цикла, 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- выравнивание текста в ячейках:

Синтаксис: ИмяCетки. ColAlignment (индекс) = Значение

Можно использовать 10 возможных значений свойства Alignment для управления выравниванием информации в ячейках.

Варианты задач

  №     Функция     Условие   Итервал     Шаг Исходные данные
1. ì a+b___½ ½ ex +cos x z=í(a+b)/(x+1) îex+sin x x<2,3   2,3£ x<5 x³5 xÎ[0;7] 0,5 a=2,7 b=-0,27  
2. ìai4+bi y=ítg(i+0,5) ½ ____ îe2i+Öa2+i3 i<10 i=10   i>10 iÎ[7;12] a=2,2 b=0,3
3. ìax3/2+bx2/3+c s=íax5 î(ax3/2+bx2/3)c x<0,2 0,2£x£1 x>1 xÎ[0,1;1,5] 0,15 a=2,1 b=-3,7 c=0,75
4. ì _______ ½Öat2+bsint+1 z=íat+b ½ __________ îÖ at2+bcost+1   t<0,1 t=0,1   t>0,1 tÎ[-1;1] 0,2 a=2,1 b=0,37
5. ìaesin x +2,5 y=íecos x+a î(sinx)/(a+ex) x<0,3 x=0,3 x>0,3 xÎ[0;1] 0,2 a=1,5  
6. ìctg t+(t+d)3 f=íc/(dt)+ln(t2+c) îsin(c+dt)+cos(d-t) t<0,4 t=0,4 t>0,4 tÎ[0,1;1,1] 0,15 c=0,5 d=1,3
7. ì a ½¾ +bi2+c ½ i y=íi îai+bi3   i<3   3£i£7 i>7 iÎ[2;10] c=-1,5 a=2,1 b=3,15
8. ìax+bx2-c ½ ___ y=ía/x+Öx+1 ½ ___ î(a+bx)/ Öx+1 x<1,2   x=1,2   x>1,2 xÎ[1,2] 0,25 a=1,8 b=-0,5 c=3,5
___ ì(ln3x+x2)/Öx+t ï ___ z=íÖx+t +1/x ï îcosx+tsin2x   x<0,5   x=0,5   x>0,5 xÎ[0,1;2] 0,2 a=1,5 t=2,2
  ìpx2-7/x2 ï _ y=íax3+7Öx ï _ îlg(x+7Öx)     x<1,3   x=1,3   x>1,3 xÎ[0,9;2] 0,2 a=1,5
ìai+b/i ï z=íai2+b îi3 i<5   5£i£10 i>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<a tÎ[1;5] 0,5 a=2,5
ìax-lg ax f=í1 îax+lg ax   ax<1 ax=1 ax>1 xÎ[0,1;1] 0,1 a=1,5
      ìe-bxsin bx y=ícos ax îe-axcos bx     x<a a£x£b x>b xÎ[0;4] 0,5 a=1 b=3
    ìe-Öx cos ax s=ísin ax îe-Öx sin ax   x<a x=a x>a xÎ[2;3] 0,1 a=2,7

Пример выполнения задания

1. Протабулировать функцию на указанном отрезке

Private Sub Command1_Click() - student2.ru

2. Результаты отобразить в MSFLEXGRID

3. Интерфейс пользователя, соответствующий описанному выше, выглядит следующим образом

Private Sub Command1_Click() - student2.ru

4. Программный код, реализующий алгоритм решения

Private Sub Command1_Click()

Dim x As Double

Dim y As Double

Dim k As Integer

Dim xn As Double

Dim xk As Double

Dim dx As Double

k = 0

xn = 0: xk = 6: dx = 0.5

g1.Rows = (xk - xn) / dx + 2

g1.Cols = 4

For i = 0 To 3

g1.ColAlignment(i) = 4

g1.ColWidth(i) = 1800

Next i

g1.TextMatrix(0, 0) = "x"

g1.TextMatrix(0, 1) = "x<2"

g1.TextMatrix(0, 2) = "x=2"

g1.TextMatrix(0, 3) = "x>2"

k = k + 1

For x = xn To xk Step dx

g1.TextMatrix(k, 0) = x

If x < 2 Then

y = x ^ 2

g1.TextMatrix(k, 1) = y

k = k + 1

ElseIf x = 2 Then

y = Log(x) + Tan(x)

g1.TextMatrix(k, 2) = y

k = k + 1

Else

y = (Sin(x) ^ 2) ^ (1 / 3)

g1.TextMatrix(k, 3) = y

k = k + 1

End If

Next x

End Sub

6. Результаты расчетов в VB 6

Private Sub Command1_Click() - student2.ru

Наши рекомендации