Page 116 - 4450

чергу процедура R при кожному звертанні до неї сама тричі
звертається до підпрограми Fakt(z,p), Це здійснюється
послідовністю операторів
Call Fakt(u, C1)
Call Fakt(v, C2)
Call Fakt(u - v, C3)
В наслідок виконання яких, отримуємо C1=u!, C2=v!,
C3=(u-v)!

Рисунок 18.3 – Результат обчислення ймовірності

Приклад. Обчислити наближене значення функції
 (  )1 n  x 2  i 1
S   i
Лапласа для 0< x <5 за формулою i 2  i2(  )1 2 i! з
точністю до 0.00001.
На формі розмістимо лише один елемент управління –
командну кнопку, якій дамо ім’я Обчислити. Значення x
будемо вводити за допомогою функції InputBox, а результат
виводити безпосередньо на форму за допомогою оператора
Print (рис.18.4).
Private Sub Обчислити_Click()
Dim Fi As Single, x As Single, eps As Single, i As
Integer
s = 0

114