Программирование матричных операций - VB (170606)

Формулировка задачи:

Из матрицы a по заданному правилу получить элементы вектора i=1,2,…,n. Сама матрица: вот я рассчитал элементы квадратной матрицы:
Кликните здесь для просмотра всего текста
Private Sub Command1_Click() Dim A(1 To 100, 1 To 100) As Double Dim i, j As Double N = Val(Text1.Text) For i = 1 To N For j = 1 To N A(i, j) = i / j - Log(i) * j Picture1.Print Format(A(i, j), "0.0"), Next j Picture1.Print ' Next i End Sub
а как дальше выписать в вектор-столбец максимальные значения элементов каждой строки? есть предположение сделать так:
Кликните здесь для просмотра всего текста
Max = x(1) For j = 2 To N If x(j) < Max Then Max = x(j)

Код к задаче: «Программирование матричных операций - VB (170606)»

textual
Dim A(1 To 100, 1 To 100) As Double
Dim i, j As Double
 
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
A(i, j) = i / j - Logi * j
Picture1.Print Format(A(i, j), "0.0"),
Next j
Picture1.Print '
Next i
End Sub
 
Private Sub Command2_Click()
Dim x(1 To 100) As Double
For i = 1 To n
max = A(i, 1)
For j = 1 To n
If max < A(i, j) Then max = A(i, j)
Next j
x(i) = max
Picture1.Print x(i)
Next i
End Sub

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

14   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ