تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب : كود ترتيب مصفوفة ثنائية تصاعدياً + كود ضرب مصفوفة ثنائية
#1
Music 
السلام عليكم 
اخواني
اختكم من فلسطين


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

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

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


باسرع وقت

شكراً لكم 
الرد
تم الشكر بواسطة:
#2
ترتيب تصاعدي

PHP كود :
       Dim binArray As Integer() = New Integer() {1110011100}
 
       Dim first As Integer 0
        Dim last 
As Integer binArray.Length 1
        While first 
last
            If 0 
binArray(firstThen
                first 
+= 1
            ElseIf 1 
binArray(lastThen
                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(firstThen
                first 
+= 1
            ElseIf 1 
binArray(lastThen
                last 
-= 1
            Else
                binArray
(first) = 0
                binArray
(last) = 1
            End 
If
 
       End While
 
   End Sub 

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

PHP كود :
       Dim binArray As Integer() = New Integer() {1110011100}
 
       Sort(binArray
الرد
تم الشكر بواسطة: Amir_Alzubidy
#3
PHP كود :
Dim aray1D As Integer() = New Integer() {42396547}
Array.
Sort(aray1D

PHP كود :
Dim aray2D(,) As Double = {{42}, {39}, {65}, {47}}
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 0 To arr2D.GetLongLength(0) - 1
        key
(i) = arr2D(i0)
        
item(i) = arr2D(i1)
    
Next
    
Array.Sort(keyitem)
    For 
0 To arr2D.GetLongLength(0) - 1
        arr2D
(i0) = key(i)
        
arr2D(i1) = item(i)
    
Next
End Sub 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ترتيب السجلات داخل الكريستل ريبورت makky 0 77 19-11-18, 07:48 PM
آخر رد: makky
Big Grin يرجى المساعدة في ترتيب البيانات في الداتا جريد فيو ahmadpal 2 121 05-11-18, 10:41 PM
آخر رد: ahmadpal
  ترتيب النوافذ المفتوحة فى البرنامج atef_020 3 125 01-11-18, 01:30 AM
آخر رد: elgokr
  كيف ابحث عن قيمة متغيرة في مصفوفة سعود 13 2,500 15-10-18, 10:17 PM
آخر رد: سعود
  [VB.NET] تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) larbihamri 6 288 05-08-18, 07:26 PM
آخر رد: larbihamri
  ترتيب الملفات في المجلد حسب تاريخ التعديل مع حذف الاقدم atefkhalf2004 3 252 06-06-18, 04:56 PM
آخر رد: mrnooo2000
  [سؤال] طريقة دمج مصفوفة saad mahyoub 3 244 14-02-18, 10:27 PM
آخر رد: saad mahyoub
  [سؤال] كيف يمكنني تسجيل مصفوفة ذات بعدين في ملف خارجي؟ أحمد إبراهيم سعد 0 216 01-01-18, 07:25 AM
آخر رد: أحمد إبراهيم سعد
  [سؤال] كتابة قيمة ثنائية في الريجستري سعود الشامان 0 309 29-09-17, 04:26 AM
آخر رد: سعود الشامان
  [كود] ترتيب الأسماء أبجدي لسه مبتدئ 2 366 14-09-17, 01:45 AM
آخر رد: لسه مبتدئ

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم