|
Платные хостинги
Раскрутка сайта
Книги по программированию
проблеммы с реализацией сортировки массива
- Не обижайся, просто зачем в твоем коде нужна переменная j? Ну да ладно. Собственно, я бы решал эту задачу следущим образом:Код const n=9 'n-количество строк/столбцов -1 (т.е. данный пример работает с матрицей 10х10)Sub mainDim A(0 to n, 0 to n) As DoubleDim S As Double, i as long'Здесь мы матрицу чем-нибудь заполняемS=0For i=0 to nS=S+A(i,i)Next iMsgBox "Сумма элементов на прямой диагонали: " & CStr(S)S=0For i=0 to n S=S+A(i,n-i)Next iMsgBox "Сумма элементов на обратной диагонали: " & CStr(S)End SubhighlightSyntax('vbMjQ3MD','vb');
- Код Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerDim sum1 As Integer ' прямая диагональDim sum2 As Integer ' обратная диагональ' матрица размером 4x4Dim matrix(1 To 4, 1 To 4) As Integermatrix(1, 1) = 8matrix(1, 2) = 6matrix(1, 3) = 3matrix(1, 4) = 1matrix(2, 1) = 5matrix(2, 2) = 3matrix(2, 3) = 2matrix(2, 4) = 0matrix(3, 1) = 4matrix(3, 2) = 9matrix(3, 3) = 7matrix(3, 4) = 8matrix(4, 1) = 3matrix(4, 2) = 0matrix(4, 3) = 1matrix(4, 4) = 2For i = 1 To 4 sum1 = sum1 + matrix(i, i) sum2 = sum2 + matrix(i, 5 - i)NextEnd SubhighlightSyntax('vbY3OThk','vb'); Добавлено @ 20:41 ChofCh, ага
- Код Option ExplicitPrivate Sub Command1_Click()Dim Matrix(4, 4) As IntegerDim i As Integer, j As IntegerDim sum As IntegerDim reciprocal As IntegerPrintFor i = 0 To 4 ' мой код ;=) For j = 0 To 4 Randomize Matrix(i, j) = Int(Rnd * -100) Print " "; Matrix(i, j); Next j PrintNext iFor i = 0 To 4 'твой код, Романыч ;=)For j = 0 To 4If i = j Thensum = sum + Matrix(i, j)reciprocal = reciprocal + Matrix(i, 4 - i) ' и код cardinal'a ;=)End IfNext jNext iPrint "Сумма прямой диагонали = " & sum ' наш результат ;=))Print "Сумма обратной = " & reciprocal' итого: сообразили на троих, что называется ;=)))End SubhighlightSyntax('vb1OGVmM','vb');
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
