جدول الضرب والجذر التربيعي والكود من أستاذنا أبو أسامة المحترم

[أبو عادل]

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

إخواني وأحبابي الكرام

بالحقيقة تم طرح هذا الموضوع من قبل أستاذنا أبو أسامة وهو ضرب عددين ضمن حدود جدول الضرب

من 1 إلى 12 وكان العمل رائعاً جداً .وكان الكود كما يلي :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Or Target.Column = 1 Or Target.Row > 13 Or Target.Column > 13 Or Target.Cells.Count > 1 Then Exit Sub
With Range("data")
.ClearContents
.Cells.Interior.ColorIndex = xlNone
End With
Range(Cells(2, Target.Column), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 44
Range(Cells(Target.Row, 2), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 44
Target.Value = Cells(1, Target.Column) * Cells(Target.Row, 1)
Target.Interior.ColorIndex = 6
MyZoom = ActiveWindow.Zoom
ActiveWindow.Zoom = 120
Application.Wait (Now() + TimeValue("00:00:02"))
ActiveWindow.Zoom = MyZoom
End Sub

أحببت أن أزيد في مجال الأعداد وكان التحديد من 1 إلى 20 ثم خطر على بالي الإستفادة من جدول الضرب وخاصة عند ضرب 1×1 و2×2 و3×3 .......وناتجها هو مربع كامل لتلك الأعدد حيث من الممكن إيجاد الجذر التربيعي الصحيح الموجب لتلك الأعداد فقمت بإضافة عمود في نهاية الجدول يظهر الجذر التربيعي للعدد ويظهر العبارة التالية ( ليس له جذر تربيعي ) في حال ان ناتج الضرب ليس مربعاً كاملاً . طلبت من الأستاذ ابو أسامة كود يظهر العبارة المطلوبة السابقة فقام مشكوراً برفع الكود التالي :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Or Target.Column = 1 Or Target.Row > 21 Or Target.Column > 21 Or Target.Cells.Count > 1 Then Exit Sub
With Range("data")
.ClearContents
.Cells.Interior.ColorIndex = xlNone
End With
Range("sqrng").ClearContents
Range(Cells(2, Target.Column), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 44
Range(Cells(Target.Row, 2), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 44
Target.Value = Cells(1, Target.Column) * Cells(Target.Row, 1)
Cells(Target.Row, 22) = Target ^ 0.5
        If Cells(Target.Row, 22) - Int(Cells(Target.Row, 22)) <> 0 Then
        Cells(Target.Row, 22) = "ليس له جذر تربيعي"
        Else
        Cells(Target.Row, 22) = Target ^ 0.5
        End If
Target.Interior.ColorIndex = 6
MyZoom = ActiveWindow.Zoom
ActiveWindow.Zoom = 120
Application.Wait (Now() + TimeValue("00:00:01"))
ActiveWindow.Zoom = MyZoom
End Sub

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

العدد الأكبر من إخواننا وأخواتنا و فائدة لأولادنا

لاتنسوا الدعاء لأخينا وأستاذنا أبو أسامة /

وتقبلوا مني خالص التحية

أبو عادل

حمل الملف من هنا

[خالد القدس]

السلام عليكم

ألف شكر أخي الكريم

فكرة بحق رائعة ومفيدة جداً

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

[بن علية حاجي]

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

شكرا لكم جميعا على المجهودات التي تقدمونها وبارك الله فيكم وجزاكم الله عنا خير الجزاء...

أود أن أصحح بعض المعلومات الرياضياتية الواردة في الموضوع، من خلال تصفحي للملف المرفق والعمل المقدم من طرفكم لمست خطأين :

الخطأ الأول : في عبارة "الجذر التربيعي الصحيح الموجب" يفهم منه أنه يوجد جذر تربيعي صحيح سالب وهذا خطأ، الجذر التربيعي لعدد (إن وُجد) هو الجذر التربيعي (وهو موجب دائما) أي هو الذي مربعه يساوي هذا العدد... معنى كلمة -إن وجد- تعني أنه يشترط في تعيين الجذر التربيعي لعدد أن يكون العدد موجبا.

الخطأ الثاني: (مندرج من الأول) وهو في عبارة "ليس له جذر تربيعي" المستعملة في الكود لأن أي عدد حقيقي موجب يقبل جذرا تربيعيا وحيدا. يمكن استبدال هذه العبارة "جذره التربيعي ليس تاما" أو "ليس طبيعيا"...

معذرة إخواني الكرام على هذا التدخل، ولكن الخطأ وارد ويجب تصحيحه وتجنبه...

على العموم الفكرة جميلة جدا

والله أعلم

[أحمد عبدالعزيز]

فكره رائعه يا أخى فواز تستحق أن تُفرد لها موضوعا مستقل

فالكود الأول رائع والتعديل و الإضافه أروع ..

ولكن معذرة رجاء أخذ تعليق الأخ hben فى الإعتبار

وفقكم الله جميعاًً ونفع بكم الأمه

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

[سالم شباني]

شكرا للأخ فواز على الطرح المميز

ملاحظات الأستاذ hben في محلها وخاصة أنه أستاذ مادة الرياضيات

هذه فرصة لي لمراجعة بعض المفاهيم الرياضية التي نسيتها من زمان

بارك الله فيكم جميعا

[أبو عادل]

اخي الكريم جزاك الله كل خير على الملاحظات وهي :

الخطأ الأول : في عبارة "الجذر التربيعي الصحيح الموجب"

هنا سقطت كلمة للعدد لتصبح العبارة ( الجذر التربيعي للعدد الصحيح الموجب ) والحق معك لأن هذا خطأ علمي أشكرك جزيل الشكر لأنها سقطت سهواً

والملاحظة الثانية وهي عندما قلت

الخطأ الثاني: (مندرج من الأول) وهو في عبارة "ليس له جذر تربيعي" المستعملة في الكود لأن أي عدد حقيقي موجب يقبل جذرا تربيعيا وحيدا. يمكن استبدال هذه العبارة "جذره التربيعي ليس تاما" أو "ليس طبيعيا"...

أخي الكريم بما أنني أستخدم الأعداد التي تنتمي إلى المجموعة ط ( وهي مجموعة الأعداد الطبيعية ) فلا ضرر من كتابة ليس له جذر تربيعي والمقصود ضمناً في المجموعة ط لأن الخلية صغيرة لاأريد

أن اكبر تلك الخلية

ولاحظ أنني قلت

ويظهر العبارة التالية ( ليس له جذر تربيعي ) في حال ان ناتج الضرب ليس مربعاً كاملاً

والمقصود بناتج الضرب هنا أي ضمن هذا الجدول هو بعض عناصر من المجموعة ط لأن معلومك أن حاصل ضرب عدد طبيعي في عدد طبيعي فإن الناتج ينتمي إلى ط

وعندما يكون ناتج الضرب لعدد طبيعي في نفسه يمثل مربع كامل وبالتالي له جذر تربيعي في ط .

والجدول هنا ليخدم فئة من الطلاب لم تتعرف على مجموعة الأعداد الحقيقية ( ح )

وأخيراً هل تعتقد أنه لايمكن إيجاد الجذر التربيعي بإستخدام الجدول السابق لأي عدد ؟؟ نعم يمكن ذلك لأن الكود يوجد الجذر التربيعي لأي عدد ضمن هذا الجدول

فمثلا 4 × 6 = 24 ويلاحظ أن الأعداد 4 و 6 و 24 أعداد تنتمي إلى ط وأن العدد 24 ليس مربعاً كاملاً وبالتالي جذره التربيعي = 4.8989794 قيمة تقريبية وهو عدد غير طبيعي (حقيقي) ففي هذه الحالة كيف

تريد أن تكون الإجابة لطالب لم يتعرف على مجموعة الأعداد الحقيقية ( أعداد نسبية وأعداد غير نسبية ) ؟ لذلك كتبنا العبارة ( ليس له جذر تربيعي )

لاأريد أن يطول الموضوع حتى لايفقد البرنامج قيمته

هذا والله أعلم

أشكرك مرة أخرى

إنظر المرفق

____________________________.rar

تم تعديل يوليو 12, 2009 بواسطه mfawaz

[أبو عادل]

السلام عليكم

ألف شكر أخي الكريم

فكرة بحق رائعة ومفيدة جداً

جزاك الله خيرا وزادك من فضله

ووفق أستاذنا المتمكن أبو أسامة وجزاه عنا خير الجزاء

جزاك الله كل خير أخي خالد القدس على مرورك العطر

[أبو عادل]

فكره رائعه يا أخى فواز تستحق أن تُفرد لها موضوعا مستقل

فالكود الأول رائع والتعديل و الإضافه أروع ..

ولكن معذرة رجاء أخذ تعليق الأخ hben فى الإعتبار

وفقكم الله جميعاًً ونفع بكم الأمه

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

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

[أبو عادل]

شكرا للأخ فواز على الطرح المميز

ملاحظات الأستاذ hben في محلها وخاصة أنه أستاذ مادة الرياضيات

هذه فرصة لي لمراجعة بعض المفاهيم الرياضية التي نسيتها من زمان

بارك الله فيكم جميعا

جزاك الله كل خير وتشكرأخي سالم على مرورك العطر

[بن علية حاجي]

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

معذرة مرة أخرى على التدخل، الخطأ يبقى قائما أخي الكريم، تقول كيف للطالب أن يعرف الأعداد الحقيقية (الناطقة والصماء) وأقول كيف له أن يعرف الجذر التربيعي وهو درس يعطى، من المفروض، بعد تعريف الأعداد الحقيقية وليس قبل... من الأحسن ترك الخانة "فارغة" بدل كتابة عبارة "ليس له جذر تربيعي" لأنها خطأ... وهذا الخطأ سيرسخ في أذهانهم... (هو مفهوم أردت تصحيحه فحسب)...

وكما قلت لا نطيل حتى لا يخرج الموضوع عن أساسه....

وشكرا

[أبو عادل]

أخي الكريم

جزاك الله كل خير

يوجد لبس في الموضوع وهو

في دول الخليج تعطى مجموعة الأعداد الطبيعية ط في الصف السادس ومجموعة الأعداد الصحيحة في الصف السابع ومجموعة الأعداد النسبية في الثامن ومجموعة الأعداد الحقيقية في التاسع وما فوق

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

والعدد الطبيعي مثل 5 أو 22 أو .... ليس له جذر تربيعي في ط ويتم تعليم الطالب في هاتين المرحلتين على هذا الأساس بأن يكتفي الطالب بذكر ليس له جذر تربيعي لأن مجموعة الأعداد التي بين يديه هي ط ( لو أحببت راجع كتب الرياضيات في دول الخليج )

وبعد ذلك في الصف التاسع يتم التوسع بالمفهوم لنصل بالطالب إلى ما تفضلت به أنت / وأنا لست مختلفا معك

وأنا أخاطب في هذا الجدول المرحلة العمرية التي ذكرتها

وعلى مايبدو أنك ان هناك بعض التعبيرات والمفاهيم والمناهج تختلف من دولة إلى دولة أخرى وصدقني بأنه لايوجد تناقض بل أن هناك إختلاف في توزيع المواضيع وأولوياتها وتسمياتها فمثلاُ قلت الناطقة والصماء وهنا يقال النسبية وغير النسبية

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

وشكراً