загрузка...
загрузка...
На головну

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

  1. II. ФУНКЦІЇ
  2. II. функції
  3. II. ФУНКЦІЇ
  4. II. функції ІТС
  5. II. ФУНКЦІЇ ЦУП
  6. Sub табулювання ()
  7. Адвокат і його функції

табулювання функції - Це обчислення значень функції для деякого набору значень аргументу.

Приклад 5.1. Виконати табулювання функції y = 2x (x + b) для змінної x, значення якої змінюється від початкового до кінцевого значення з постійним позитивним кроком.

Результати обчислення вивести на робочий лист Excel.

Таблиця відповідності змінних

 позначення завданні  Імяпеременной  Тіппеременной  коментар
y y речовинний Результат. значення функції
x x речовинний Поточне значення аргументу функції
b b речовинний Початкове дане. числова константа
Початкове значення x XN речовинний початкове дане
Кінцеве значення x XK речовинний початкове дане
крок зміни значення x DX речовинний Початкове дане (> 0)
N цілий Номер ітерації обчислення

Аналіз вихідних даних:

 ім'я змінної  Недопустиме значення  ситуація
XN, XK XN> XK Ввід данних
DX ? 0 Ввід данних

Введені значення змінних XN, XK и DX зручно перевіряти за допомогою наступного логічного виразу

(XK <= XN) Or (DX <= 0)

Очевидно, що якщо цей вислів істинно, то введені дані є некоректними.

Графічна схема алгоритму представлена ??на рис.5.2, результати тестування програми - на рис.5.3.

Sub Pr5_1 ()

 Dim y As Single, x As Single, b As Single

 Dim XN As Single, XK As Single, DX As Single

 Dim N As Byte

'Введення вихідних даних

 b = InputBox ( "Введи значення b")

 XN = InputBox ( "Введи початкове значення х")

 XK = InputBox ( "Введи кінцеве значення х")

 DX = InputBox ( "Введи крок зміни х")

'Перевірка вихідних даних

 If (XK <= XN) Or (DX <= 0) Then

 Cells (1, 1) = "Введено некоректні дані:"

 Cells (2, 1) = "XN =" & CStr (XN)

 Cells (3, 1) = "XK =" & CStr (XK)

 Cells (4, 1) = "DX =" & CStr (DX)

 Else

'Виконання розрахунків і виведення результатів

 Cells (1, 1) = "№"

 Cells (1, 2) = "x"

 Cells (1, 3) = "y"

 N = 1

 x = XN

 While x <= XK

 y = 2 * x * (x + b)

 Cells (1 + N, 1) = N

 Cells (1 + N, 2) = x

 Cells (1 + N, 3) = y

 N = N + 1

 x = x + DX

 Wend

 Cells (1 + N + 1, 1) = "При b =" & CStr (b)

 End If

End Sub

Приклад 5.2. Виконати табулювання функції

для змінної x, значення якої змінюється від початкового до кінцевого значення з постійним позитивним кроком.

Результати обчислення вивести в Excel. Вивести номер формули обчислення.

Таблиця відповідності змінних

 позначення завданні  Імяпеременной  Тіппеременной  коментар
y y речовинний Результат. значення функції
x x речовинний Поточне значення аргументу функції
Початкове значення x XN речовинний початкове дане
Кінцеве значення x XK речовинний початкове дане
Крок зміни значення x DX речовинний початкове дане
N цілий Номер ітерації обчислення
f цілий Номер формули обчислення

Аналіз вихідних даних: початкове, кінцеве значення змінної x і крок її модифікації, - цього прикладу аналогічний аналізу вихідних даних прикладу 5.1. Однак потрібно додатковий аналіз поточного значення аргументу функції, тому що від його значення залежить вибір функціональної залежності: по формулі 1, 2 або 3.

Графічна схема алгоритму представлена ??на рис.5.4, а результати тестування програми - на рис.5.5.

Sub Pr5_2 ()

 Dim y As Single, x As Single

 Dim XN As Single, XK As Single, DX As Single

 Dim N As Byte, f As Byte

'Введення і перевірка вихідних даних

 XN = InputBox ( "Введи початкове значення х")

 XK = InputBox ( "Введи кінцеве значення х")

 DX = InputBox ( "Введи крок зміни х")

 If (XK <= XN) Or (DX <= 0) Then

 Cells (1, 1) = "Введено некоректні дані:"

 Cells (2, 1) = "XN =" & XN: Cells (3, 1) = "XK =" & XK

 Cells (4, 1) = "DX =" & DX

 Else

'Виконання розрахунків і виведення результатів

 Cells (1, 1) = "№": Cells (1, 2) = "x" 'Висновок шапки таблиці

 Cells (1, 3) = "y": Cells (1, 4) = "Формула"

 N = 1 'Номер обчислень

 For x = XN To XK Step DX 'Обчислення

 If x> 3 Then

 y = x - 1: f = 1 'За формулою 1

 ElseIf x <-3 Then

 y = x + 1: f = 2 'За формулою 2

 Else

 y = x ^ 2: f = 3 'За формулою 3

 End If

 Cells (1 + N, 1) = N: Cells (1 + N, 2) = x 'Номер обчислень і значення х

 Cells (1 + N, 3) = y: Cells (1 + N, 4) = f 'Висновок y і номера формули

 N = N + 1 'Модифікація значення номера обчислень

 Next

 End If

End Sub

Для програмування циклічних дій в наведених вище прикладах використовуються різні оператори циклу: в прикладі 5.1 - це оператор While ... Wend, А в прикладі 5.2 - оператор For ... Next.

ЛІТЕРАТУРА

1. Васильєв А., Андрєєв А. VBA в Jffice 2000: навчальний курс.-СПб .: Питер, 2001. -432с.

2. Гарнаев А.Ю. Excel, VBA, Internet в економіці і фінансах. - СПб .: БХВ-Петербург, 2002. - 816 с .; мул.

3. Кузьменко В.Г. Програмування на VBA 2002. - М .: ТОВ «Біном-Пресс», 2003 р - 880 с .; мул.

4. Санна Пол і ін. Visual Basic для додатків (версія5) в оригіналі: пров. з англ. - СПб .: BHV - Санкт-Петербург, 1998. - 704 с.

5. Браун С. Visual Basic 6: навчальний курс. - СПб .: Пітер, 2002. - 576 с .: іл.

6. Карпов Б. Visual Basic 6: спеціальний довідник. - СПб .: Пітер, 2002. - 416 с .: іл.

7. Райтінгер М., Муч Г. Visual Basic 6.0: пров. З нього. - К .: Видавнича група BHV, 2000. - 288 с. (Серія «Бібліотека студента»)



Попередня   1   2   3   4   5   6   7   8   9   10   11   12   13   14

типи даних | змінні | константи | Операції і оператори VBA | Вбудовані функції VBA | вирази | оператор присвоювання | структура програми | Правила оформлення коду | Програмування лінійних алгоритмів |

загрузка...
© um.co.ua - учбові матеріали та реферати