في المصفوفات

الابن العزيز لانشاء مصفوفه اسمها arr نعطى الامر التالى

( DIMENSION arr(30,1

حيث عدد السطور 30 وعدد الاعمده 1

لتحميل اول عنصر من المصفوفه بمحتوى نعطى الامر التالى

arr(1,1)="haloo"

?arr(1,1)

arr(2,1)="yes"

arr(3,1)="no"

هذا لو اردنا تعبئة المصفوفه يدويا

لو اردنا انشاء مصفوفه من ملف مثلا اسمه names.dbf نحدد الاول عدد سجلات الملف ونضعه فى متغير اسمه مثلا

()vr=RECCOUNT

وان تكون المصفوفه ذات عمود واحد

(DIMENSION arr(vr,1

ثم نملا العناصر بمحتويات الحقل name باعطاء الامر التالى

COPY TO ARRAY arr FIELDS name

هنا تم انشاء مصفوفه وملئها بالعناصر المطلوبه

فى حالات التعامل مع الفورم يتم انشاء الليست والجريد بمجرد تحديد الملف المطلوب ملء المصفوفه منه واسماء الحقول

السلام عليكم

شكرا لك اخي العزيز على اجابتك سؤالي بارك الله فيك وجزاك كل خير

اخي العزيز

هل يتم الادخال للعناصر في نافذة الكوماند

مثلا لو كانت لدي مصفوفة [ a[4,4

اجعل حاصل ضرب عناصر القطر الرئيسي عنصرا في المصفوفة [ d [1

DIMENSION a[4,4],d[1]

x=1

FOR i=1 TO 4

FOR j=1 TO 4

IF i==j

x=x*a[i,j]

endif

ENDFOR

ENDFOR

d[1]=x

عند التنفيذ المفروض ان نقوم بادخال عناصر المصفوفة الثنائبة لكي يظهر الناتج في المصفوفة الاحادية . كبف نقوم بأدخال عناصر للمصفوفة ؟ ولك مني كل الشكر والتقدير

السلام عليكم

الابن العزيز

حاولت افهم ماتريده بالضبط ولم اجد بدا من ان ترسل لى شكل جدول عينه يعنى من المطلوب من المصفوفه عمله ومرسل لك مثال بسيط لعمل المصفوفه

ارجوا الرد

شكرا

arr.rar

السلام عليكم ورحمة الله وبركاته

اخي الكريم

انا اشكر جهودك القيمة في التوضيح بارك الله فيك

انا ادرس مادة قواعد البيانات لكن معلوماتي معدومة تقريبا في المصفوفات علما انها موجودة في المنهاج

ارجو منك مساعدتي في هذا الموضوع وعند كتابة البرامج الخاصة بالمصفوفة وتحديد قيم للمصفوفة هل ان ادخال القيم يتم من خلال البرنامج نفسه ام بعد التنفيذ ؟؟

اي اذا كانت مصفوفة ثنائية مثلاa[2,2 ]l

هل سنقوم بادخال القيم للمصفوفة بهذا الشكل في نافذة command widows

a[1,1]=2

a[1,2]=1

a[2,1]=5

a[2,2]=6

السلام عليكم ورحمة الله وبركاته

الابن العزيز

كنت اود ان اعرف هل بناء على سير البرنامج لا بد من وجود عناصر المصفوفه اولا ام بعد تنفيذ البرنامج

ليتك تفيدنى بالتفاصيل حتى استطيع ان احدد اما عن المثال الذى كتبته انت بالاسفل فهو مضبوط تماما فى حال ان كنا سوف ندخل عناصر المصفوفه يدويا

a[1,1]=2

a[1,2]=1

a[2,1]=5

a[2,2]=6

السلام عليكم ورحمة الله وبركاته

اخي الكريم بارك الله فيك

شكرا على تواصلك

اود ان ابين لك ان القيم للمصفوفة التي اسال عنها هو بعد التنفيذ يتم ادخالها للمصفوفة

فمثلا اذا كانت عندنا مصفوفة [3,4]a ونريد ايجاد حاصل ضرب عناصر القطر الرئيسي لها

بعد اكمال كتابة البرنامج كيف يتم تحديد وادخال عناصر المصفوفة ليتم ايجاد حاصل الضرب

لعناصر القطر الرئيسي .

تقبل تحياتي

السلام عليكم

أعلم أن الموضوع قديم

ولكن قد تجدي ما يفيدك في هذا المثال

CLEAR
LOCAL ARRAY arAnyName(3,10)
nTotal = 0
FOR i = 1 TO 10
	arAnyName(1,i) = i
	arAnyName(2,i) = i * 2
	arAnyName(3,i) = arAnyName(1,i) *  arAnyName(2,i)
	nTotal = nTotal + arAnyName(3,i)
NEXT


FOR i = 1 TO 10
	?TRANSFORM( arAnyName(1,i) ) + [ X  ] + TRANSFORM( arAnyName(2,i) ) + [ = ] + TRANSFORM( arAnyName(3,i) )
NEXT
? [ Total = ] + STR(nTotal,20,3)

مع التحية

السلام عليكم

الاخ العزيز shadowz اشكرك على هذا المثال الجميل وبارك الله فيك

لكن عندي بعض الاستفسارات اكون شاكرة لو وضحتها لي

بالنسبة لـ (LOCAL ARRAY arAnyName(3,10 هل هو تعريف لعناصر المصفوفة ولماذا لم تستخدم DIMENSION

ولماذا قمت باستخدام الدالة TRANSFORM والدالة STR علما اننا ليس لدينا قيمم حرفية ؟

شكرا لك مرة اخرى واتمنى لك التوفيق في الدنيا الاخرة .

وعليكم السلام ورحمة الله

أختى الكريمة

يمكن انشاء المصفوفة باحدى الطرق التالية

LOCAL ARRAY arAnyName(3,10)
DIMENSION arAnyName(3,10)
DECLARE arAnyName(3,10)

PUBLIC ARRAY arAnyName(3,10)

الاختلاف الجوهري بين الطرق الاربعة انك تستطيعين التعامل مع المصفوفة الناتجة عن الطريقة الأخيرة من أي مكان بالبرنامج لأنها معرفة Public

أما الطرق الثلاثة الأولى فلا تمكنك من التعامل مع المصفوفة الا ضمن نفس الاجراء

بالنسبة لاستخدام الأمرين Transform و Str

بطبيعة الحال لا علاقة مباشرة بين استخدامهما وبين المصفوفة

وانما تم بواسطتهما تحويل القيمة الرقمية الى نصية لغايات دمج النتائج وعرضها على الشاشة فقط

مع العلم بأن Transform تقوم بتحويل أى متغير - مهما كان نوعه - الى نص

أما Str فهي خاصة بتحويل الأرقام - فقط - الى نص

مع التحية والشكر على التقييم

رمضان مبارك ويسلمو ايديك على هذا التوضيح B)

العصفور الصغير كتب:

رمضان مبارك ويسلمو ايديك على هذا التوضيح B)

moonlight10 كتب:

اخي العزيز shadowz شكرا لك على التوضيح جزاك الله الف خير

:clapping: :clapping: :clapping:

نسال كم سؤال بعد لو تعبناك معانا ؟؟

صيام مقبول واجر ثابت ان شاء الله

اهلا يا عصفور ويا Moon

رمضان مبارك عليكم وعلينا ان شاء الله

لا تتردي في طرح أي سؤال والله الموفق

مع التحية

السلام عليكم اخ shadows

شكرا الك والله متقصر جعله الله في ميزان حسناتك