Задание
·
Расположить
в матрице 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
Внешний
вид приложения:
Результат
работы приложения:
Другие работы по теме:
Биматричные игры. Поиск равновесных ситуаций
Конфликтные ситуации в управленческой деятельности. Использование математического моделирования для решения управленческих задач. Определение биматричной игры и общий принцип ее решения. Состояние равновесия в смешанных стратегиях в биматричных матрицах.
Стратегический Менеджмент
Исходные данные об объемах продаж, размерах и темпах роста рынков. Расчет показателей для построения матрицы.
Электронные цепи СВЧ (конспект) Add1
Параметры матрицы рассеяния могут быть рассчитаны по известной матрице проводимости четырехполюсника по формуле: – единичная матрица. Необходимо отметить важную особенность параметров матрицы рассеяния, связанную с направлением прохождения сигнала. При изменении направления передачи изменятся лишь индексы в параметрах рассеяния (
Определение продуктивности и устойчивости внимания
Определение продуктивности и устойчивости внимания Ребенку предлагается бланк с кольцами Ландольта в сопровождении следующей инструкции: «Сейчас мы с тобой поиграем в игру, которая называется "Будь внимателен и работай как можно быстрее". В этой игре ты будешь соревноваться с другими детьми, потом мы посмотрим, какого результата ты добился в соревновании с ними.
Метод случайного баланса
Составление для каждой группы матрицы ПФЭ. Порядок проведения опытов в группе. Нахождение медианы точек лежащих слева и справа по диаграмме рассеяния. Определение по медианам величины вклада каждого фактора. Построение выборочной ортогональной матрицы.
Матрица McKinsey
Матрица McKinsey Матрица портфельного анализа, в которой по одной оси определяется уровень привлекательности конкретной отрасли для корпорации, а по другой — конкурентоспособность бизнес–единиц этой корпорации на отраслевом рынке.
Математика матрица
Матрицы Матрица - прямоугольная (в частном случае квадратная) таблица с числами. Матрица m Ч n - это таблица из m строк и n столбцов. Если m = n, матрицу называют квадратной матрицей порядка n.
Повторные ряды
План работы Введение……………………………...………………….…… 5 §1 Повторные ряды ……………….......................................... 6 §2. Сходимость повторных рядов …………………………... 7
Шпаргалка по численным методам
{кофф линейноного уавнения} a:=y2-y1 b:=x1-x2 c:=-x1*(y2-y1)+y1*(x2-x1) {лежит ли точка на прямой} p:=false; if (x3-x1)*(y2-y1)-(y3-y1)*(x2-x1)=0 then p:=true;
Матрицы графов
БЕЛОРУССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ИНФОРМАТИКИ И РАДИОЭЛЕКТРОНИКИ Кафедра информатики РЕФЕРАТ На тему: «Матрицы графов» МИНСК, 2008 В теоретико-множественной и геометрической форм определения (задания) графов, часто используется матричная форма их представления. Существуют различные виды матриц графов, однако все они, как правило, полностью передают основные свойства графов.
Правила Крамера
ПРАВИЛО КРАМЕРА Рассмотрим систему 3-х линейных уравнений с тремя неизвестными: Определитель третьего порядка, соответствующий матрице системы, т.е. составленный из коэффициентов при неизвестных,
Определитель матрицы 2
Оглавление Задача 2 3 Задача 3 5 Задача 4 7 Задача 1 Вычислить определитель 4-го порядка. Решение: Определитель 4-го порядка находится по формуле: aij – элемент матрицы;
Шпаргалка по численным методам
Определение точки пересечения отрезков, расстояния между точками, сортировка выбором, сортировка обменом, двоичный поиск, сортировка бинарными вставками.
Алгебра матриц
Основные понятия. Линейные операции над матрицами. Умножение матриц. Свойства умножения матриц. Вырожденные и невырожденные матрицы.
Матрицы и определители
Матрицы. Операции над матрицами. Определители. Теорема (разложение определителя по строке или столбцу).. Ранг матрицы. Обратная матрица.
Некоторые понятия высшей матаматики
Понятие матрицы, эллипса, гиперболы и параболы. Системы уравнений с матрицами. Проекция вектора на ось и действия с векторами. Плоскость и прямые линии в пространстве, их взаимное расположение. Прямоугольная декартова система координат на плоскости.
Матрицы
Общие определения, связанные с понятием матрицы. Действия над матрицами. Определители 2-го и 3-го порядков, порядка n, порядок их вычисления и характерные свойства. Обратные матрицы и их ранг. Понятие и этапы элементарного преобразования матрицы.
Графическое представление графа
Алгоритм перехода к графическому представлению для неориентированного графа. Количество вершин неориентированного графа. Чтение из матрицы смежностей. Связи между вершинами в матрице. Задание координат вершин в зависимости от количества секторов.
Определитель матрицы
Прямоугольная таблица, составленная из чисел или матрица. Произвольная квадратная матрица, ее численная характеристика (определитель). Определители первого и второго порядка. Понятие минора элемента матрицы. Свойства определителей, транспонирование.
Определитель матрицы
Вид в матричной форме, определитель матрицы, алгебраического дополнения и всех элементов матрицы, транспоная матрица. Метод Крамера, правило Крамера — способ решения квадратных систем линейных алгебраических уравнений с определителем основной матрицы.
Матрицы действия с ними
Контрольная работа на тему: «Матрицы, действия с ними» Историческая справка Понятие Матрица (в математике) было введено в работах У. Гамильтона и А. Кэли в середине 19 века. Основы теории созданы К. Вейерштрассом и Ф. Фробениусом (2-я половина 19 века и начало 20 века). И.А. Лаппо-Данилевский разработал теорию аналитических функций от многих матричных аргументов и применил эту теорию к исследованию систем дифференциальных уравнений с аналитическими коэффициентами.
Булевы функции и теория графов
Отношение Р и наличие стандартных свойств: рефлексивность, антирефлексивность, симметричность, антисимметричность, транзитивность. Графы и матрицы замыканий отношения Р. Таблица значений, граф и матрица функции f. Исследование М на линейность (полноту).
Управление продажами
МОСКОВСКИЙ ГУМАНИТАРНЫЙ УНИВЕРСИТЕТ ФАКУЛЬТЕТ РЕКЛАМЫ Кафедра теории рекламы и массовых коммуникаций Специализация «PR в рекламной деятельности»
Деревья - наши друзья
Деревья - наши друзья. Они помогают нам всем! Как приятно смотреть на их высокие крепкие стволы, раскидистые ветки, яркую листву! Весной на деревьях распускаются почки и радуют глаз прохожих, поднимая им расположение духа.
Расчет режима работы СВЧ многополюсника
Схема многополюсника, его матрица рассеяния, выбор конструктивных размеров при заданной частоте. Свойства многополюсника и их отражение в матрице рассеяния, настроечные элементы. Расчет нормированных волн (амплитуды и фазы) на зажимах многополюсника.
Арианские школы в Белоруссии
План Введение 1 Расположение 2 Обучение Введение Арианские школы в Беларуси — учебные заведения представителей реформационного движения в Беларуси, известных под названием ариане, антитринитарии, литовские братья, социниане.
Лекции по вычислительной математике
Бельский Аркадий Александрович. Вычислительная математика. Часть 2. Лекция 1 Вычислительная математика Специальность ПО 5-й семестр Конспект лекций