3.4 Індивідуальне завдання 4

Задача 4.1. За­да­но дійсне чис­ло x=0.68№ (де № – но­мер ва­рі­ан­ту) і ці­ле чис­ло n=10. Відповідно до номера варіанту потрібно розробити програму для обчислення значень елементів од­но­ви­мір­но­го ма­си­ву за за­да­ни­ми фор­му­ла­ми:

;

Об­чис­ли­ти:

• се­реднє зна­чен­ня еле­мен­тів ма­си­ву (C);

• мі­ні­маль­не (m) та мак­си­маль­не (M) зна­чен­ня еле­мен­тів ма­си­ву;

зна­чен­ня ариф­ме­тич­но­го ви­ра­зу

Результати розрахунку, виконані у середовищі Excel

Текст програми у режимі формул – для середовища Excel

Клі­ти­на F11  0,68*D11 – <Enter>

Клі­ти­ни D14:D23  =COS(C14+5)^2/(C14+EXP(C14+0,8))+LOG10(C14^1,4+0,8)– <Ctrl + Enter>

Клі­ти­на D24  =СУММ(D14:D23) – <Enter>

Клі­ти­на G18  =СРЗНАЧ(D14:D23) – <Enter>

Клі­ти­на G19  =МАКС(D14:D23) – <Enter>

Клі­ти­на G20  =МИН(D14:D23) – <Enter>

Клі­ти­на G22  =H19*H20/(H18+H19)*D24*(D14/C14^3)-(LN(ABS(H20/H19-ABS(H18)^3,32))/LN(5))^22– <Enter>

Тексти функцій і процедур – для середовища Visual Basic

Function Fn_Ai(x, i) As Single Dim a1, a2 As Single a1 = (i ^ (3 / i) + 3) / Cos(i + 2) a2 = LogN((i + 1), 2) ^ 3 / Sin(i + 3) ^ 2 Fn_Ai = a1 - a2 End Function

Function CrZn(a, n) As Single CrZn = SumE(a, n) / n End Function Function LogN(x, n) As Single Dim i As Byte LogN = Log(x) / Log(n) End Function

Function MaxE(a, n) As Single Dim m As Single Dim i As Byte m = a(1) For i = 2 To n If m < a(i) Then m = a(i) Next i MaxE = m End Function	Function MinE(a, n) As Single Dim m As Single Dim i As Byte m = a(1) For i = 2 To n If m > a(i) Then m = a(i) Next i MinE = m End Function
Function SumE(a, n) As Single Dim c As Single Dim i As Byte c = 0 For i = 1 To n c = c + a(i) Next i SumE = c End Function

Sub Zavd_4_1()

Dim n, nr, i As Integer

Dim Sum, Czn, Max, Min, z As Single

Dim a(20) As Single

nr = 16 ' номер рядка розрахунку

x = 0.68 * Cells(nr, 4).Value: Cells(nr, 5).Value = "x=":

Cells(nr, 6).Value = x: n = Cells(nr, 8).Value

nr = nr + 1: Cells(nr, 3).Value = "Результат розрахунку"

nr = nr + 1: Cells(nr, 3).Value = "i": Cells(nr, 4).Value = "Ai":

For i = 1 To n

a(i) = Fn_Ai(x, i)

Cells(nr + i, 3).Value = i: Cells(nr + i, 4).Value = a(i)

Next i

Sum = SumE(a, n): Czn = CrZn(a, n):

Max = MaxE(a, n): Min = MinE(a, n)

nr = nr + n + 1

Cells(nr, 3).Value = "S=": Cells(nr, 4).Value = Sum

Cells(nr - 6, 6).Value = "C=": Cells(nr - 6, 7).Value = Czn

Cells(nr - 5, 6).Value = "M=": Cells(nr - 5, 7).Value = Max

Cells(nr - 4, 6).Value = "m=": Cells(nr - 4, 7).Value = Min

z = ((Max * Min) / (Czn + Max) * Sum) - LogN(Abs(Min / Max - Abs(Czn) ^ 2.32), 3) ^ 0.2

Cells(nr - 2, 6).Value = "Z=": Cells(nr - 2, 7).Value = z

Cells(nr, 6).Value = "К³нець розрахунку"

End Sub

Задача 4.2. За­да­но дійсне чис­ло x=2.7№ (де № – но­мер ва­рі­ан­ту) і ці­лі чис­ла m=10 і n=5. Відповідно до номера варіанту потрібно розробити програму для обчислення значень елементів двох матриць

і

за за­да­ни­ми фор­му­ла­ми:

Виз­на­чи­ти кіль­кос­ті до­дат­них еле­мен­тів у ряд­ках мат­ри­ці А, за ви­нят­ком пер­шо­го і ос­танньо­го

Тексти функцій і процедур – для середовища Visual Basic

Function Fn_Aij(x, i, j) As Single Dim a1, a2 As Single a1 = i * i a2 = j ^ 3 * (Cos(i + j) / Exp(-1 * (i + 2))) Fn_Aij = a1 + a2 End Function

Function Fn_Bij(x, i, j) As Single Dim b1, b2 As Single b1 = Atn(i - j) b2 = Log(i / j + x) Fn_Bij = b1 / b2 End Function

Sub Zavd_4_2()

Dim m, n, nr, ns, i, j As Integer

Dim a(10, 10), b(10, 10) As Single

Dim x As Single

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

nr = 18 ' номер рядка розрахунку

ns = 2 ' номер стовпця розрахунку

x = 2.7 * Cells(nr, ns).Value

Cells(nr, ns + 1).Value = "x=": Cells(nr, ns + 2).Value = x

m = Cells(nr, ns + 5).Value: n = Cells(nr, ns + 7).Value

' Виведення позначення елемент³в масиву

nr = nr + 2: Cells(nr - 1, ns + 1).Value = "Результат розрахунку"

' Обчислення та виведення елемент³в матриц³ <A>

Cells(nr - 1, ns - 1).Value = "A": Cells(nr, ns - 1).Value = "i\j"

For i = 1 To m

Cells(nr + i, ns - 1).Value = i

For j = 1 To n

Cells(nr, ns - 1 + j).Value = j:

a(i, j) = Fn_Aij(x, i, j)

Cells(nr + i, ns - 1 + j).Value = a(i, j)

Next j

Next i

' Обчислення та виведення елемент³в матриц³ <B>

ns = 10

Cells(nr - 1, ns - 1).Value = "B": Cells(nr, ns - 1).Value = "i\j"

For i = 1 To m

Cells(nr + i, ns - 1).Value = i

For j = 1 To n

Cells(nr, ns - 1 + j).Value = j:

b(i, j) = Fn_Bij(x, i, j)

Cells(nr + i, ns - 1 + j).Value = b(i, j)

Next j

Next i

' Визначити к³лькост³ додатн³х елемент³в у кожному ³з стовпц³в матриц³ <А>

Cells(nr + m + 2, ns - 7).Value = "Kåë>0="

For j = 1 To n

k = 0

For i = 1 To m

If (a(i, j)) > 0 Then k = k + 1

' End If

If (a(i, j)) > 0 Then Cells(nr + m + 2, ns - 7 + j).Value = k

' End If

Next i

If k < 0 Then

Cells(nr + m + 2, ns - 7 + j).Value = "---"

End If

Next j

Cells(nr + m + 3, 8).Value = "К³нець розрахунку"

End Sub