| Навигация |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Зразок
ЗАВДАННЯ №12
Виконав студент групи МО-4-06 Бут Н.
Роздiл 1.Постановка задачi
a) Формулювання задачі:
Створити Excel-проект, у якому за власним № варіанту + 2 застосувати функцію y=f(x). Для елементів матриці (двовимірний масив) Х:
5,2 8,4 1,2
||Х|| = 6,1 9,8 2,5
4,6 8,2 0,2
через формулу перетворення yij=f(xij), i=[1;m], j=[1;n], отримати і вивести числа yij як матрицю Y
, якщо 1<х<=3
Y = , якщо x>5
у решті випадків
На аркуші робочої книги Excel розмістити задану матрицю Х з її назвою. Підготувати ідентифікатори, розробити алгоритм та код макросу VBA (процедура Sub), який буде обчислювати та виводити у відповідні комірки елементи матриці Y, суму її елементів по стовпцях, рядках і загальну суму елементів. Зробити аналогічні розрахунки безпосередньо в Excel. На аркуші Excel-документу представити: коди макросів, Excel-формул, структуру проекту.
Додаткове завдання: Створити другий варіант макросу, застосувавши режим автоматичного запису коду при виконанні відповідних дій в Excel.
б) Макетування документу
|
|
A
|
B
|
C
|
D
|
|
1.
|
МАТРИЦЯ ||X||
|
|
|
2.
|
5,2
|
8.4
|
1,2
|
|
|
3.
|
6,1
|
9.8
|
2.5
|
|
|
4.
|
4.6
|
8,2
|
0.2
|
|
|
5.
|
|
|
|
6.
|
МАТРИЦЯ ||Y|| (макрос VBA)
|
Сума по рядках
|
|
7.
|
2,11
|
1,93
|
0,78
|
4,83
|
|
8.
|
2,79
|
1,28
|
0,27
|
4,35
|
|
9.
|
2,00
|
1,76
|
1,23
|
5,00
|
|
10.
|
6,90
|
4,98
|
2,29
|
14,19
|
|
11.
|
Сума по стовпцях
|
Загальна сума елементів
|
|
12.
|
|
|
|
|
|
13.
|
|
|
|
|
|
14.
|
МАТРИЦЯ ||Y|| (Excel)
|
Сума по рядках
|
|
15.
|
2,11
|
1,93
|
0,78
|
4,83
|
|
16.
|
2,79
|
1,28
|
0,27
|
4,35
|
|
17.
|
2,00
|
1,76
|
1,23
|
5,00
|
|
18.
|
6,90
|
4,98
|
2,29
|
14,19
|
|
19.
|
Сума по стовпцях
|
Загальна сума елементів
|
|
20.
|
|
|
|
|
в) Пiдготовка даних для VBA
|
№
|
Ідентифі-катор
|
Тип даних
|
К-ть байт
|
Точнiсть
|
Формула
|
Умова
|
Змiст
|
|
ПОЧАТКОВI
|
|
1.
|
x
|
Single
|
4
|
1
|
-
|
-
|
аргумент
|
|
ДОПОМIЖНI
|
|
1.
|
i
|
Integer
|
2
|
|
i=i+1
|
-
|
номер рядка матрицi
|
|
2.
|
j
|
Integer
|
2
|
|
j=j+1
|
-
|
номер стовпця матрицi
|
|
3.
|
m
|
Integer
|
2
|
|
m=||X||.Rows.Count
|
-
|
кiлькiсть рядкiв
|
|
4.
|
n
|
Integer
|
2
|
|
n=||X||.Columns.Count
|
-
|
кiлькiсть стовпцiв
|
|
РЕЗУЛЬТАТНI
|
|
1.
|
y
|
Double
|
4
|
2
|
= x * Sin(x) + Sqr(x)
|
x > 1 And x <= 3
|
елементи матрицi
||y||
|
|
= Log(x ^ 2) / Log(10) + Log(Abs(x)) ^ 2
|
x > 5
|
|
= Abs(Tan(x ^ 2) ^ 3 + Exp(1)) ^ (1 / 3)
|
Else
|
|
2.
|
SRow
|
Double
|
4
|
2
|
SRow=SRow+y
|
-
|
Сума елементiв по рядку
|
|
3.
|
SColumn
|
Double
|
4
|
2
|
SColumn=SColumn+y
|
-
|
Сума елементiв по стовпцю
|
|
3.
|
Stotal
|
Double
|
4
|
2
|
Stotal=Stotal+y
|
-
|
Загальна сума елементiв
|
| |
|
|
|
|
|
|
|
|
Роздiл 4. Комп'ютерна підготовка і обробка
- Підготовити документ в Excel
- Insert►Module
- Insert►Procedure►Sub►Макрос_Завдання12_СтудГр_МО_4_06_БутН()
- Увести код макросу
- Відлагодити код макросу: Compile►Debug
- Виконати макрос: Макрос►Выполнить
- Скопіювати коди і представити структуру проекту
- Здати на 12-му тижні та захистити проект і виконану на комп'ютері роботу
Вікно макросів
Структура проекту
Діалогове вікно – Макрос2 |
|
|
|
|
|
|
|
|
|
|
|
|
