Главная страница

Введение 8 Этапы создания Windowsприложения 8


Скачать 6.98 Mb.
НазваниеВведение 8 Этапы создания Windowsприложения 8
АнкорVisual Basic 2005 (word97).doc
Дата22.12.2017
Размер6.98 Mb.
Формат файлаdoc
Имя файлаVisual Basic 2005 (word97).doc
ТипРеферат
#12532
страница61 из 63
1   ...   55   56   57   58   59   60   61   62   63

Приложение 40


Дана прямоугольная целочисленная матрица. Размеры матрицы и значения ее элементов вводятся с клавиатуры. Найти минимальный элемент в каждом столбце матрицы. Полученные результаты записать в одномерный массив. Исходную матрицу и результирующий массив вывести в окно списка.

Dim a(,) As Integer

Dim m, n As Integer

Dim i, j As Integer

Dim s As String

Dim min As Integer

Dim b() As Integer

Do

m = Val(InputBox("Введите количество строк"))

Loop Until m > 0

Do

n = Val(InputBox("Введите количество столбцов"))

Loop Until n > 0

m -= 1

n -= 1

ReDim a(m, n)

For i = 0 To m

For j = 0 To n

a(i, j) = Val(InputBox("Введите элемент (" + _

Str(i) + "," + Str(j) + ")"))

Next

Next

lstMatrix.Items.Clear()

lstMatrix.Items.Add("Матрица")

For i = 0 To m

s = ""

For j = 0 To n

s += Str(a(i, j)) + vbTab

Next

lstMatrix.Items.Add(s)

Next

ReDim b(n)

For j = 0 To n

min = a(0, j)

For i = 1 To m

If a(i, j) < min Then

min = a(i, j)

End If

Next

b(j) = min

Next

lstMatrix.Items.Add("---------------------------------")

lstMatrix.Items.Add("Столбец" + vbTab + "Минимум")

For i = 0 To n

lstMatrix.Items.Add(Str(i) + vbTab + Str(b(i)))

Next

Приложение 41


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

Dim a(,) As Integer

Dim n As Integer

Dim i, j As Integer

Dim s As String

Dim sum, proiz As Integer

Do

n = Val(InputBox("Введите размер матрицы"))

Loop Until n > 0

n -= 1

ReDim a(n, n)

For i = 0 To n

For j = 0 To n

a(i, j) = Val(InputBox("Введите элемент (" + _

Str(i) + "," + Str(j) + ")"))

Next

Next

lstMatrix.Items.Clear()

lstMatrix.Items.Add("Матрица")

For i = 0 To n

s = ""

For j = 0 To n

s += Str(a(i, j)) + vbTab

Next

lstMatrix.Items.Add(s)

Next

sum = 0

proiz = 1

For i = 0 To n

sum += a(i, i)

proiz *= a(i, n - i)

Next

lstMatrix.Items.Add("---------------------------------")

lstMatrix.Items.Add("Сумма = " + Str(sum))

lstMatrix.Items.Add("Произведение = " + Str(proiz))

Приложение 42


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

Dim a(,) As Integer

Dim n As Integer

Dim i, j As Integer

Dim s As String

Dim min, imin, jmin As Integer

Dim max, imax, jmax As Integer

Do

n = Val(InputBox("Введите размер матрицы"))

Loop Until n > 0

n -= 1

ReDim a(n, n)

For i = 0 To n

For j = 0 To n

a(i, j) = Val(InputBox("Введите элемент (" + _

Str(i) + "," + Str(j) + ")"))

Next

Next

lstMatrix.Items.Clear()

lstMatrix.Items.Add("Матрица")

For i = 0 To n

s = ""

For j = 0 To n

s += Str(a(i, j)) + vbTab

Next

lstMatrix.Items.Add(s)

Next

min = a(0, n)

imin = 0

jmin = n

max = a(n, n)

imax = n

jmax = n

For i = 0 To n

For j = 0 To n

If i < j And a(i, j) < min Then

min = a(i, j)

imin = i

jmin = j

End If

If i + j > n And a(i, j) > max Then

max = a(i, j)

imax = i

jmax = j

End If

Next

Next

lstMatrix.Items.Add("------------------------------------")

lstMatrix.Items.Add("Минимальный над главной диагональю")

lstMatrix.Items.Add("Значение:" + Str(min))

lstMatrix.Items.Add("Строка:" + Str(imin))

lstMatrix.Items.Add("Столбец:" + Str(jmin))

lstMatrix.Items.Add("Максимальный под побочной диагональю")

lstMatrix.Items.Add("Значение:" + Str(max))

lstMatrix.Items.Add("Строка:" + Str(imax))

lstMatrix.Items.Add("Столбец:" + Str(jmax))
1   ...   55   56   57   58   59   60   61   62   63


написать администратору сайта