ترتيب العناصر (Sort) | ألمبياد الحاسوب والتكنولوجيا ألمبياد الحاسوب والتكنولوجيا: ترتيب العناصر (Sort)

الأحد، 13 أبريل 2014

ترتيب العناصر (Sort)

ترتيب مصفوفة تصاعديا، وتحتوي على 3 عناصر (خلايا):

Private Sub Command1_Click()

Dim x(2) As Integer

Print ""

For i = 0 To 2

x(i) = Rnd * 10

Print x(i),

Next i

Max = x(0)

For h = 0 To 3

For t = 1 To 2

If x(t - 1) > x(t) Then

w = x(t - 1)

x(t - 1) = x(t)

x(t) = w

End If

Next t

Next h

Print ""

For j = 0 To 2

Print x(j),

Next j

هل اعجبك الموضوع ؟ شاركه مع اصدقائك

انا من الجزائر عمري 16 سنة اهتم بكل ماهو جديد في الحاسوب اختص خاصة في البرمجة والتصميم والتعديل على قوالب بلوجر وحل مشكلات الحاسوب