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

Dim A(10), B(10, 10) As Single

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

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

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 + 2, 3) .Value ="Кінець розрахунку"

End Sub

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

; .

Ря­док з но­ме­ром і мат­ри­ці C наз­ве­мо від­зна­че­ним, як­що a_i>0, і не від­зна­че­ним – в ін­шо­му ви­пад­ку. Відповідно до номера варіанту потрібно розробити програму, яка б да­ва­ла змо­гу у від­зна­че­них ряд­ках мат­ри­ці виз­на­чи­ти се­реднє ариф­ме­тич­не зна­чен­ня з до­дат­них їх еле­мен­тів.

	B	C	D	E	F	G	H	I	J	K
	№=		х=	21,2	m=		n=
		A			C
	i	ai		i\j						S>0: ai>0
		0,699			4,066	-2,565	1,864	-1,469	1,215	2,382
		0,379			2,742	-1,937	1,489	-1,219	1,037	1,756
		0,715			1,798	-1,379	1,115	-0,949	0,834	1,249
		-0,187			1,232	-0,989	0,826	-0,725	0,654	---
		0,157			0,889	-0,730	0,621	-0,557	0,512	0,674
		-0,919			0,672	-0,557	0,478	-0,434	0,405	---
		0,337			0,527	-0,437	0,376	-0,344	0,325	0,409
		0,999			0,427	-0,353	0,303	-0,278	0,264	0,331
		0,710			0,353	-0,291	0,248	-0,228	0,218	0,273
		0,081			0,299	-0,244	0,207	-0,191	0,183	0,229
				(-1)^j-1		-1		-1

Текст програми у режимі формул – для середовища 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

' Обчислення значень елементів масиву {A} Function FunAi(x, i) As Single Dim a1, a2, a3 As Single a1 =1 + Abs(Cos((x + i) ^ 0.4) ^ 2) ^ (1 / 3) a2 =0.67 + x ^ 2 + Tan(i ^ 3) ^ 2 a3 =Sin(3 * x / i) FunAi =a1 / a2 + a3 End Function	' Обчислення середнього значення серед ' додатних елементів масиву Function CrZnd(A, n) As Single Dim c As Single Dim i, k As Byte c =0: k =1 For i =1 To n If A(i) > 0 Then c =c + A(i): k =k + 1 End If Next i If k > 0 Then CrZnd =c / k Else CrZnd =0 End Function
' Обчислення елементів матриці <B> Function FnCij(x, i, j) As Single Dim b1, b2 As Single b1 =x + i / Faktr(j) b2 =i ^ 2 + 3 * j + 1.46 FnCij =b1 / b2 End Function

Sub Zavd_4_4()

Дата добавления: 2015-11-14