Вариант 5. Необходимо найти сумму, среднее арифметическое элементов области А исходной матрицы

  • ID: 06385 
  • 6 страниц
200 рубСкачать

гарантия низкой цены

Вариант05.xls

Отчет.docx

Содержание:


Постановка задачи

[image]

Блок-схема

Начало

Очистить лист от всех данных

Заполнить массив числами, вывести на экран

k = 0

Sum = 0

Min = a(N, 2)

Max = a(N, 2)

N=5

a(N,N)

i>Int(N / 2) + 1

i = N

j=N - i + 2

j Max

Max = a(i, j)

Да

Нет

Нет

Да

Да

Нет

a(i, j) < Min

Min = a(i, j)

avg = Sum / k

Вывод

Sum, avg, min, max

Конец

Да

Нет

Текст программы

Public Sub task()

Const N = 5

Dim a(N, N) As Integer

Dim k As Integer

Cells.Select

Selection.ClearContents

Selection.Interior.ColorIndex = xlNone

Range("A1").Select

Randomize Timer

k = 0

For i = 1 To N

For j = 1 To N

k = k + 1

a(i, j) = k

Cells(i, j) = k

Next

Next

k = 0

Sum = 0

Min = a(N, 2)

Max = a(N, 2)

For i = N To Int(N / 2) + 1 Step -1

For j = N - i + 2 To i - 1

Range(Cells(i, j), Cells(i, j)).Select

With Selection.Interior

.ColorIndex = 3

.Pattern = xlSolid

End With

k = k + 1

Sum = Sum + a(i, j)

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

If a(i, j) < Min Then Min = a(i, j)

Next j

Next i

avg = Sum / k

Cells(N + 1, 1) = "Sum = " + Str(Sum)

Cells(N + 2, 1) = "Avg = " + Str(avg)

Cells(N + 3, 1) = "Max = " + Str(Max)