+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [سؤال] سؤااااااااال في ترتيب المصفوفات (/showthread.php?tid=2187)
سؤااااااااال في ترتيب المصفوفات - الوفا - 10-03-14
السلام عليكم
سؤال اذا امكن
اذا كان لدي مصفوفتين مثلا
a=(a1,a2,a3,a4,a5
والثانيه
b=(a3,a2,a1
اريد اطلع a-b اي العناصر الموجده في الاولى وليست موجوده في الثانيه يضعها في مصفوفه جديد
اي تصبح
c=(a4,a5
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ارجووو المساعده
RE: سؤااااااااال - Easy4ever - 10-03-14
PHP كود :
dim a(4),b(2),i,n as integer ' نعرف المتغيرات التالية
' نقوم بإضافة قيم لها حسب الرغبة
a(0) = 3
a(1) = 5
a(2) = 10
a(3) = 8
a(4) = 2
b(0) = 10
b(1) = 5
b(2) = 3
' جمله تكرارية لمعرفة عدد الأعداد الذي موجوده في المجموعة الاولى وليس موجووده في المجموعة الثانية
for i = 0 to 4
if a(i) <> b(0) then
if a(i) <> b(1) then
if a(i) <> b(2) then n = n + 1
end if
end if
next
' نعرف مصفوفة لإستقبال الأعداد الذي موجوده في مجموعه الاولى وليست موجوده في مجموعة الثانية وعدد الخانات هو ناتج للمتغير
' n
' ناقص 1 لانه يبدأ من رقم 0
dim c(n-1) as integer
' الان نفرغ المتغير حتى نستفيد به لاحقا
n = 0
for i = 0 to 4
if a(i) <> b(0) then
if a(i) <> b(1) then
if a(i) <> b(2) then
c(n) = a(i)
n = n + 1
end if
end if
end if
next
RE: سؤااااااااال - الوفا - 10-03-14
شكررررا لكن كيف اذا المصفوفتين كبيرتين ؟؟؟اي ان للاثنين عداد فكيف الكود رجاءاا؟؟؟؟؟؟؟؟؟ظ
RE: سؤااااااااال - Easy4ever - 10-03-14
قد يفيد هذا الكود
PHP كود :
dim a(4),b(2),i,i1,n as integer ' نعرف المتغيرات التالية
' نقوم بإضافة قيم لها حسب الرغبة
a(0) = 3
a(1) = 5
a(2) = 10
a(3) = 8
a(4) = 2
b(0) = 10
b(1) = 5
b(2) = 3
' جمله تكرارية لمعرفة عدد الأعداد الذي موجوده في المجموعة الاولى وليس موجووده في المجموعة الثانية
for i = 0 to 4
for i1 = 0 to 3
if a(i) <> b(i) then
if i1 = 3 then n = n + 1
else
exit for
end if
next
next
' نعرف مصفوفة لإستقبال الأعداد الذي موجوده في مجموعه الاولى وليست موجوده في مجموعة الثانية وعدد الخانات هو ناتج للمتغير
' n
' ناقص 1 لانه يبدأ من رقم 0
dim c(n-1) as integer
الان نفرغ المتغير حتى نستفيد به لاحقا
n = 0
for i = 0 to 4
for i1 = 0 to 3
if a(i) <> b(i) then
if i1 = 3 then
c(n) = a(i)
n = n + 1
end if
else
exit for
end if
next
next
RE: سؤااااااااال - الوفا - 10-03-14
شكررررا جزيلا وعاشت الايادي........
تحياااااتي
RE: سؤااااااااال - Easy4ever - 10-03-14
العفو ~
يوجد خطأ في الكود تم تحديث الكود
الخطأ كان اني ما ضفت الكود هذا
PHP كود :
c(n) = a(i)
n = n + 1
PHP كود :
if i1 = 3 then
end if
RE: سؤااااااااال - الوفا - 10-03-14
احسنتم بارك الله بكم