Строку матрицы с максимальным по модулю элементом в К-ом столбце переставить с К-й строкой

@Ю.А. · Регистрация: 24.12.2010

Author24 — интернет-сервис помощи студентам

задана матрица А размером n на n и число К. Строку с максимальным по модулю элементом в К-ом столбце переставить с К-й строкой

@~~Busine2009~~ · 28.02.2011, 18:43

Ю.А.,
а матрицу как заполнять числами?

@Ю.А. · 28.02.2011, 18:48 **[ТС]**

ага..

@~~Busine2009~~ · 28.02.2011, 18:52

Ю.А.,
есть 3 способа заполнения матрицы данными:

с помощью InputBox;
случайными числами в определённом диапазоне;
с листа Excel.

Выберите нужный пункт.

@gaw · 28.02.2011, 19:06

4 случайными числами в случайном диапазоне;
5 из файла
6
7
8
...
...

@Ю.А. · 28.02.2011, 19:18 **[ТС]**

с помощью InputBox =)

@gaw · 28.02.2011, 19:48

Visual Basic

Private Sub Command1_Click()
Dim n%, k%, i%, j%
Cls
n = Val(InputBox("n-?", , 3))
If n > 1 Then
 
Print "n="; n
k = Val(InputBox("k-?", , 2))
If k > 1 And k < n + 1 Then
Print "k="; k
Print
ReDim a(n, n)
For i = 1 To n
For j = 1 To n
a(i, j) = Val(InputBox("A(" & i & "," & j & ")-?"))
Print a(i, j); Tab;
Next j
Print
Next i
 
mx = Abs(a(1, k)): nm = 1
For i = 1 To n
If mx < Abs(a(i, k)) Then mx = Abs(a(i, k)): nm = i
Next
 
For j = 1 To n
mx = a(k, j): a(k, j) = a(nm, j): a(nm, j) = mx
Next
 
Print
For i = 1 To n
For j = 1 To n
Print a(i, j); Tab;
Next j
Print
Next i
 
Else
MsgBox "k>1 , k<" & n + 1 & " !"
End If
Else
MsgBox "n>1  !"
End If
End Sub

@Ю.А. · 28.02.2011, 19:58 **[ТС]**

спасибо)

@Ю.А. 0 / 0 / 0 Регистрация: 24.12.2010 Сообщений: 14
		1
	Строку матрицы с максимальным по модулю элементом в К-ом столбце переставить с К-й строкой 28.02.2011, 17:49. Показов 939. Ответов 7 Метки нет (Все метки) задана матрица А размером n на n и число К. Строку с максимальным по модулю элементом в К-ом столбце переставить с К-й строкой 0

@~~Busine2009~~ Заблокирован
	28.02.2011, 18:43	2
	Ю.А., а матрицу как заполнять числами? 0

@Ю.А. 0 / 0 / 0 Регистрация: 24.12.2010 Сообщений: 14
	28.02.2011, 18:48 [ТС]	3
	ага.. 0

@~~Busine2009~~ Заблокирован
	28.02.2011, 18:52	4
	Ю.А., есть 3 способа заполнения матрицы данными: с помощью InputBox; случайными числами в определённом диапазоне; с листа Excel. Выберите нужный пункт. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	28.02.2011, 19:06	5
	4 случайными числами в случайном диапазоне; 5 из файла 6 7 8 ... ... 1

@Ю.А. 0 / 0 / 0 Регистрация: 24.12.2010 Сообщений: 14
	28.02.2011, 19:18 [ТС]	6
	с помощью InputBox =) 0

@Ю.А. 0 / 0 / 0 Регистрация: 24.12.2010 Сообщений: 14
	28.02.2011, 19:58 [ТС]	8
	спасибо) 0

Опции темы