.
-, , () . .
1) . .
2) . .
3) . .
4) . .
-, , , , . , () , .
, , , .
, , , , , .
( ).
. 4.7.4-11.
Sub Pr7411(ByRef x() As Single) Dim i, n, j, k As Integer Dim xmax As Single n = UBound(x) ' For i = 0 To n - 1 xmax = x(i) k = i ' xmax k For j = i + 1 To n If x(j) > xmax Then xmax = x(j) k = j End If Next j x(k) = x(i) x(i) = xmax Next i End Sub |
. 4.7.4-11. Pr7411()
4.7.4-11
.
. , 1-. . , , 2- , .. , () n. , , , , , .
|
|
, (i+1) - . , xmax , k - . , i - .
( ).
. 4.7.4-12.
Sub Pr7412(ByRef x() As Single) Dim i, n, j As Integer Dim xx As Single n = UBound(x) For i = 0 To n-1 For j = i + 1 To n If x(i) > x(j) Then xx = x(i) x(i) = x(j) x(j) = xx End If Next j Next i End Sub |
. 4.7.4-12. Pr7412()
4.7.4-11
, .. (.. ), . . , , , , , .
, , .
, ↔, xx.