Dim n, nr, i As Integer

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

Dim A(20) As Single

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

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

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 =Czn / (Max * Min) * Sum - LogN(Abs (Max + Min), 2) ^ 3

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. Відповідно до номера варіанту потрібно розробити програму для обчислення значень елементів двох матриць

і

за та­ки­ми фор­му­ла­ми:

;

Виз­на­чи­ти кіль­кос­ті від'ємних еле­мен­тів у кож­но­му із стов­пців мат­ри­ці В, які ма­ють не­пар­ні но­ме­ри.

	B	C	D	E	F	G	H	I	J	K	L	M	N
	№=		х=	10,8		m=		n=
	A							B
	i\j							i\j
		0,732	0,393	-9,593	-2,877	-0,029			1,498	2,198	-1,280	1,130	-0,626
		0,447	0,094	3,041	5,230	4,363			0,249	2,995	-3,546	4,397	-0,157
		0,389	0,067	1,688	1,818	0,040			0,109	0,923	4,493	-18,216	-1,813
		0,367	0,057	1,307	1,247	0,023			0,062	0,497	1,829	5,990	577,017
		0,358	0,052	1,131	1,015	0,018			0,039	0,316	1,096	2,876	7,488
		0,353	0,050	1,031	0,890	0,015			0,027	0,219	0,746	1,846	4,018
		0,352	0,048	0,969	0,814	0,013			0,020	0,161	0,544	1,316	2,708
		0,352	0,047	0,927	0,762	0,012			0,015	0,123	0,416	0,995	1,997
		0,353	0,046	0,897	0,726	0,011			0,012	0,097	0,328	0,781	1,550
		0,355	0,046	0,875	0,699	0,011			0,010	0,079	0,266	0,631	1,244
								K^нп<0=		---		---

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

Клі­ти­на E39 à 2,7*C39 – < Enter>

Клі­ти­ни C42:G51 à ($B42+C$41)^1,2/($B42*2,51-C$41)*SIN($E$39+C$41)^2 – <Ctrl + Enter>

Клі­ти­ни J42:N51 à ($I42+J$41)/(0,1*$E$39+$I42/J$41)*TAN((J$41/$I42)^2) – <Ctrl + Enter>

Клі­ти­ни J53:N53 à ЕС­ЛИ(ОС­ТАТ(J41;2)=1;СЧЁТЕС­ЛИ(J42:J51;"<0");"---") – <Ctrl + Enter>

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

' Обчислення елементів матриці <A> Function Fn_Aij(x, i, j) As Single Dim a1, a2, a3 As Single a1 =(i + j) ^ 1.2 a2 =i * 2.51 - j a3 =Sin(x + j) ^ 2 Fn_Aij =a1 / a2 * a3 End Function

' Обчислення елементів матриці <B> Function Fn_Bij(x, i, j) As Single Dim b1, b2, b3 As Single b1 =i + j b2 =0.1 * x + i / j b3 =Tan((j / i) ^ 2) Fn_Bij =b1 / b2 * b3 End Function

Sub Zavd_4_2()

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