Расположение элементов в матрице

Задание

·          
Расположить
в матрице A(N,N) элементы в порядке их возрастания в последовательности
указанной на рисунке.

Требования
к программе:

·          
Составить
программу на алгоритмическом языке, выполняющую указанные преобразования с
матрицами;

·          
Вывести
исходную матрицу с индексами её элементов;

·          
Вывести
преобразованную матрицу с новым содержимым;

·          
Программа
должна строиться таким образом, чтобы существовала возможность её использования
с массивами любой размерности, содержащими произвольные элементы;

·          
В
программе должна быть предусмотрена выдача на печать исходных и преобразованных
матриц;

·          
Полученные
результаты должны быть занесены в файл последовательного доступа и доступны для
просмотра из него.

Изменённые
свойства приложения

Begin VB.Form
Form1

BorderStyle =
1 'Fixed Single

Caption = "Задание
№46"

ClientHeight =
5550

ClientLeft = 45

ClientTop = 435

ClientWidth =
7575

LinkTopic = "Form1"

MaxButton = 0
'False

ScaleHeight =
5550

ScaleWidth = 7575

StartUpPosition
= 2 'CenterScreen

Begin
VB.TextBox txtOriginal

Height = 1875

Left = 90

Locked = -1 'True

MultiLine = -1
'True

ScrollBars = 2
'Vertical

TabIndex = 3

Top = 1350

Width = 7365

End

Begin
VB.Frame Frame1

Caption = "Управление
размерностью матрицы"

BeginProperty
Font

Name = "MS
Sans Serif"

Size = 8.25

Charset = 204

Weight = 700

Underline = 0
'False

Italic = 0 'False

Strikethrough
= 0 'False

EndProperty

Height = 885

Left = 90

TabIndex = 7

Top = 120

Width = 7365

Begin
VB.TextBox txtN

Alignment = 2
'Center

Height = 285

Left = 3150

MaxLength = 4

TabIndex = 0

Top = 390

Width = 1335

End

Begin
VB.CommandButton cmdRun

Caption = "&Решение"

Default = -1 'True

Enabled = 0 'False

Height = 375

Left = 4650

TabIndex = 1

Top = 360

Width = 1245

End

Begin
VB.CommandButton cmdExit

Cancel = -1 'True

Caption = "&Выход"

Height = 375

Left = 5970

TabIndex = 2

Top = 360

Width = 1245

End

Begin
VB.Label Label2

Alignment = 2
'Center

BorderStyle =
1 'Fixed Single

Caption = "Введите
размерность матрицы"

Height = 255

Left = 150

TabIndex = 8

Top = 390

Width = 2895

End

End

Begin
VB.TextBox txtResult

Height = 1875

Left = 90

Locked = -1 'True

MultiLine = -1
'True

ScrollBars = 2
'Vertical

TabIndex = 4

Top = 3570

Width = 7365

End

Begin
VB.Label Label3

Alignment = 2
'Center

BorderStyle =
1 'Fixed Single

Caption = "Полученная
матрица"

BeginProperty
Font

Name = "MS
Sans Serif"

Size = 8.25

Charset = 204

Weight = 700

Underline = 0
'False

Italic = 0 'False

Strikethrough
= 0 'False

EndProperty

Height = 255

Left = 90

TabIndex = 6

Top = 3270

Width = 7365

End

Begin
VB.Label Label1

Alignment = 2
'Center

BorderStyle =
1 'Fixed Single

Caption = "Оригинальная
матрица"

BeginProperty
Font

Name = "MS
Sans Serif"

Size = 8.25

Charset = 204

Weight = 700

Underline = 0
'False

Italic = 0 'False

Strikethrough
= 0 'False

EndProperty

Height = 255

Left = 90

TabIndex = 5

Top = 1050

Width = 7365

End

End

Attribute
VB_Name = "Form1"

Attribute
VB_GlobalNameSpace = False

Attribute
VB_Creatable = False

Attribute
VB_PredeclaredId = True

Attribute
VB_Exposed = False

Текст
программы на языке Microsoft Visual Basic 6.00

Option
Explicit

Private Sub
cmdExit_Click()

Unload Me

End Sub

Private Sub
cmdPrint_Click()

Me.PrintForm

End Sub

Private Sub
cmdRun_Click()

txtN.Enabled
= False

Dim pi As
Integer, pj As Integer

Dim i As
Integer, j As Integer

Dim t As
Integer, n As Integer

Dim k As
Integer, p As Integer

n =
Val(txtN.Text)

txtOriginal.Text
= Empty

ReDim a(n, n)
As Integer

For i = 1 To
n

For j = 1 To
n

a(i, j) =
Int(Rnd * 90) + 10

txtOriginal.Text
= txtOriginal.Text & Str(a(i, j)) & " "

Next j

txtOriginal.Text
= txtOriginal.Text & vbCrLf

Next i

ReDim x(n ^ 2)
As Integer

k = 0

p = n / 2 *
11

pi = Int(p /
10)

pj = p - pi *
10

k = k + 1

x(k) = a(pi,
pj)

For i = 1 To
n - 1

For t = 1 To
10 Step 9

For j = 1 To
i

p = p + (-1)
^ (i + 1) * t

pi = Int(p /
10)

pj = p - pi *
10

k = k + 1

x(k) = a(pi,
pj)

Next j

Next t

Next i

For i = 1 To
n - 1

p = p - 1

pi = Int(p /
10)

pj = p - pi *
10

k = k + 1

x(k) = a(pi,
pj)

Next i

For t = 1 To
n ^ 2

For i = 1 To
n ^ 2 - 1

If x(i) >
x(i + 1) Then

k = x(i)

x(i) = x(i +
1)

x(i + 1) = k

End If

Next i

Next t

k = 0

p = n / 2 *
11

pi = Int(p /
10)

pj = p - pi *
10

k = k + 1

a(pi, pj) =
x(k)

For i = 1 To
n - 1

For t = 1 To
10 Step 9

For j = 1 To
i

p = p + (-1)
^ (i + 1) * t

pi = Int(p /
10)

pj = p - pi *
10

k = k + 1

a(pi, pj) =
x(k)

Next j

Next t

Next i

For i = 1 To
n - 1

p = p - 1

pi = Int(p /
10)

pj = p - pi *
10

k = k + 1

a(pi, pj) =
x(k)

Next i

txtResult.Text
= Empty

For i = 1 To
n

For j = 1 To
n

txtResult.Text
= txtResult.Text & Str(a(i, j)) & " "

Next j

txtResult.Text
= txtResult.Text & vbCrLf

Next i

cmdPrint.Enabled
= True

cmdSave.Enabled
= True

End Sub

Private Sub
cmdSave_Click()

Open App.Path
& "\Result.txt" For Output As #1

Print #1,
"Задание №46" & vbCrLf & vbCrLf

Print #1,
"Исходная матрица:" & vbCrLf

Print #1,
txtOriginal.Text & vbCrLf

Print #1,
"Полученная матрица:" & vbCrLf

Print #1,
txtResult.Text

Close #1

End Sub

Private Sub
txtN_Change()

If
Val(txtN.Text) > 8 Or Val(txtN.Text) = 0 Or Val(txtN.Text) Mod 2 <> 0
Then

cmdRun.Enabled
= False

Else

cmdRun.Enabled
= True

End If

End Sub

Private Sub
txtN_KeyPress(KeyAscii As Integer)

If KeyAscii
< 26 Then Exit Sub

If Not
IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0

End Sub

Внешний
вид приложения:

Результат
работы приложения: