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

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

Dim x As Single

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

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

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

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 - 1) .Value ="Kнп<0="

For j =1 To n

If (j Mod 2) =1 Then

k =0

For i =1 To m

If B(i, j) < 0 Then k =k + 1

Next i

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

Else

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

End If

Next j

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

End Sub

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

.

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

.

	B	C	D	E	F	G	H	I	J	K	L	M
	№=		х=	5,2		n=
			B
		j
	i	ai\aj	-12,54	-3,42	-0,74	-0,03	0,75	3,23	14,65	78,55	497,87	3628,93
		-12,54	-439,57	-50,96	-19,32	-0,89	21,86	106,90	646,23	5419,94	59055,97	779543,48
		-3,42	-18,52	-3,14	-0,38	-0,02	0,64	3,55	23,77	207,41	2280,01	30140,70
		-0,74	-548,61	-99,82	-12,53	-0,41	15,36	96,45	678,27	5996,36	66092,93	874097,85
		-0,03	-668,64	-123,49	-16,93	-0,26	17,24	114,61	818,53	7263,02	80111,51	1059620,10
		0,75	-67,61	-12,67	-1,86	-0,05	1,54	11,25	81,88	729,50	8052,73	106525,47
		3,23	-20,48	-3,99	-0,66	-0,02	0,37	3,06	23,96	216,40	2394,84	31692,94
		14,65	-23,53	-5,11	-0,98	-0,04	0,90	2,83	23,43	228,55	2559,76	33938,71
		78,55	-27,24	-6,83	-1,44	-0,06	1,43	5,94	21,40	190,94	2321,28	31109,19
		497,87	-63,76	-17,11	-3,70	-0,16	3,72	15,93	70,63	315,95	3132,67	45759,49
		3628,93	-85,39	-23,24	-5,05	-0,22	5,09	21,88	99,02	521,67	2840,70	31198,19

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

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

Клі­ти­ни C72:C81 à (ФАКТР(B72)-$E$68^2+1)/(B72^3+COS($E$68+B72^2)) – <Ctrl + Enter>

Клі­ти­ни D71:M71 à ТРАНСП(C72:C81) – <Ctrl + Enter>

Клі­ти­ни D72:M81 à D$71*ABS($C72-3,2*D$71)^0,3/(1+SIN($C72-1,2)) – <Ctrl + Enter>

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

' Обчислення значень елементів масиву {A} Function FnAi(x, i) As Single Dim a1, a2 As Single a1 =Faktr(i) - x ^ 2 + 1 a2 =i ^ 3 + Cos(x + i ^ 2) FnAi =a1 / a2 End Function

' Обчислення елементів матриці <B> Function FnBij(ai, aj) As Single Dim b1, b2 As Single b1 =Abs(ai - 3.2 * aj) ^ 0.3 b2 =1 + Sin(ai - 1.2) FnBij =aj * b1 / b2 End Function

Sub Zavd_4_3()

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