Page 117 - 4450
P. 117
i = 0: eps = 0.00001
x = Val(InputBox("x=", " Ввести значення x"))
Do
a = (-1) ^ i * x ^ (2 * i + 1) / (2 * 3.14159) ^ 0.5 / ((2 * i +
1) * 2 ^ i * Fact(i))
i = i + 1
s = s + a
Loop Until (Abs(a) < eps)
Print x, Format(s, "#.#####")
End Sub
Function Fact(i)
P = 1
For t = 1 To i
P = P * t
Next t
Fact = P
End Function
Рисунок 18.4 – Результат обчислення функції Лапласа
Приклад. Створити за допомогою генератора
випадкових чисел Матрицю А. Показати її у вікні Текст1.
Впорядкувати її за зростанням. Знайти суму позитивних
елементів матриці.
1. Відкрити новий проект. На формі встановити
командну кнопку Пуск і два елементи TextBox з розмірами
достатніми для відображення матриць (рис. 18.5). Суму
позитивних елементів передбачається вивести у вікні MsgBox
(рис. 18.6).
2. У вікнах властивостей текстових вікон очистити
властивості Текст, а властивостям Multiline надати значення
Так.
115
