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

Задача 4.3. За­да­но дійсне чис­ло x=1.3№ (де № – но­мер ва­рі­ан­ту) і ці­ле чис­ло n=10. От­ри­ма­ти од­но­ви­мір­ний ма­сив згід­но з та­ки­ми ма­те­ма­тич­ни­ми ви­ра­за­ми:

З еле­мен­тів од­но­ви­мір­но­го ма­си­ву пот­ріб­но от­ри­ма­ти еле­мен­ти дво­ви­мір­но­го ма­си­ву згід­но з та­ки­ми ма­те­ма­тич­ни­ми ви­ра­за­ми:

;

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

Клі­ти­на E68  1,3*C68 – < Enter>

Клі­ти­ни C72:C81  =COS(ABS(($C72+1,3*D$71)/($C72+2,65)))+$C72^3– <Ctrl + Enter>

Клі­ти­ни D71:M71  =TRANSPOSE(C72:C81)– <Ctrl + Enter>

Клі­ти­ни D72:M81  =COS(ABS(($C72+1,3*D$71)/($C72+2,65)))+$C72^3– <Ctrl + Enter>

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

Function FnAi(x, i) As Single Dim a1, a2 As Single a1 = (Cos(x + Faktr(i)) ^ 2) / (i * i - 3) a2 = Sin(i * i) FnAi = a1 + a2 End Function

Function FnBij(ai, aj) As Single Dim b1 As Single b1 = ((aj + 3 * ai) / (Abs(ai - 1.2))) * (aj ^ 2 + 2) FnBij = b1 End Function

Sub Zavd_4_3()

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

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

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

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

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

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

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

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

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

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

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

Cells(nr - 1, ns).Value = "B": Cells(nr + 1, ns).Value = "ai\aj"

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

For j = 1 To n

Cells(nr, ns + j).Value = j

a(j) = FnAi(x, j)

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

Next j

For i = 1 To n

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

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

For j = 1 To n

b(i, j) = FnBij(a(i), a(j))

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

Next j

Next i

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

End Sub

Задача 4.4. За­да­но одне дійсне чис­ло x=1.32№ (де № – но­мер ва­рі­ан­ту) і два ці­лі чис­ла m=10 i n=5, за якими не­об­хід­но от­ри­ма­ти еле­мен­ти век­то­ра та елементи мат­ри­ці згід­но з та­ки­ми ма­те­ма­тич­ни­ми ви­ра­­за­ми:

; ;

'

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

Клі­ти­на E98  5,3*C98 – < Enter>

Клі­ти­ни C101:C110  (1+(ABS(COS(($E$98+B101)^0,4)^2))^(1/3))/ (0,67+$E$98^2+TAN(B101^3)^2)+SIN(3*$E$98/B101) – <Ctrl + Enter>

Клі­ти­ни F101:J110  F$111*($E$98+$E101/ФАКТР(F$100))/($E101^2+3*F$100+1,46) – <Ctrl + Enter>

Клі­ти­ни K101:K110  ЕС­ЛИ(C101>0;СУМ­МЕС­ЛИ(F101:J101;">0")/ СЧЁТЕС­ЛИ(F101:J101;">0");"---") – <Ctrl + Enter>

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

Function FunAi(x, i) As Single Dim a1, a2, a3 As Single a1 = 1 + Abs(Cos((x + i) ^ 0.2) ^ 2) ^ (1 / 2) a2 = 1 + x ^ 2 + Sin(i ^ 3) ^ 2 a3 = Tan(3 * x / i ^ i) FunAi = a1 / a2 + a3 End Function

Function FnCij(x, i, j) As Single Dim b1, b2 As Single b1 = (Faktr(i) + 1) ^ 0.2 b2 = i + Cos((x + j) ^ 2) FnCij = b1 / b2 End Function

Sub Zavd_4_4()

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

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

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

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

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

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

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

m = Cells(nr, ns + 4).Value: n = Cells(nr, ns + 6).Value

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

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

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

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

Cells(nr, ns - 1).Value = "i": Cells(nr, ns).Value = "ai"

For i = 1 To m

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

a(i) = FunAi(x, i)

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

Next i

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

Cells(nr - 1, ns + 3).Value = "C":

Cells(nr, ns + 2).Value = "i\j": Cells(nr, ns + 3 + n).Value = "S>0:ai>0"

Cells(nr + m + 1, ns + 2).Value = "(-1) ^ i"

z = -1

For j = 1 To n

Cells(nr, ns + 2 + j).Value = j

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

Next j

For i = 1 To m

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

For j = 1 To n

b(i, j) = z * FnCij(x, i, j): z = -z

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

Next j

Next i

' Обчислення у в³дзначених рядках матриц³ <C> суми

' значення з додатних його елемент³в

For i = 1 To m

If a(i) > 0 Then

c = 0: k = 0

For j = 1 To n

If b(i, j) > 0 Then

c = c + b(i, j): k = k + 1

End If

Next j

If k > 0 Then Cells(nr + i, ns + 3 + n).Value = c

Else

Cells(nr + i, ns + 3 + n).Value = "---"

End If

Next i

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

End Sub