Пример оформления отчета

Составить программные коды для решения задачи. В массиве максимальный элемент возвести в квадрат. Предусмотреть вывод сообщения для случая отсутствия элементов, удовлетворяющих условию.

2) Таблица 22. Используемые переменные.

Назначение переменной	Имя	Тип
Исходный массив	а	Integer
Максимальный элемент	Max	Integer
Квадрат максимального элемента	Max1	Integer
Переменная цикла	i	Integer

3) Эскиз формы:

4) Таблица 23. Свойства объектов.

Объект	Name	Caption	Text	Visible
Command1	Command1	Выполнить	нет	True
Command1	Command1	Выход	нет	True
TextBox1	Txn	нет		True
TextBox1	Tmx	нет	нет	True
Label	Label3	Размерность массива	нет	True
ListBox	List1	нет	нет	True
Label	Label2	Максимальный элемент	нет	True
Label	Label3	Исходный массив	нет	True

5) Блок–схема алгоритма:

6) Программные коды процедур:

Dim a() As Integer

Private Sub CommandButton1_Click()

Dim srk As String

n = Val(Txn.Text)

ReDim a(1 To n)

List1.Clear

For i = 1 To n

a(i) = Int(Rnd * 100 - 50)

srk = " a(" + Str(i) + ")= " + Str(a(i))

List1.AddItem (srk)

Next i

Max = -10000

For i = 1 To n

If a(i) > Max Then Max = a(i)

Next i

If Max <> a(1) Then

Tmx.Text = Max

Else

Tmx.Text = "максимального элемента нет "

End If

End Sub

Private Sub CommandButton2_Click()

End

End Sub.

7) Результаты:

Задание 2. Подсчитать значение КР – количество положительных значений в массиве X и КО – количество отрицательных значений в массиве X. Если КР будет больше КО, то вывести массив Х без изменений, иначе – заменить 1-й элемент массива Х на значение КР, а 2-й – на значение КО; массив вывести. Элементы массива Х вычисляются по формуле:

Таблица 24. Используемые переменные.

Назначение переменной	Имя	Тип
Исходный массив	а	Single
Полученный массив	х	Single
Количество отрицательных элементов	КО	Integer
количество положительных элементов	КР	Integer
Переменная цикла	i	Integer

4) Таблица 25. Свойства объектов.

Объект	Name	Caption	Text	Visible
CommandButton	CommandButton1	Выполнить	нет	True
Command1	Command1	Выход	нет	True
TextBox1	Txn	нет		True
TextBox1	Tmx	нет	нет	True
Label	Label3	Размерность массива	нет	True
ListBox	List1	нет	нет	True
Label	Label2	Максимальный элемент	нет	True
Label	Label3	Исходный массив	нет	True

Блок– схема

На листе Excel разместить необходимые элементы управления.

Textbox1

CommandButton1

Рисунок 11– Окно Excel

Событийная процедура кнопки Вычислить.

Private Sub CommandButton1_Click()

Dim x(1 To 8) As Single, i, kp, ko As Integer

Dim a(1 To 8) As Single

' Вычисление количество отрицательных и положительных элементов

kp = 0

ko = 0

ListBox1.Clear

For i = 1 To 7

a(i) = Cells(3 + i, 2)

x(i) = a(i) * Sin(a(i)) - 1.7

ListBox1.AddItem ("X(" + Str(i) + ")= " + Format(x(i), "0.0000"))

If x(i) < 0 Then ko = ko + 1

If x(i) > 0 Then kp = kp + 1

Next i

TextBox1.Value = Str(ko)

TextBox2.Value = Str(kp)

If kp > ko Then

ListBox1.Clear

For i = 1 To 7

ListBox1.AddItem ("X(" + Str(i) + ")= " + Format(x(i), "0.0000"))

Next i

Else

x(1) = kp

x(2) = ko

ListBox1.Clear

For i = 1 To 7

ListBox1.AddItem ("X(" + Str(i) + ")= " + Format(x(i), "0.0000"))

Next i

End If

End Sub.

Контрольные вопросы

1. Дайте определение массива.

2. Чем отличается массив от простой переменной?

3. Что такое статический и динамический массив? В чем их отличие?

4. Как получить доступ к элементу массива?

5. Синтаксис объявления статического и динамического массива.

6. Изменение размера динамического массива.

7. Какой тип данных можно храниться в массиве?

Лабораторная работа №8.

Обработка двумерных массивов.

Теория

Варианты заданий

Вариант 1

Вычислить сумму элементов матрицы А(5,5), расположенных выше главной диагонали и удовлетворяющих условию: 1 < a_ij £ 2,5. Элементы матрицы сформировать по правилу: a_ij = i + 0,5j.

Вариант 2

Построить матрицу В(5,4), каждый элемент которой находится по формуле: , где S_i – сумма элементов i-той строки матрицы А.

.

Вариант 3

Сформировать матрицу С(5,5) по правилу: . Найти сумму отрицательных элементов матрицы, расположенных ниже побочной диагонали (i, j = 1,…,5).

Вариант 4

Сформировать матрицу В(9,9) по правилу: b_ij = cos(i) – sin(j). Подсчитать количество строк матрицы, начинающихся с отрицательного элемента.

Вариант 5

Переписать первые элементы каждой строки матрицы А(7,3) в массив D, если в строке есть элемент больше 13. Если в строке нет такого элемента, то записать ноль в массив D в соответствующем месте. Вывести исходную матрицу и образованный массив на печать одновременно. Элементы матрицы А задать самостоятельно.

Вариант 6

Определить суммы положительных элементов матрицы А для каждой строки, исключая элементы главной диагонали.

.

Вариант 7

Подсчитать количество нулевых элементов среди элементов, расположенных выше главной диагонали матрицы В(8,8), которые формируются по правилу:

b_ij = cos – 16, (i, j = 1,…,8).

Вариант 8

Найти сумму индексов отрицательных элементов матрицы В(4,4), расположенных выше побочной диагонали.

.

Вариант 9

Найти среднее геометрическое элементов каждого чётного столбца и среднее арифметическое элементов каждого нечетного столбца матрицы.

.

Вариант 10

Умножить четные строки матрицы R на m = ½sin(k)½, где k – номер умножаемой строки. Полученную матрицу напечатать.

.

Вариант 11

Дана матрица А(4,5). Из нее образовать две матрицы: в одной оставить все отрицательные элементы матрицы А (на месте положительных поставить 0), в другой матрице оставить все положительные элементы (на месте отрицательных поставить 0). Элементы матрицы А задать самостоятельно.

Вариант 12

В исходной матрице найти количество четных элементов, больших 4, и нечетных элементов, меньших 67.

.

Вариант 13

В исходной матрице заменить все элементы, по модулю меньшие 1, на 1. Подсчитать сумму элементов исходной и полученной матрицы отдельно. Отпечатать матрицу С после замены элементов.

.

Вариант 14

В построенной матрице A(7,4) определить количество элементов, для которых выполнено условие: -0,5 < a_ij < 0,5. Элементы матрицы строятся по правилу: a_ij = sin (i + j / 2). Матрицу напечатать.

Вариант 15

Найти произведение элементов главной диагонали и сумму элементов побочной диагонали матрицы В(6,6). Указать большее из двух найденных значений. Элементы матрицы формируются по правилу: b_ij = 2 ⁱ + j.

Вариант 16

Дана матрица Z. Найти сумму элементов для каждого столбца, начинающегося с положительного элемента.

.

Вариант 17

Определить сумму и количество элементов матрицы А(6,6), формирующихся по правилу: a_ij = cos (i + j), удовлетворяющих условию: 0.3 <= a_ij < 1, среди элементов, находящихся ниже побочной или выше главной диагонали.

Вариант 18

Дана матрица Y(5,5) (элементы матрицы выбрать самостоятельно). Вычислить элементы новой матрицы Z(5,5) по правилу: z_ij = y_ij / k_i, где k_i – количество положительных элементов i – той строки.

Если в i – той строке положительных элементов нет, то i – тая строка в матрице Z должна быть заполнена нулями. Отпечатать для сравнения обе матрицы Y и Z.

Вариант 19

Вычесть из суммы элементов матрицы В(5,5), расположенных ниже главной диагонали, произведение элементов побочной диагонали.

.

Вариант 20

Найти количество отличных от нуля элементов, расположенных ниже побочной диагонали. Нулевые элементы матрицы заменить на –1.

.

Вариант 21

Для матрицы В определить количество четных элементов, расположенных на главной диагонали и выше неё. Элементы матрицы В формируются по правилу:

b_ij = 100×RND (1), (i, j = 1, 2, …, 5).

Примечание: элементы матрицы формируются случайным образом с помощью функции RND, генерирующей случайное число в диапазоне от 0 до 1.

Вариант 22

С помощью элементов исходной матрицы А(5,5) построить новые матрицы С(5,5) и В(5,5), элементы которых находятся по правилу:

.

.

Вариант 23

Дана матрица А(7,7) (элементы матрицы выбрать самостоятельно). Найти значение K= , где P– произведение положительных элементов матрицы А, S – сумма отрицательных элементов матрицы А, T – произведение элементов побочной диагонали.

Вариант 24

Найти разность двух матриц и определить количество элементов, строго больших 2.5, среди элементов полученной матрицы.

.

Вариант 25

Определить суммы отрицательных элементов матрицы А(5,4) в каждой строке и напечатать матрицу А(5,5), в которой пятый столбец образован из полученных сумм.

Вариант 26

Исходную А(4,4) матрицу умножить на -20. В ней подсчитать: 1) количество ненулевых элементов; 2) количество положительных элементов; 3) количество отрицательных элементов; 4) количество нулевых элементов. Вывести измененную матрицу. Элементы матрицы задать самостоятельно.

Вариант 27

Дана матрица В(6,6). Выяснить, верно ли, что наибольшее из значений элементов главной диагонали больше, чем наименьшее из значений элементов побочной диагонали. Элементы матрицы задать самостоятельно.