Читайте также: |
|
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 страница |