Получите целочисленную квадратную матрицу того же порядка, в которой элемент равен единице - Microsoft Office Word - Страница 2

Makavelli · 18.12.2011, 20:42

после запуска проги, нажимаем кнопку, матрица должна рандомно (случайно, наугад) заполниться.

vova_ · 18.12.2011, 20:51

ыфывфыввфывфывф

vova_ · 18.12.2011, 21:26

на форме розмести TextBox1 и CommandButton1
зделай дабл-клик на CommandButton1
Ctrl+A Delete
и вставь этот код:

Private Sub CommandButton1_Click()
Dim i, j As Integer
Dim a(1 To 3, 1 To 3), b(1 To 3, 1 To 3) As Double
a(1, 1) = 21
a(1, 2) = 32
a(1, 3) = 53
a(2, 1) = 50
a(2, 2) = 54
a(2, 3) = 84
a(3, 1) = 65
a(3, 2) = 42
a(3, 3) = 44
For i = 1 To 3
For j = 1 To 3
b(i, j) = 0
If a(i, j) > a(i, i) Then b(i, j) = 1
Next j
Next i
For i = 1 To 3
For j = 1 To 2
TextBox1.Text = TextBox1.Text + Str$(b(i, j)) + Chr(9)
Next j
TextBox1.Text = TextBox1.Text + Str$(b(i, 3)) + Chr(13)
Next i
End Sub
Private Sub UserForm_Activate()
UserForm1.Width = 212
UserForm1.Height = 230
TextBox1.Left = 30
TextBox1.Top = 18
TextBox1.Height = 113
TextBox1.Width = 150
CommandButton1.Left = 54
CommandButton1.Top = 150
CommandButton1.Width = 90
CommandButton1.Height = 36
TextBox1.MultiLine = True
End Sub

vova_ · 18.12.2011, 21:30

заче генерировать случайную матрицу
а потом её анализировать?

vova_ · 18.12.2011, 21:45

вот
Private Sub CommandButton1_Click()
Dim i, j, min, max As Integer
Dim a(1 To 3, 1 To 3), b(1 To 3, 1 To 3) As Double
TextBox1.Text = ""
min = 1
max = 150
a(1, 1) = (max * Rnd() + min)
a(1, 2) = (max * Rnd() + min)
a(1, 3) = (max * Rnd() + min)
a(2, 1) = (max * Rnd() + min)
a(2, 2) = (max * Rnd() + min)
a(2, 3) = (max * Rnd() + min)
a(3, 1) = (max * Rnd() + min)
a(3, 2) = (max * Rnd() + min)
a(3, 3) = (max * Rnd() + min)
For i = 1 To 3
For j = 1 To 3
b(i, j) = 0
If a(i, j) > a(i, i) Then b(i, j) = 1
Next j
Next i
For i = 1 To 3
For j = 1 To 2
TextBox1.Text = TextBox1.Text + Str$(b(i, j)) + Chr(9)
Next j
TextBox1.Text = TextBox1.Text + Str$(b(i, 3)) + Chr(13)
Next i
End Sub
Private Sub UserForm_Activate()
UserForm1.Width = 212
UserForm1.Height = 230
TextBox1.Left = 30
TextBox1.Top = 18
TextBox1.Height = 113
TextBox1.Width = 150
CommandButton1.Left = 54
CommandButton1.Top = 150
CommandButton1.Width = 90
CommandButton1.Height = 36
TextBox1.MultiLine = True
End Sub

vova_ · 18.12.2011, 21:47

max и min - края области генерации элементов исходной матрицы

vova_ · 18.12.2011, 21:53

а грамотней так
Private Sub CommandButton1_Click()
Dim i, j, min, max As Integer
Dim a(1 To 3, 1 To 3), b(1 To 3, 1 To 3) As Double
TextBox1.Text = ""
min = 1
max = 150
For i = 1 To 3
For j = 1 To 3
a(i, j) = (max * Rnd() + min)
Next j
Next i
For i = 1 To 3
For j = 1 To 3
b(i, j) = 0
If a(i, j) > a(i, i) Then b(i, j) = 1
Next j
Next i
For i = 1 To 3
For j = 1 To 2
TextBox1.Text = TextBox1.Text + Str$(b(i, j)) + Chr(9)
Next j
TextBox1.Text = TextBox1.Text + Str$(b(i, 3)) + Chr(13)
Next i
End Sub
Private Sub UserForm_Activate()
UserForm1.Width = 212
UserForm1.Height = 230
TextBox1.Left = 30
TextBox1.Top = 18
TextBox1.Height = 113
TextBox1.Width = 150
CommandButton1.Left = 54
CommandButton1.Top = 150
CommandButton1.Width = 90
CommandButton1.Height = 36
TextBox1.MultiLine = True
End Sub

Makavelli · 19.12.2011, 19:07

vova_, спасибо огромное выручил! Немного допилил, добавил 2ой TextBox и в нём вывел матрицу a, чтоб было наглядно. Ещё раз большое спасибо

18.12.2011, 20:51	#12
vova_ Форумчанин Регистрация: 07.11.2011 Сообщений: 100	ыфывфыввфывфывф Последний раз редактировалось vova_; 18.12.2011 в 21:26.

18.12.2011, 21:26	#13
vova_ Форумчанин Регистрация: 07.11.2011 Сообщений: 100	на форме розмести TextBox1 и CommandButton1 зделай дабл-клик на CommandButton1 Ctrl+A Delete и вставь этот код: Private Sub CommandButton1_Click() Dim i, j As Integer Dim a(1 To 3, 1 To 3), b(1 To 3, 1 To 3) As Double a(1, 1) = 21 a(1, 2) = 32 a(1, 3) = 53 a(2, 1) = 50 a(2, 2) = 54 a(2, 3) = 84 a(3, 1) = 65 a(3, 2) = 42 a(3, 3) = 44 For i = 1 To 3 For j = 1 To 3 b(i, j) = 0 If a(i, j) > a(i, i) Then b(i, j) = 1 Next j Next i For i = 1 To 3 For j = 1 To 2 TextBox1.Text = TextBox1.Text + Str$(b(i, j)) + Chr(9) Next j TextBox1.Text = TextBox1.Text + Str$(b(i, 3)) + Chr(13) Next i End Sub Private Sub UserForm_Activate() UserForm1.Width = 212 UserForm1.Height = 230 TextBox1.Left = 30 TextBox1.Top = 18 TextBox1.Height = 113 TextBox1.Width = 150 CommandButton1.Left = 54 CommandButton1.Top = 150 CommandButton1.Width = 90 CommandButton1.Height = 36 TextBox1.MultiLine = True End Sub Последний раз редактировалось vova_; 18.12.2011 в 21:31.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
дано целое число n. Получить целочисленную матрицу b размером n x n для которой b(i,j)=i-3j	Романн	Помощь студентам	1	07.06.2011 19:58
Задано квадратную матрицу	/Oleh/	Помощь студентам	5	07.03.2011 18:56
Задача на квадратную матрицу..	Razorishe	Помощь студентам	4	17.03.2009 08:52
Сформировать матрицу A - первый столбец которой равен последнему столбцу исходной матрицы	Вика М.	Помощь студентам	3	23.12.2008 04:51
фортран, ввести квадратную матрицу 4-го порядка ,элементы которой заданы для ввода построчно	slepen346	Помощь студентам	0	09.12.2008 18:58

18.12.2011, 20:42	#11
Makavelli Регистрация: 05.05.2009 Сообщений: 7	после запуска проги, нажимаем кнопку, матрица должна рандомно (случайно, наугад) заполниться.

18.12.2011, 21:30	#14
vova_ Форумчанин Регистрация: 07.11.2011 Сообщений: 100	заче генерировать случайную матрицу а потом её анализировать?

18.12.2011, 21:45	#15
vova_ Форумчанин Регистрация: 07.11.2011 Сообщений: 100	вот Private Sub CommandButton1_Click() Dim i, j, min, max As Integer Dim a(1 To 3, 1 To 3), b(1 To 3, 1 To 3) As Double TextBox1.Text = "" min = 1 max = 150 a(1, 1) = (max * Rnd() + min) a(1, 2) = (max * Rnd() + min) a(1, 3) = (max * Rnd() + min) a(2, 1) = (max * Rnd() + min) a(2, 2) = (max * Rnd() + min) a(2, 3) = (max * Rnd() + min) a(3, 1) = (max * Rnd() + min) a(3, 2) = (max * Rnd() + min) a(3, 3) = (max * Rnd() + min) For i = 1 To 3 For j = 1 To 3 b(i, j) = 0 If a(i, j) > a(i, i) Then b(i, j) = 1 Next j Next i For i = 1 To 3 For j = 1 To 2 TextBox1.Text = TextBox1.Text + Str$(b(i, j)) + Chr(9) Next j TextBox1.Text = TextBox1.Text + Str$(b(i, 3)) + Chr(13) Next i End Sub Private Sub UserForm_Activate() UserForm1.Width = 212 UserForm1.Height = 230 TextBox1.Left = 30 TextBox1.Top = 18 TextBox1.Height = 113 TextBox1.Width = 150 CommandButton1.Left = 54 CommandButton1.Top = 150 CommandButton1.Width = 90 CommandButton1.Height = 36 TextBox1.MultiLine = True End Sub

18.12.2011, 21:47	#16
vova_ Форумчанин Регистрация: 07.11.2011 Сообщений: 100	max и min - края области генерации элементов исходной матрицы

18.12.2011, 21:53	#17
vova_ Форумчанин Регистрация: 07.11.2011 Сообщений: 100	а грамотней так Private Sub CommandButton1_Click() Dim i, j, min, max As Integer Dim a(1 To 3, 1 To 3), b(1 To 3, 1 To 3) As Double TextBox1.Text = "" min = 1 max = 150 For i = 1 To 3 For j = 1 To 3 a(i, j) = (max * Rnd() + min) Next j Next i For i = 1 To 3 For j = 1 To 3 b(i, j) = 0 If a(i, j) > a(i, i) Then b(i, j) = 1 Next j Next i For i = 1 To 3 For j = 1 To 2 TextBox1.Text = TextBox1.Text + Str$(b(i, j)) + Chr(9) Next j TextBox1.Text = TextBox1.Text + Str$(b(i, 3)) + Chr(13) Next i End Sub Private Sub UserForm_Activate() UserForm1.Width = 212 UserForm1.Height = 230 TextBox1.Left = 30 TextBox1.Top = 18 TextBox1.Height = 113 TextBox1.Width = 150 CommandButton1.Left = 54 CommandButton1.Top = 150 CommandButton1.Width = 90 CommandButton1.Height = 36 TextBox1.MultiLine = True End Sub

19.12.2011, 19:07	#18
Makavelli Регистрация: 05.05.2009 Сообщений: 7	vova_, спасибо огромное выручил! Немного допилил, добавил 2ой TextBox и в нём вывел матрицу a, чтоб было наглядно. Ещё раз большое спасибо