Операции с массивами
Пример 3. В одномерном массиве а(n) найти максимальный по значению элемент и указать его номер.
Рис. 4.11. Размещение массива в ячейках Excel.
Рис. 4.12 Блок-схема алгоритма нахождения максимального по значению элемента и его порядкового номера.
Текст программы.
Option Explicit
Option Base 1
Sub progmass()
Dim a!(), Nrowa%, i%, AMax!, NMax%, n%
n = Cells(1, 2)
ReDim a(n)
'Ввод элементов вектора
For i = 1 To n
a(i) = Cells(i + 1, 4)
Next i
AMax = a(1)
NMax = 1
For i = 2 To n
If a(i) > AMax Then
AMax = a(i)
NMax = i
End If
Next i
Cells(8, 1) = AMax
Cells(8, 3) = NMax
End Sub
Пример 4. В двумерном массиве A (nrow, ncoln) подсчитать количество положительных, отрицательных и нулевых элементов.
Nrow |
Ncoln |
A |
||
2 |
3 |
6 |
0 |
-5 |
Npol= |
3 |
0 |
8 |
5 |
Notr= |
1 |
|
|
|
Nnul= |
2 |
|
|
|
Рис. 4.13. Размещение массива в ячейках Excel.
Рис. 4.16. Блок-схема алгоритма нахождения количества положительных, отрицательных и нулевых элементов.
Выбор идентификаторов для переменных и их типов:
A! ( nrow%, ncoln% );
npol %, notr %, nnul %;
j %, i % -рабочие переменные.
Текст программы.
Option Explicit
Option Base 1
Sub matr()
Dim A!(), nrow%, i%, ncoln%, j %, npol%, notr %, nnul %
nrow = Cells (2, 1)
ncoln = Cells (2, 2)
ReDim A( nrow, ncoln )
For i = 1 To nrow
For j = 1 To ncoln
A(i, j) = Cells (i + 1, j + 2)
Next j
Next i
npol = 0
notr = 0
nnul = 0
For i = 1 To nrow
For j = 1 To ncoln
If A(i, j) > 0 Then
npol = npol + 1
ElseIf A(i, j) = 0 Then
nnul = nnul + 1
Else
notr = notr + 1
End If
Next j
Next i
Cells(3, 2) = npol
Cells(4, 2) = notr
Cells(5, 2) = nnul
End Sub
4.5. Использование функций алгебры логики
Алгебра логики возникла в середине 19 века в трудах Дж. Буля. Первоначально создавалась для решения традиционных логических задач алгебраическими методами. Позднее основными объектами (операндами) алгебры логики стали высказывания и логические операции над ними. Под высказываниями понимаются предложения, относительно которых можно утверждать, истинны они или ложны.
Для обозначения и с т и н о с т и вводится символ «И» (true, позднее цифра 1), для обозначения л о ж н о с т и «Л» (false, позднее 0).
Обозначение логических операций
(«не»)
– отрицание ,
& ( «И») – конъюнкция (логическое умножение)
V («ИЛИ», «+» ) – дизъюнкция (логическое сложение)
-> ( «если то») – импликация,
~ («эквивалентно») – эквивалентность.
В качестве операндов в логических выражениях выступают константы или переменные, которые принимают только два значения: «ИСТИНА» (1) или «ЛОЖЬ» (0).
Простое логическое выражение – выражение, в котором логические переменные и константы (операнды) связаны знаками логических операций. Логическое выражение может принимать одно из двух возможных значений: ИСТИНА (логическая 1) или ЛОЖЬ (логический 0)
Сложное логическое выражение – логическое выражение, составленное из одного или нескольких простых (или сложных, связанных знаками логических операций.