Информатика 2011-2012 / Информатика-2-сем(2011) / Задания и примеры / Матрица
.doc
Тема: Преобразование матриц
Задание: Дана квадратная матрица Х(n,n). Поставить элементы главной диагонали на место k - го столбца.
Эскиз приложения
Блок-схема
Программный код
Dim x() As Single, i, j, n As Integer
Private Sub ComdРешить_Click()
m: k = Val(InputBox("Ввести номер столбца", , "k="))
Text2.BackColor = RGB(200, 200, 180)
Text2.ForeColor = vbBlue
If k > n Then MsgBox "Ввести правильно значение k!": GoTo m
For i = 1 To n
For j = 1 To n
If j = k Then x(i, j) = x(i, i)
Text2.Text = Text2.Text + Str(x(i, j)) + " "
Next: Text2.Text = Text2.Text + Chr(13) + Chr(10)
Next
End Sub
Private Sub Выход_Click()
t = MsgBox("Выдействительно хотите выйти??", vbYesNo)
If t = vbYes Then End
End Sub
Private Sub ПоказМассив_Click()
For i = 1 To n
For j = 1 To n
Text1.Text = Text1.Text + Str(x(i, j)) + " "
Next: Text1.Text = Text1.Text + Chr(13) + Chr(10)
Next
End Sub
Private Sub СоздМассив_Click()
n = Val(InputBox("Ввести размерность массива", , "N="))
ReDim x(n, n)
Randomize timtr
For i = 1 To n
For j = 1 To n
x(i, j) = Int(Rnd * 9) - 1
Next
Next
End Sub
Private Sub Удалить_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Работа приложения
1 Создать массива
2 Показать массив
3 Сделать преобразования
4 Выход