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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب : كود ترتيب مصفوفة ثنائية تصاعدياً + كود ضرب مصفوفة ثنائية (/showthread.php?tid=18160)

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

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


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

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

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


باسرع وقت

شكراً لكم 


RE: طلب : كود ترتيب مصفوفة ثنائية تصاعدياً + كود ضرب مصفوفة ثنائية - silverlight - 27-11-16

ترتيب تصاعدي

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) 


RE: طلب : كود ترتيب مصفوفة ثنائية تصاعدياً + كود ضرب مصفوفة ثنائية - amgad525 - 27-11-16

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