[ تمت الإجابة ]حاصل ضرب أعداد مصفوفة

يمكنك كتابة حلك في البداية ونقوم بتصحيحه لك إن إحتاج الأمر، ما رأيك بهذا كاقتراح حتى لا يكون الموضوع "مخالف" مرة أخرى لقواعد القسم والمشاركة في المنتدى؟ :)

بالمناسبة تم التغاضي عن الموضوع السابق.

-----

تعديل:

هذا الحل يحوي 4 أخطاء بالضبط (تركت عن قصد)، إن قمت بتصحيحه فهو لك وهو يقوم بما تبتغيه إن شاء الله :)

 

model	[color= #aa007f;]tiny

[color= #0000ff;].[color= #7f00ff;]code

	[color= #ff007f;]jmp	start

 

	arr	[color= #7f00ff;]db	[color= #7f7f7f;]1[color= #0000ff;],[color= #7f7f7f;]2[color= #0000ff;],[color= #7f7f7f;]3[color= #0000ff;],[color= #7f7f7f;]4[color= #0000ff;],[color= #7f7f7f;]5[color= #0000ff;],[color= #7f7f7f;]6[color= #0000ff;],[color= #7f7f7f;]7[color= #0000ff;],[color= #7f7f7f;]8[color= #0000ff;],[color= #7f7f7f;]9[color= #0000ff;],[color= #7f7f7f;]10[color= #0000ff;],[color= #7f7f7f;]11[color= #0000ff;],[color= #7f7f7f;]12[color= #0000ff;],[color= #7f7f7f;]13[color= #0000ff;],[color= #7f7f7f;]14[color= #0000ff;],[color= #7f7f7f;]15[color= #0000ff;],[color= #7f7f7f;]16[color= #0000ff;],[color= #7f7f7f;]17[color= #0000ff;],[color= #7f7f7f;]18[color= #0000ff;],[color= #7f7f7f;]19[color= #0000ff;],[color= #7f7f7f;]20	[color= #007f00; font-style: italic;]; any values

	dend[color= #0000ff;]:

 

start[color= #0000ff;]:

	[color= #ff007f;]mov	[color= #7f7f40;]ax[color= #0000ff;],[color= #7f7f40;]cs

	[color= #ff007f;]mov	[color= #7f7f40;]ds[color= #0000ff;],[color= #7f7f40;]ax

 

	[color= #ff007f;]lea	[color= #7f7f40;]si[color= #0000ff;],arr

	[color= #ff007f;]mov	[color= #7f7f40;]bx[color= #0000ff;],[color= #7f00ff;]offset [color= #0000a0; font-weight: bold;](arr [color= #0000ff;]- dend[color= #0000a0; font-weight: bold;])	[color= #007f00; font-style: italic;]; / any length, not necessarily 20

	[color= #ff007f;]dec	[color= #7f7f40;]bx			[color= #007f00; font-style: italic;];  

	[color= #ff007f;]xor	[color= #7f7f40;]di[color= #0000ff;],[color= #7f7f40;]di

@[color= #7f7f7f;]1[color= #0000ff;]:

	[color= #ff007f;]mov	[color= #7f7f40;]al[color= #0000ff;],[color= #aa007f;]byte [color= #7f00ff;]ptr [color= #0000a0; font-weight: bold;][[color= #7f7f40;]si[color= #0000ff;]+[color= #7f7f40;]bx[color= #0000a0; font-weight: bold;]]

	[color= #ff007f;]div	[color= #7f7f7f;]3

	[color= #ff007f;]test	[color= #7f7f40;]ah[color= #0000ff;],[color= #7f7f40;]ah

	[color= #ff007f;]jnz	@[color= #7f7f7f;]3

		[color= #ff007f;]test	[color= #7f7f40;]di[color= #0000ff;],[color= #7f7f40;]di

		[color= #ff007f;]jnz	@[color= #7f7f7f;]2

			[color= #ff007f;]mov	[color= #7f7f40;]di[color= #0000ff;],[color= #7f7f40;]ax

			[color= #ff007f;]jmp	@[color= #7f7f7f;]3

	@[color= #7f7f7f;]2[color= #0000ff;]:

		[color= #ff007f;]mul	[color= #7f7f40;]ax

		[color= #ff007f;]mov	[color= #7f7f40;]di[color= #0000ff;],[color= #7f7f40;]ax

@[color= #7f7f7f;]3[color= #0000ff;]:

	[color= #ff007f;]xor	[color= #7f7f40;]ah[color= #0000ff;],[color= #7f7f40;]ah

	[color= #ff007f;]dec	[color= #7f7f40;]bx

	[color= #ff007f;]cmp	[color= #7f7f40;]bx[color= #0000ff;],[color= #7f7f7f;]0

	[color= #ff007f;]jge	@[color= #7f7f7f;]1

 

        [color= #007f00; font-style: italic;]; exit to DOS

        [color= #ff007f;]mov     [color= #7f7f40;]ax[color= #0000ff;], [color= #ff0000;]4C00h

        [color= #ff007f;]int     [color= #ff0000;]21h

 

[color= #7f00ff;]end	start

ماريا اسلام كتب:

طبعاً راح أحاول أحل هذا السؤال وعند الإنتهاء بإذن الله أطابق هل حلي صحيح أما لا ..

	MODEL	TINY
	.CODE

		jmp	BEGIN

array_start	db	1,3,55,39,6,7,32,61,25,2,92,22,32,92,85,12,64,20,21,29

BEGIN:
		push	cs
		pop	ds

		lea	si, array_start
		mov	cx, 20
		mov	bl, 3

		mov	ax, 1
		push	ax
check_next:
		mov	ah, 0
		mov	al, [si]
		div	bl
		cmp	ah, 0
		jnz	have_reminder
		pop	ax
		mov	dh, 0
		mov	dl, [si]
		mul	dx
		push	ax
have_reminder:
		inc	si
		loop	check_next
		pop	ax; The Result = DX:AX

; Exit
		mov	ax,4C00h
		int	21h

END	BEGIN

هذا الكود يفترض أن المصفوفة بها (20) رقم موجب صغير - كما ان من المعروف ضمناً انه اذا احتوت المصفوفه على القيمة (0) سيكون الناتج = 0

للحصول على الملف التنفيذى exe انسخ الكود السابق فى ملف جديد بأسم file.asm ثم نفذ:

	tasm.exe file.asm
	tlink.exe file.obj

@xacker

لقد استخدمت اسلوبى فى حساب طول المصفوفة - والذى سبق وطرحت هذا التكنيك من قبل فى الموضوع /index.php?showtopic=181424

وكنت حينها تستخدم تكنيك اطول

يبدوا ان مشاركتى يتعلم منها حتى الخبراء

لكن لديك خطئ فى تطبيقه فى السطر

mov	bx,offset (arr - dend)

لا تستخدم كلمة offset لأنك تطرح اثنان offset من بعضهم وتريد الفرق

ا

a3ghadeer كتب:

@xacker

لقد استخدمت اسلوبى فى حساب طول المصفوفة - والذى سبق وطرحت هذا التكنيك من قبل فى الموضوع /index.php?showtopic=181424

وكنت حينها تستخدم تكنيك اطول

يبدوا ان مشاركتى يتعلم منها حتى الخبراء

لا أفهم المغزى من هذا الحديث سوى الغرور لكني سأقول لك التالي، كـ "تكنيك" فليس هناك شئ جلبته من علومي الخاصة وابتكاراتي، وبالتأكيد لم تجلبه من ابتكاراتك إلا لو كنت أول شخص يكتب بالأسمبلي، بكل الأحوال أخي الكريم، لك ما شئت، و شكراً على تذكيري به :wink:

اقتباس

لكن لديك خطئ فى تطبيقه فى السطر

mov	bx,offset (arr - dend)

لا تستخدم كلمة offset لأنك تطرح اثنان offset من بعضهم وتريد الفرق

لن يكون هناك خطأ بكل الأحوال لأن طرح ازاحتين يعطي الطول المطلوب يا عزيزي.

السلام عليكم

ليس الغرور والعياذ بالله

لكنى (ادبيا) تعودت على ان لا انكر من اقتبست منه

فإذا اعجبنى كود تعلمته منك واربد استخدامه فى نفس المنتدى فأخجل ان استخدمه دون ان اشير بكلمة مثل: اقتبس هذا الكود من اخى xacker

واذا نشرت شرح واستخدمت فبه كود او مثال قراءته فى كتاب ما - فأخجل ان استخدمه دون ان اشير الى اسم الكتاب او مؤلف الكتاب (على الأقل فى المراجع)

هذا كل ما فى الأمر

أعود وأذكرك بأنك لست أول من كتب label لقياس طول أو لحساب حجم بيانات وإن كان من الواجب علي أن أقتبس فلأقتبس كاتبي فيروسات أسمبلي 16 bit التي كنت أقرأها من 6 سنوات والتي كتبت أساساً من أكثر من عشر سنوات. وصل المغزى؟

الامر يرجع لقناعاتك الشخصية

ولكن مثل هذه الردود (الجدلية) لا اقرئها الا فى المنتديات العربية فقط

الأمر يرجع للمنطق يا عزيزي فكما قلت لك، ما تتحدث عنه موجود منذ أكثر من عشر سنوات، فلماذا لا تضع اسم الكتاب أو المدرس أو المقال الذي قرأته وتعلمت منه استخدام الـ label في حساب الأطوال.

السلام عليكم

السلام عليكم

سؤال للاخ اغادير, تقنية حساب طول المصفوفة اعرفة منذ اكثر من 20 عام فهل اصبح لا بد ان اذكر اقتبست هذا الكود من اخي اغادير كلما وضعت كود مشابه.

إذا كان امر كذلك فعليك ان تكتب انك اقتبست من مواضيعى السابقة لان جميع التعليمات التى استخدمتها فى مثالك قمت انا بكتابتها فى مواضيع سابقة.

وعلى فكرة طرح قيمة offset من offset اخر يعطيك فرق الطول بين المتغيرين بالبايت ومثال الاخ X لا غبار عليه, كما يمكنك ان تختصر الموضوع وتكتبها على النحو التالي.

arr db 1,2,3,4,5,6,7,8,9,0
dend db $-arr

في هذه الحالة يصبح dend يساوي حجم الامصفوفة اي 10 بايت.

والسلام عليكم

احمد غريب كتب:

عليك ان تكتب انك اقتبست من مواضيعى السابقة لان جميع التعليمات التى استخدمتها فى مثالك قمت انا بكتابتها فى مواضيع سابقة.

برجاء وضع روابط لمواضيعك التى تدعى انى اقتبست منها حلول استخدمتها فى ردى هذا الموضوع - وارجوا الا يكون الرد من السطحية والجدل لدرجة ان تقول انى استخدمت mov وانت استخدمتها من قبل. فانا اتحدث عن تكنيك استخدمته فى الموضوع: /index.php?showtopic=181424 و xacker استخدم طريقة اخرى (خخخخخخ) للوصول لنفس الغاية (حساب طول المصفوفة) - وعندما طرح سؤال فى اليوم التالى - تنازل عن اسلوبه الذى استخدمه سابقاً (الطوييييل) واستخدم التكنيك الذى استخدمته فى نفس الموضوع. أظن ان الموضوع اوضح من جدال عقيم - لمجرد عدم تقبلكم الاعتراف بأنكم استفدتم من افكار عضو جديد - او شكره على مجهوده. (نوع من التكبر والغرور يعنى "الذى اتهمت به سابقاً - فالامر واضح الان من المغرور")

ومع ذلك فليكن الامر - ارجو منك ايها الاخ الكريم احمد غريب وانت ايها الاخ الكريم xacker الذى تسبقانى بـ 20 عام فى معرفة مثل هذه الامور وطرح الدروس ان تضع رابط فى المنتدى قبل تاريخ هذا الموضوع استخدم فيه الاخ xacker هذا التكنيك لحساب طول المصفوفة. حينها تقبلا اعتذارى - بدون هذا الرابط فليس لكم اى اعتذار منى.

بســم الله الـرحمــن الرحيــم

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

تفضل هذا موضوع كتبته عام 2004 وكنت استخدم فيه نفس التكنيك إلى حضرتك تدعي انك من قام بإختراعه

/index.ph...c=41551&hl=

فى المشاركة رقم ثلاثة تجد التالي.

	IntArry	dw	10, 34, 76, 25, 14, 9, 3, 22
	IntAlen	dw	($ - IntArry) / 2

اظن ان هذه المشاركة تم كتابتها قبل ان تعرف حضرتك ما هو الانترنت.

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

استغفر الله من هذه التفاهة العقيمة

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

ارجو ان تفهم المعنى

لا تجعل نفسك اضحوكة الجميع !

اقتباس

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

مخترع ايه عم - وتقنية ايه ده - افهم احنا بنتكلم عن ايه الاول قبل ما ترد

بتقول على حساب طول مصفوفه اختراع تقنية وعاوزها تتسجل كمان - ايه الحزن المغلى ده !!!

لو نظرتك للامور كدا - يبقى بالنسبه لك تنزيل ويندوز اختراع - وحذف الويندوز اختراع تانى

كل ردودك جوفاء - لم اقراء لك اى شيئ مفيد اطلاقا (وكما قلت لك سابقاً - واكررها كل فرد يتأثر بالبيئة التى نشئ فيها)

اقتباس

لا تجعل نفسك اضحوكة الجميع

اين كنت عندما كان صاحب الموضوع يحتاج للمساعدة؟

قد اصبح اضحوكة للجميع عندما اشارك مثل الـ....... بكلام غير مفيد فى موضوع يوجد به شخص يحتاح مساعدة - ولم اقدمها له - وصلتك؟

اقتباس

تفضل هذا موضوع كتبته عام 2004 وكنت استخدم فيه نفس التكنيك إلى حضرتك تدعي انك من قام بإختراعه

ترجيتك الا تطرح رد سطحى - وقولتك بالحرف: وارجوا الا يكون الرد من السطحية والجدل لدرجة ان تقول انى استخدمت mov وانت استخدمتها من قبل. يعنى هو كان لازم اقول: وارجوا الا يكون الرد من السطحية والجدل لدرجة ان تقول انى استخدمت mov أو dw وانت استخدمتها من قبل.

اقتباس

اظن ان هذه المشاركة تم كتابتها قبل ان تعرف حضرتك ما هو الانترنت

يا اخى كلامك مناقض بعضه - طيب لما المشاركه دى قبل ما اعرف الانترنت - باعترافك - يعنى انت عارف انى ما اتعلمتهاش منك واساسا انت ناقلها - الحمد لله - بس دا مش لب موضوعنا !

اشدد الرجاء الا تراوغ وتتهرب من الاجابه على السؤالين السابقين:

1) ان تضع رابط فى المنتدى قبل تاريخ هذا الموضوع استخدم فيه الاخ Xacker هذا التكنيك لحساب طول المصفوفة

الرابط الذى وضعته - لم سيتخدم فيه الاخ Xacker هذا التكنيك لحساب طول المصفوفة - اظن ان كلامى واضح وصريح !

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

حتى الان احترمك واقدرك اخ احمد غريب - وازداد احترامى لك عندما قرأت فى اخر ردك جملة "للامانه منقول" فى الرابط الذى طرحته: /index.php?showtopic=41551

لكن ما أضمنش ان الوضع دا يستمر لو قولت لى انى اقتبست منك استخدام dw

(مع انى برنامجى مفهوش dw - لو هنجرى ورى السطحيات)

ما علاقة dw بالموضوع, انا طرحت لك طريقة حساب طول المصفوفة, كون ان المصفوفة تحتوي على dw بدل db هذا لا يجعلها تقنية مختلفة.

احترامك لي او عدمه لا يرفع من شاني او يقلله, اعتقد انه من الافضل لك ان تتوقف وتحفظ ما تبقي من ماء وجهك وتحترم نفسك.

والسلام عليكم

معذرة - من لا يشعر او يهتم باحترام الاخرين له - ففاقد الشيئ لا يعطيه او يشعر بقيمته

معذرة - من لا يشعر او يهتم باحترام الاخرين له - ففاقد الشيئ لا يعطيه او يشعر بقيمته

اقتباس

كل ردودك جوفاء - لم اقراء لك اى شيئ مفيد اطلاقا (وكما قلت لك سابقاً - واكررها كل فرد يتأثر بالبيئة التى نشئ فيها)

صحيح ردودي جوفاء في نظرك

المهم لم اصل الى مرحلة ان اقل ادبي على الناس

اقتباس

معذرة - من لا يشعر او يهتم باحترام الاخرين له - ففاقد الشيئ لا يعطيه او يشعر بقيمته

اخي العزيز اغادير

للعلم انت لا تستحق ان تنعت بكلمة اخي العزيز لانك عديم الادب و الاحترام

اظن انه احسن لك ان تبقي هدفك العلم فقط و ليس التباهي

لو كنت رجل علم لما تجرات ان تهاجم الناس

للامانة اصبحت اكرهك لوجه الله

اقتباس

اين كنت عندما كان صاحب الموضوع يحتاج للمساعدة؟

قد اصبح اضحوكة للجميع عندما اشارك مثل الـ....... بكلام غير مفيد فى موضوع يوجد به شخص يحتاح مساعدة - ولم اقدمها له - وصلتك؟

أنت الذي بدأت بالكلام الغير مفيد والمثير للشفقة والسخرية أيضاً !

لا يسعني إلا أن اضحك على كل العرض الكوميدي الذي قدمته لنا .

You made our day

:D :D :D

Xacker كتب:

أعود وأذكرك بأنك لست أول من كتب label لقياس طول أو لحساب حجم بيانات وإن كان من الواجب علي أن أقتبس فلأقتبس كاتبي فيروسات أسمبلي 16 bit التي كنت أقرأها من 6 سنوات والتي كتبت أساساً من أكثر من عشر سنوات. وصل المغزى؟

Xacker كتب:

الأمر يرجع للمنطق يا عزيزي فكما قلت لك، ما تتحدث عنه موجود منذ أكثر من عشر سنوات، فلماذا لا تضع اسم الكتاب أو المدرس أو المقال الذي قرأته وتعلمت منه استخدام الـ label في حساب الأطوال.

لم أعتقد أنه يجب علي أن أحتفظ بالمقالات القديمة التي كنت أكتبها من 4 سنوات وأكثر في مقالات تشرح برمجة فيروسات 16 بت حتى هذا اليوم الذي يأتي فيه من يعتقد أنه قام بابتكار "تكنيك" ويطلب من الآخرين النقل "بأمانة"

لحسن حظك فالمنتدى الذي يعرفه الكثيرون والذي توقف منذ سنتين (منتدى الإبداع الإسلامي) كان يضم تلك المقالات وللاستشهاد بما تبقى من كلام حول المنتدى:

http://www.kettaneh.net/programming/assembly1.htm

اقتباس

ملحوظه : لذيادة المعرفه حول تركيب الملفات التنفيذيه من الأنواع (exe , com) ، يرجى قراءة دروس Xacker فى موضوع صناعة اليروسات.

للعلم فهذه الدروس كتبت عام 2005، للأسف ولأول مرة تمنيت لو أن أحداً قام بسرقة تلك المقالات ونشرها باسمه كما يحدث عادة :lol:

http://web.archive.org/web/20050308163946/...-ebda3.info/ib/

http://web.archive.org/web/20051205024754/...-ebda3.info/ib/

http://web.archive.org/web/20040810113301/...-ebda3.info/ib/

http://web.archive.org/web/20051227031409/....al-ebda3.info/ (الزاوية اليسرى من الأسفل لتجد مقالات المهندس أحمد عز التي أقتبس منها في الأعلى)

فإن لم تكن تعلم كيف كانت تكتب فيروسات 16 بت أنصحك بالإطلاع على الشفرات الخاصة بالكثير من الفيروسات، حتى ترى الـ "تكنيك" بتاعك يقوم "بسرقته" و "نقله" دون "أمانة" من كتب بالأسمبلي ربما قبل أن تمشي على قدميك.

VX heavens

TEXTFILES

لتتذكر ما اقتبسته لك في الأعلى وكفاك الكثير من اللف والدوران.

ههههههههههههههه

شجآر من اجل حساب مصفوفه مآذآ تركتم للاشياء الاخرى ..

ردي ليس تقليل من احد لكن جتني ضحكه :-)~

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

^

عذرآ كآنت البدآية والمشكله من حساب طول مصفوفه

اقتباس

اخي العزيز اغادير

@GamingMasteR

حفاظاً على ما تبقى لك من كرامة - لا تشارك مره اخرى فى هذا الموضوع - يكفى ما فقده فى كل رد من ردودك

@Xacker

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

اظن ان كلامى واضح وصريح ! فى هذا المنتدى

احتفاظك بمقالاتك من عدمه لا يعنينى فى شيئ (وان كان يمكن ان نستشف منه الشخصية "مهمله")

اقتباس

لأول مرة تمنيت لو أن أحداً قام بسرقة تلك المقالات ونشرها باسمه كما يحدث عادة

اقتباس

@GamingMasteR

حفاظاً على ما تبقى لك من كرامة - لا تشارك مره اخرى فى هذا الموضوع - يكفى ما فقده فى كل رد من ردودك

هل أكل القرد موزته ؟؟

:haha: :haha: :haha: :haha: :haha:

GamingMasteR كتب:

هل أكل القرد موزته ؟؟

اما اذا اردت ان تعرف هل اكل القرد موزته ام لا ... فأسئل عشيرتك ومن حولك - وصلتك؟