تمرين 5 ( مجاب ) : ترتيب عناصر جدول Table حروف أو أرقام

السلام عليكم ورحمة الله
الموضوع لـGladiator16
لسلام عليكمورحمة الله وبركاته
بعد استشارة الاخ mrabiee ساضع لكم هذا التمرين
وهو ترتيب عناصر جدول ترتيب تصاعدي او تنازلي
مثلا لدينا
tab={9,1,3,8,6,2,5,4,7};
وتكون النتيجة
1
2
3
4
5
6
7
8
9

يمنع استعمال هذه الدالة الجاهزة
Table.Sort
يسمح للجميع المشاركة فى الحل
اول اجابة صحيحة هي لـــــ خالد على22
جواب خالد علي
إنت متعب أخى جلاديتور
و لماذا لا نستعمل الدالة الجاهزة
table.sort ؟؟

عموما إليك كود الزر

الكود:

كود:
Debug.ShowWindow(true);
tab={9,1,3,8,6,2,5,4,7};
tc = Table.Count(tab);
for i = 1,tc,1 do
min_val = i;
for x = i+1,tc,1 do
if (tab[x] < tab[min_val]) then
min_val = x;
end;
end;
tab[i], tab[min_val] = tab[min_val], tab[i];
end
for i = 1,tc,1 do
Debug.Print (tab[i].."\r\n");
end;

اجابتك صحيحة وبانتظار حلول اخرى لبقية الاعضاء :
واجابتي المقترحة كانت

الكود:

Debug.ShowWindow(true);
tab={9,1,3,8,6,2,5,4,7};
for j=1,Table.Count(tab) do
for i=2,Table.Count(tab) do
if tab[i-1] > tab[i] then
temp=tab[i-1];
tab[i-1]=tab[i];
tab[i]=temp;
end
end
end
for i=1,Table.Count(tab) do
    Debug.Print(tab[i].."\r\n");
end

رد خالد علي
أخى جلاديتور
انت مشكور على هذا التمرين
فقط ملحوظة بسيطة
لا تقم بدمج الأكواد حتى يتسنى فهم الكود فليس كل الأعضاء محترفين
كنت أستطيع وضع الكود على الشكل

الكود:

كود:كود:
Debug.ShowWindow(true);
tab={9,1,3,8,6,2,5,4,7};
for i = 1,(Table.Count(tab)),1 do min_val = i;
for x = i+1,(Table.Count(tab)),1 do if (tab[x] < tab[min_val]) then  min_val = x; end; end;
tab[i], tab[min_val] = tab[min_val], tab[i];  end
for i = 1,(Table.Count(tab)),1 do Debug.Print (tab[i].."\r\n"); end;

و هنا سنجد ان من يستطيع تتبع الكود قليلون
رفقا بالأعضاء الجدد أخى جلاديتور

Gladiator16 يقول

الكود:

كود:
Debug.Clear();
Debug.ShowWindow(true);
tab={"a","z","v","r","t","y","u","i","b","d","c","f","e"};
for j=1,Table.Count(tab) do
for i=2,Table.Count(tab) do
if String.Asc(tab[i-1]) > String.Asc(tab[i]) then
temp=tab[i-1];
tab[i-1]=tab[i];
tab[i]=temp;
end
end
end

for i=1,Table.Count(tab) do
    Debug.Print(tab[i].."\r\n");
end