Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

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

Лабораторний практикум | Dim n, nr, i As Integer | Dim m, n, nr, ns, i, j As Integer | Dim m, n, nr, ns, i, j, z, k As Integer 3 страница | Dim m, n, nr, ns, i, j, z, k As Integer 4 страница | Dim m, n, nr, ns, i, j, z, k As Integer 5 страница |


Читайте также:
  1. 1 страница
  2. 1 страница
  3. 1 страница
  4. 1 страница
  5. 1 страница
  6. 1 страница
  7. 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 наз­ве­мо від­зна­че­ним, як­що ai>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; просмотров: 69 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Dim n, nr, ns, i, j As Integer| Dim m, n, nr, ns, i, j, z, k As Integer 2 страница

mybiblioteka.su - 2015-2024 год. (0.016 сек.)