منتدى تعليمي متعلق بالاتوبلاي ميديا ستوديو
 
الرئيسيةالتسجيلدخول

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
الامل الطائر



المساهمات : 57
تاريخ التسجيل : 12/03/2013

مُساهمةموضوع: تمرين 5 ( مجاب ) : ترتيب عناصر جدول Table حروف أو أرقام   الإثنين مارس 25, 2013 8:08 am

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

يمنع استعمال هذه الدالة الجاهزة
Table.Sort
يسمح للجميع المشاركة فى الحل
اول اجابة صحيحة هي لـــــ خالد على22
جواب خالد علي
إنت متعب أخى جلاديتور Very Happy Very Happy
و لماذا لا نستعمل الدالة الجاهزة
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;
اجابتك صحيحة وبانتظار حلول اخرى لبقية الاعضاء : Very Happy
واجابتي المقترحة كانت
الكود:
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;
و هنا سنجد ان من يستطيع تتبع الكود قليلون
رفقا بالأعضاء الجدد أخى جلاديتور Very Happy

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
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
تمرين 5 ( مجاب ) : ترتيب عناصر جدول Table حروف أو أرقام
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
ams 4 arab :: منتدى الطلبات والاستفسارات-
انتقل الى: