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

Dim A_mas()As Single 1 страница

Dim A_mas()As Single 3 страница | Dim A_mas()As Single 4 страница | Function FnZ(y, m) As Single | Function FnG(x, n) As Single | Function Max(a, b) As Single |


Читайте также:
  1. 1 страница
  2. 1 страница
  3. 1 страница
  4. 1 страница
  5. 1 страница
  6. 1 страница
  7. 1 страница

 

Set myCELL = Application.InputBox (_

prompt:="Виберіть вхідну матрицю даних (без заголовка)", _

Type:=8)

 

Set myCELL2 = Application.InputBox (_

prompt:="Виберіть клітинку, з якої будуть виводитися результати розрахунку", _

Type:=8)

 

Oz_s = Application.InputBox ("Введіть ознаку сортування: 1 - рядків; 2 - стовпців; 3 - по рядках; 4 - по стовпцях")

 

row =myCELL. Rows.Count 'Обчислення кількості рядків

col =myCELL. Columns. Count 'Обчислення кількості стовпців

 

ReDim A_mas(1 To row, 1 To col)

 

' Занесення введених елементів у двовимірний масив

For i =1 To row

For j =1 To col

A_mas(i, j) =myCELL. Columns (j). Cells (i)

Next j

Next i

 

Select Case Oz_s ' Вибір потрібного номера.

Case 1 ' Сорт. рядків матриці у порядку зрост./спад. значень їх елементів

Call Sort_rM(A_mas, row, col)

Case 2 ' Сорт. стовпців матриці у порядку зрост./спад. значень їх елементів

Call Sort_sM(A_mas, row, col)

Case 3 ' Сорт. матриці по рядках у порядку зрост./спад. значень їх елементів

Call Sort_Mr(A_mas, row, col)

Case 4 ' Сорт. матриці по стовпцях у порядку зрост./спад. значень їх елементів

Call Sort_Ms(A_mas, row, col)

End Select

 

' Виведених елементів двовимірного масиву

For i =1 To row

For j =1 To col

myCELL2. Offset (i - 1, j - 1) .Value =A_mas(i, j)

Next j

Next i

 

myCELL2. Offset (row, 0) .Value ="Кінець розрахунку"

End Sub

Задача 6.3. Відповідно до номера варіанту (прикл. 1 і 2) у середовищі Excel скласти програму для інверту­ван­ня елементів вектора-рядка/стовпця і матриці, а саме:

● інвертування елементів рядка ;

● інвертування елементів стовпця ;

● інвертування елементів матриці по стовпцях;

● інвертування елементів матриці по рядках;

● інвертування елементів матриці по стовпцях і по рядках;

● інвертування елементів матриці по рядках і по стовпцях.

Інвертування елементів одновимірного масиву

Інвертування елементів рядка

  B C D E F G H I J K L M N O P Q R
              В'                    
  D                       Dir        
  1,08 -4,91 31,34 324,23 2365,17 *           = 2365,17 324,23 31,34 -4,91 1,08
                                   
                                   
                                   

Клі­ти­ни B166:F166 à =E14 – <Ctrl + Enter>

Клі­ти­ни N166:R166 à =МУМНОЖ(B166:F166;H165:L169) – <Ctrl + Shift + Enter>

Інвертування елементів стовпця

  B C D E F G H I J K L M N O P Q R
  В'           D   Dis                
              1,08   2365,17                
            * -4,91 = 324,23                
              31,34   31,34                
              324,23   -4,91                
              2365,17   1,08                

Клі­ти­ни H172:H176 à =C14 – <Ctrl + Enter>

Клі­ти­ни J172:J176 à =МУМНОЖ(B172:F176;H172:H176) – <Ctrl + Shift + Enter>

Інвертування елементів двовимірного масиву

Інвертування матриці по стовпцях

  B C D E F G H I J K L M N O P Q R
  A           В'           Ais        
  0,10 8,11 40,44 65,52 57,51               57,51 65,52 40,44 8,11 0,10
  1,20 2,97 6,75 12,61 14,10 *           = 14,10 12,61 6,75 2,97 1,20
  1,29 11,08 47,19 78,13 71,61               71,61 78,13 47,19 11,08 1,29
  2,49 14,05 53,95 90,75 85,70               85,70 90,75 53,95 14,05 2,49
  3,79 25,13 101,14 168,88 157,31               157,31 168,88 101,14 25,13 3,79

Клі­ти­ни B182:F186 à =C48 – <Ctrl + Enter>

Клі­ти­ни J172:J176 à =МУМНОЖ(B182:F186;H182:L186) – <Ctrl + Shift + Enter>

Інвертування матриці по рядках

  B C D E F G H I J K L M N O P Q R
  В'           A           Air        
              0,10 8,11 40,44 65,52 57,51   3,786 25,135 101,141 168,884 157,311
            * 1,20 2,97 6,75 12,61 14,10 = 2,492 14,053 53,946 90,750 85,704
              1,29 11,08 47,19 78,13 71,61   1,294 11,082 47,194 78,135 71,607
              2,49 14,05 53,95 90,75 85,70   1,198 2,970 6,752 12,615 14,097
              3,79 25,13 101,14 168,88 157,31   0,096 8,112 40,443 65,520 57,510

Клі­ти­ни B190:F194 à =C48 – <Ctrl + Enter>

Клі­ти­ни N190:R194 à =МУМНОЖ(B190:F194;H190:L194) – <Ctrl + Shift + Enter>

Інвертування матриці по стовпцях і по рядках

  B C D E F G H I J K L M N O P Q R
  A           В'           Ais        
  0,10 8,11 40,44 65,52 57,51               57,51 65,52 40,44 8,11 0,10
  1,20 2,97 6,75 12,61 14,10 *           = 14,10 12,61 6,75 2,97 1,20
  1,29 11,08 47,19 78,13 71,61               71,61 78,13 47,19 11,08 1,29
  2,49 14,05 53,95 90,75 85,70               85,70 90,75 53,95 14,05 2,49
  3,79 25,13 101,14 168,88 157,31               157,31 168,88 101,14 25,13 3,79
                                   
  В'           Ais           Aisr        
              57,51 65,52 40,44 8,11 0,10   157,31 168,88 101,14 25,13 3,79
            * 14,10 12,61 6,75 2,97 1,20 = 85,70 90,75 53,95 14,05 2,49
              71,61 78,13 47,19 11,08 1,29   71,61 78,13 47,19 11,08 1,29
              85,70 90,75 53,95 14,05 2,49   14,10 12,61 6,75 2,97 1,20
              157,31 168,88 101,14 25,13 3,79   57,51 65,52 40,44 8,11 0,10

Клі­ти­ни B198:F202 à =C48 – <Ctrl + Enter>

Клі­ти­ни N198:R202 à =МУМНОЖ(B198:F202;H198:L202) – <Ctrl + Shift + Enter>

Клі­ти­ни H205:L209 à =N198 – <Ctrl + Enter>

Клі­ти­ни N205:R209 à =МУМНОЖ(B205:F209;H205:L209) – <Ctrl + Shift + Enter>

Інвертування матриці по рядках і стовпцях

  B C D E F G H I J K L M N O P Q R
  В'           A           Air        
              0,10 8,11 40,44 65,52 57,51   3,79 25,13 101,14 168,88 157,31
            * 1,20 2,97 6,75 12,61 14,10 = 2,49 14,05 53,95 90,75 85,70
              1,29 11,08 47,19 78,13 71,61   1,29 11,08 47,19 78,13 71,61
              2,49 14,05 53,95 90,75 85,70   1,20 2,97 6,75 12,61 14,10
              3,79 25,13 101,14 168,88 157,31   0,10 8,11 40,44 65,52 57,51
                                   
  Air           В'           Airs        
  3,79 25,13 101,14 168,88 157,31               157,31 168,88 101,14 25,13 3,79
  2,49 14,05 53,95 90,75 85,70 *           = 85,70 90,75 53,95 14,05 2,49
  1,29 11,08 47,19 78,13 71,61               71,61 78,13 47,19 11,08 1,29
  1,20 2,97 6,75 12,61 14,10               14,10 12,61 6,75 2,97 1,20
  0,10 8,11 40,44 65,52 57,51               57,51 65,52 40,44 8,11 0,10

Клі­ти­ни H213:L217 à =C48 – <Ctrl + Enter>

Клі­ти­ни N213:R217 à =МУМНОЖ(B213:F217;H213:L217) – <Ctrl + Shift + Enter>

Клі­ти­ни B220:F224 à =N213 – <Ctrl + Enter>

Клі­ти­ни N220:R224 à =МУМНОЖ(B220:F224;H220:L224) – <Ctrl + Shift + Enter>

Задача 6.4. Відповідно до номера варіанту (прикл. 1 і 2) у середовищі Excel скласти програму для переста­нов­ки елементів вектора-рядка/стовпця і матриці, а саме:

● перестановка елементів рядка – останнього з передостаннім;

● перестановка елементів рядка – другого з останнім;

● перестановка елементів стовпця – останнього з передостаннім;

● перестановка елементів стовпця – другого з останнім;

● перестановка стовпців матриці – останнього з передостаннім;

● перестановка стовпців матриці – другого з останнім;

● перестановка рядків матриці – останнього з передостаннім;

● перестановка рядків матриці – другого з останнім.

Перестановка елементів одновимірного масиву

Перестановка елементів рядка

  B C D E F G H I J K L M N O P Q R
              P5,4                    
  D                       D4,5        
  1,08 -4,91 31,34 324,23 2365,17 *           = 1,08 -4,91 31,34 2365,17 324,23
                                   
                                   
                                   
                                   
              P5,2                    
  D                       D2,5        
  1,08 -4,91 31,34 324,23 2365,17 *           = 1,08 2365,17 31,34 324,23 -4,91
                                   
                                   
                                   

Клі­ти­ни B232:F232 à =E14 – <Ctrl + Enter>

Клі­ти­ни N232:R232 à =МУМНОЖ(B232:F232;H231:L235) – <Ctrl + Shift + Enter>

Клі­ти­ни B239:F239 à =E14 – <Ctrl + Enter>

Клі­ти­ни N239:R239 à =МУМНОЖ(B239:F239;H238:L242) – <Ctrl + Shift + Enter>

Перестановка елементів стовпця

  B C D E F G H I J K L M N O P Q R
  P5,4           D   D4,5                
              1,08   1,08                
            * -4,91 = -4,91                
              31,34   31,34                
              324,23   2365,17                
              2365,17   324,23                
                                   
  P5,2           D   D2,5                
              1,08   1,08                
            * -4,91 = 2365,17                
              31,34   31,34                
              324,23   324,23                
              2365,17   -4,91                

Клі­ти­ни H247:H251 à =C14 – <Ctrl + Enter>

Дата добавления: 2015-11-14; просмотров: 65 | Нарушение авторских прав

<== предыдущая страница | следующая страница ==>
Dim A_mas() As Single| Dim A_mas()As Single 2 страница
mybiblioteka.su - 2015-2024 год. (0.014 сек.)