Dim m, n, nr, ns, i, j, z, k As Integer 1 страница

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

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

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

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

x =5.3 * 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) ^ j - 1"

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 c =c / k Else c =0

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

4.4. Ін­ди­ві­ду­аль­ні зав­дан­ня

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

1) ; 2) ;

3) ; 4) ;

5) ; 6) ;

7) ; 8) ;

9) ; 10) ;

11) ; 12) ;

13) ; 14) ;

15) ; 16) .

17) ; 18) ;

19) ; 20) ;

21) ; 22) ;

23) ; 24) ;

25) ; 26) ;

27) ; 28) ;

29) ; 30) ;

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

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

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

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

1)	16)
2)	17)
3)	18)
4)	19)
5)	20)
6)	21)
7)	22)
8)	23)
9)	24)
10)	25)
11)	26)
12)	27)
13)	28)
14)	29)
15)	30)

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

і

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

1)

2)

3)

4)

5)

6)

7)

8)

9)

10)

11)

12)

13)

14)

15) .

16)

17)

18)

19)

20)

21)

22)

23)

24)

25)

26)

27)

28)

29)

30) .

Виз­на­чи­ти:

кіль­кос­ті до­дат­них еле­мен­тів	кіль­кос­ті від'ємних еле­мен­тів
1)	у кож­но­му із стов­пців мат­ри­ці А	2)
3)	у кож­но­му із стов­пців мат­ри­ці В, які ма­ють пар­ні но­ме­ри	4)
5)	у кож­но­му із стов­пців мат­ри­ці А, які ма­ють не­пар­ні но­ме­ри	6)
7)	у стов­пцях мат­ри­ці В, за ви­нят­ком пер­шо­го і ос­танньо­го	8)
су­ми до­дат­них еле­мен­тів	су­ми від'ємних еле­мен­тів
9)	у кож­но­му із ряд­ків мат­ри­ці В	10)
11)	у кож­но­му із ряд­ків мат­ри­ці А, які ма­ють пар­ні но­ме­ри	12)
13)	у кож­но­му із ряд­ків мат­ри­ці В, які ма­ють не­пар­ні но­ме­ри	14)
15)	у ряд­ках мат­ри­ці А, за ви­нят­ком пер­шо­го і ос­танньо­го	16)

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

1)	6)	11)
2)	7)	12)
3)	8)	13)
4)	9)	14)
5)	10)	15)
16)	17)	18)
19)	20)	21)
22)	23)	24)
25)	26)	27)
28)	29)	30)

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

1) ;	11) ;	21) ;
2) ;	12) ;	22) ;
3) ;	13) ;	23) ;
4) ;	14) ;	24) ;
5) ;	15) ;	25) ;
6) ;	16) ;	26) ;
7) ;	17) ;	27) ;
8) ;	18) ;	28) ;
9) ;	19) ;	29) ;
10) ;	20) ;	30) ;

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

;

1) ;	11) ;	21) ;
2) ;	12) ;	22) ;
3) ;	13) ;	23) ;
4) ;	14) ;	24) ;
5) ;	15) ;	25) ;
6) ;	16) ;	26) ;
7) ;	17) ;	27) ;
8) ;	18) ;	28) ;
9) ;	19) ;	29) ;
10)	20) ;	30) ;

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

у від­зна­че­них ряд­ках мат­ри­ці виз­на­чи­ти:	у не від­зна­че­них ряд­ках мат­ри­ці виз­на­чи­ти:
1)	найбіль­ший за мо­ду­лем еле­мент	2)
3)	наймен­ший за мо­ду­лем еле­мент	4)
5)	су­му до­дат­них еле­мен­тів	6)
7)	су­му від'ємних еле­мен­тів	8)
9)	кіль­кість до­дат­них еле­мен­тів	10)
11)	кіль­кість від'ємних еле­мен­тів	12)
13)	се­реднє ариф­ме­тич­не зна­чен­ня з до­дат­них їх еле­мен­тів	14)
15)	се­реднє ге­омет­рич­не зна­чен­ня з від'ємних їх еле­мен­тів	16)
17)	найбіль­ший за мо­ду­лем еле­мент	18)
19)	наймен­ший за мо­ду­лем еле­мент	20)
21)	су­му до­дат­них еле­мен­тів	22)
23)	су­му від'ємних еле­мен­тів	24)
25)	кіль­кість до­дат­них еле­мен­тів	26)
27)	кіль­кість від'ємних еле­мен­тів	28)
29)	се­реднє ариф­ме­тич­не зна­чен­ня з до­дат­них їх еле­мен­тів	30)

Ла­бо­ра­тор­на ро­бо­та №5.
ДІЇ НАД МАТРИЦЯМИ

5.1. Прог­ра­ма ро­бо­ти

5.1.1. Під­го­ту­ва­ти бланк зав­дан­ня та от­ри­ма­ти зав­дан­ня.

5.1.2. Зап­рог­ра­му­ва­ти математичні функції згід­но з вка­зів­ка­ми до ви­ко­нан­ня ро­бо­ти.

5.1.3. Під­го­ту­ва­ти влас­ті коректні вхідні дані для кожної з виконаних задач, про­вес­ти роз­ра­хун­ки і проа­на­лі­зу­ва­ти їх.

5.1.4. Офор­ми­ти звіт про ро­бо­ту та за­хис­ти­ти її

5.2. Вка­зів­ки до ви­ко­нан­ня ро­бо­ти

5.3.1. Зра­зок блан­ка зав­дан­ня на­ве­де­но на рис. 1. Студент, відповідно до індивідуального номера, вибирає зав­дан­ня з розд. 5.5, яке складається з декількох задач, і записує його до блан­ку.

5.2.2. Математичні функції не­об­хід­но зап­рог­ра­му­ва­ти од­ним ряд­ком без вве­ден­ня до­по­між­них змін­них.

5.3.3. Влас­них вхід­них да­них не­об­хід­но під­го­ту­ва­ти не мен­ше, ніж два ком­плек­ти. Во­ни ма­ють бу­ти ко­рек­тни­ми, в ро­зум­них ме­жах і не су­пе­ре­чи­ти ма­те­ма­тич­ним ви­ра­зам. Піс­ля про­ве­ден­ня роз­ра­хун­ків не­об­хід­но їх про­ана­лі­зу­ва­ти і за­нес­ти до зві­ту.

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