3.3 Індивідуальне завдання 3
Задача 3.1.
Задано дійсне число x=1.68№
(де № – номер варіанту)
і ціле число n=10. Відповідно до
номера варіанту потрібно розробити
програму для обчислення
значення скінченої суми/добутку c=f[x,n]
згідно з наведеними нижче математичними
виразами. Побудувати одновимірну
гістограму для функції c=f[x,i].
Текст програми у режимі формул – для середовища Excel
Клітини C6:C15 =(($C$2+ФАКТР(B7))/(B7^2-3*$C$2+B7))+EXP(-(($C$2+C$3)/C$3))– <Ctrl + Enter>
Клітина C16 =ПРОИЗВЕД(C6:C15)– < Enter>
Клітина C17 =Fn_D2(C2;C3)– < Enter>
Тексти функцій – для середовища Visual Basic
Function Fn_D1(x, n) As Single
Dim i As Byte
For i = 1 To n
s = s + (Faktor(i) + x) / (i * i - 3) + Cos(i * i)
Next i
Fn_D1 = s
End Function
Function Faktor(n) As Variant
If (n < 0) Or (n > 170) Then
Faktor = 0
ElseIf (n = 0) Or (n = 1) Then
Faktor = 1
Else
Faktor = n * Faktor(n - 1)
End If
Результати розрахунку, виконані у середовищі Excel
Задача 3.2. Задано дійсне число x=0.28№ (де № – номер варіанту) і ціле число n=10. Відповідно до номера варіанту потрібно розробити програму для обчислення значення скінченої суми/добутку c=f[x,n] згідно з наведеними нижче математичними виразами. Побудувати одновимірну гістограму для функції c=f[x,i].
Текст програми у режимі формул – для середовища Excel
Клітини D6:D15 =C6*(($C$2+ФАКТР(B6))/($C$2+(B6^2)-3)) – <Ctrl + Enter>
Клітина D16 =ПРОИЗВЕД(D6:D15) – < Enter>
Клітина D17 =Fn_D1(C2;C3)– < Enter>
Тексти функцій – для середовища Visual Basic
Function Fn_D2(x, n) As Single
Dim d, c As Single
Dim i As Byte
s = 0: z = 1
For i = 1 To n
s = s + (z * ((Faktor(i) + x) / (i ^ 2 - 3) + i * i))
z = -z
Next i
Fn_D2 = s
End Function
Function Faktor(n) As Variant
If (n < 0) Or (n > 170) Then
Faktor = 0
ElseIf (n = 0) Or (n = 1) Then
Faktor = 1
Else
Faktor = n * Faktor(n - 1)
End If
Результати розрахунку, виконані у середовищі Excel
Задача 3.3. Задано дійсне число x=0.62№ (де № – номер варіанту). Відповідно до номера варіанту потрібно розробити програму для обчислення значення безмежної суми c=f[x,] з заданою точністю =0.001 згідно з наведеними нижче математичними виразами. Вважати, що необхідна точність досягнута, якщо обчислено суму декількох початкових доданків, а значення поточного доданку виявилось за модулем меншим, ніж , тобто цим і всіма наступними доданками можна знехтувати. Побудувати одновимірну гістограму для функції c=f[x,i].
Текст програми у режимі формул – для середовища Excel
Клітини D6:D15 =C6*((EXP(($C$2+B6)^2))/(ФАКТР(B6)-$C$2+3))– <Ctrl + Enter>
Клітини E6:E15 =ЕСЛИ(ABS(D6)>=$C$3;D6;"Stop")– <Ctrl + Enter>
Клітина E16 =СУММЕСЛИ(E67:E75;"<>Stop")
Клітина E17 ==Fn_S3(C2;C3)
Результати розрахунку, виконані у середовищі Excel
Тексти функцій – для середовища Visual Basic
Function Fn_S3(x, e) As Single
Dim s, c, z As Single
Dim i As Byte
s = 0: i = 1: z = -1
c = z * (Cos(i + 1)) / ((x + Faktor(i)) ^ 0.32)
While Abs(c) >= e
s = s + c
i = i + 1
z = -z
c = z * (Cos(i + 1)) / ((x + Faktor(i)) ^ 0.32)
Wend
Fn_S3 = s
End Function
Function Faktr(n) As Double
Dim f As Double
Dim i As Byte
f = 1
If n >= 2 Then
For i = 2 To n
f = i * f
Next i
End If
Faktr = f
End Function
Задача 3.4.
Задано дійсне число x=1.61№
(де № –
номер варіанту)
і цілі числа m=10
i n=5.
Відповідно до номера варіанту потрібно
розробити програму для обчислення
значення подвійної суми/добутку
c=f[x,m,n]
згідно з наведеними нижче математичними
виразами. Побудувати двовимірну
гістограму для функції c=f[x,i,j].
Текст програми у режимі формул – для середовища Excel
Клітини С6:H15 =(C$4*(($C$2+$B6)^2))/(ФАКТР($B6)-C$5+3)– < Ctrl + Enter>
Клітини H6:H15 = СУММ(C6:G6)– <Ctrl + Enter>
Клітини С16:G16 =СУММ(C6:C14)– <Ctrl + Enter>
Клітина h17 =Fn_S4(C2;E2;G2)
Результати розрахунку, виконані у середовищі Excel
Тексти функцій – для середовища Visual Basic
Function Fn_S4(x, m, n) As Single
Dim s, d, c As Single
Dim i, j As Byte
s = 0
For j = 1 To n
d = 1: z = -1
For i = 1 To m
ñ = Sin((x + j) ^ 2)
d = d * z * ñ / (Faktor(i) + x + 2)
z = -z
Next i
s = s + d
Next j
Fn_S4 = s
End Function
