Практическое задание №12

Создать двухмерный массив рациональных чисел.

Описание выполнения задания:

1. Создал двухмерный массив рациональных чисел из промежутка [-10,86].

2. Рамерность массива вводится сообщениями.

3. Массив вывел на лист1 Еxcel записал в столбец начиная с ячейки G8.

4. Нашёл минимальный и максимальный элементы

5. Вывел сумму столбцов с минимальным и максимальным элементами.

6. Вывел сумму строк с минимальным и максимальным элементами.

7. Текст Фиолетовый и жирный, фон ячейки бледно Фиолетовый.

8. Задание выполнено.

Результат выполненного задания №12

Вывод на лист Excel

Программа

Sub z()

Dim A()

Dim x, y, b, c, min, max, n, nn, k, kk, l, l1, sum, sum1, sums, sums1 As Integer

sums = 0

sums1 = 0

sum = 0

sum1 = 0

l = InputBox("Введите первую часть массива")

l1 = InputBox("Введите вторую часть массива")

ReDim A(l, l1)

Randomize

For x = 1 To l1

For y = 1 To l

A(l, l1) = CInt(Rnd() * (86 + 10 + 1)) - 10

Sheets(1).Cells(x + 7, y + 6) = A(l, l1)

Sheets(1).Cells(x + 7, y + 6).Font.Color = RGB(112, 48, 160)

Sheets(1).Cells(x + 7, y + 6).Interior.Color = RGB(177, 160, 199)

Sheets(1).Cells(x + 7, y + 6).Font.Italic = True

If A(l, l1) > max Then

max = A(l, l1)

n = x

nn = y

End If

If A(l, l1) < min Then

min = A(l, l1)

k = x

kk = y

End If

Next y

Next x

MsgBox "Минимальое число: " & min

MsgBox "Максимальное число: " & max

For n = 1 To l

A(l, l1) = Sheets(1).Cells(n + 7, nn + 6)

sum = sum + A(l, l1)

Next n

For k = 1 To l1

A(l, l1) = Sheets(1).Cells(k + 7, kk + 6)

sums = sums + A(l, l1)

Next k

For nn = 1 To l

A(l, l1) = Sheets(1).Cells(n + 7, nn + 6)

sum1 = sum1 + A(l, l1)

Next nn

For kk = 1 To l1

A(l, l1) = Sheets(1).Cells(k + 7, kk + 6)

sums1 = sums1 + A(l, l1)

Next kk

MsgBox "Сумма строк с максимальным значением: " & sum

MsgBox "Сумма строк с минимальным значением: " & sums

MsgBox "Сумма столбцов с максимальным значением: " & sum1

MsgBox "Сумма столбцов с минимальным значением: " & sums1

End Sub

Практическое задание №13

Создать двухмерный массив рациональных чисел.

Описание выполнения задания:

1. Задание 1.

2. Создал двухмерный массив рациональных чисел из промежутка [-6,96].

3. Рамерность массива вводится сообщениями.

4. Массив вывел на лист3 Еxcel записал в столбец начиная с ячейки C9.

5. Нашёл минимальный и максимальный элементы

6. Вывел сумму столбцов с минимальным и максимальным элементами.

7. Вывел сумму строк с минимальным и максимальным элементами.

8. Текст Фиолетовый и жирный, фон ячейки бледно Фиолетовый.

9. Задание 2.

10. Создал случайное целое число, в интервале от 6 до 96, которое вывел в сообщение и на лист1 Excel.

11. Создал массив число элементов = случайному числу.

12. Индекс и значения элементов записал в текстовый файл в одной строке по два числа, а также сделал копию на лист 4начиная с ячейки E4 и продолжил в строку.

13. Удалил положительные элементы в интервале[5,21].

14. Создал новый массив путем сложения 3-х рядом стоящих элементов.

15. Задание выполнено.