منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - طلب : كود ترتيب مصفوفة ثنائية تصاعدياً + كود ضرب مصفوفة ثنائية

السلام عليكم

اخواني

اختكم من فلسطين

مبتدئة بالبرمجة

اريد من احدكم ان يكتب لي كود

ترتيب مصفوفة ثنائية تصاعدياً + كود ضرب مصفوفة ثنائية

باسرع وقت

شكراً لكم

ترتيب تصاعدي

PHP كود :

       Dim binArray As Integer() = New Integer() {1, 1, 1, 0, 0, 1, 1, 1, 0, 0}
        Dim first As Integer = 0
        Dim last As Integer = binArray.Length - 1
        While first < last
            If 0 = binArray(first) Then
                first += 1
            ElseIf 1 = binArray(last) Then
                last -= 1
            Else
                binArray(first) = 0
                binArray(last) = 1
            End If
        End While 

ايضا الكود اعلاه يمكن تحويلة الي روتين كالتالي

PHP كود :

   Private Sub Sort(binArray As Integer())
        Dim first As Integer = 0
        Dim last As Integer = binArray.Length - 1
        While first < last
            If 0 = binArray(first) Then
                first += 1
            ElseIf 1 = binArray(last) Then
                last -= 1
            Else
                binArray(first) = 0
                binArray(last) = 1
            End If
        End While
    End Sub 

و الروتين يستخدم كالتالي

PHP كود :

       Dim binArray As Integer() = New Integer() {1, 1, 1, 0, 0, 1, 1, 1, 0, 0}
        Sort(binArray) 

PHP كود :

Dim aray1D As Integer() = New Integer() {4, 2, 3, 9, 6, 5, 4, 7}
Array.Sort(aray1D) 

PHP كود :

Dim aray2D(,) As Double = {{4, 2}, {3, 9}, {6, 5}, {4, 7}}
Sort2DArray(aray2D) 

PHP كود :

Sub Sort2DArray(ByRef arr2D As Double(,))
    Dim key(arr2D.GetLongLength(0) - 1) As Double
    Dim item(arr2D.GetLongLength(0) - 1) As Double
    For i = 0 To arr2D.GetLongLength(0) - 1
        key(i) = arr2D(i, 0)
        item(i) = arr2D(i, 1)
    Next
    Array.Sort(key, item)
    For i = 0 To arr2D.GetLongLength(0) - 1
        arr2D(i, 0) = key(i)
        arr2D(i, 1) = item(i)
    Next
End Sub 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سوسن جاد الله

silverlight

amgad525