• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

اسلام الكبابى

اعضاء
  • عدد المشاركات

    312
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة اسلام الكبابى

  1. لغز (52) : الترتيب الوحيد ؟

      كل هذا الذى قلته لكم صحيح ، وجميع الشروط التى ذكرتها صحيحة ولكن تساوى اثنين منهما لايؤدى فى هذه المسألة الجديدة الى الغرض الأساسى للمسألة(الوصول فى النهاية الى لون واحد) انما لكى نصل الى لون واحد لانحتاج قبله الى لونين متساوين ولكن نحتاج قبله الى لونين أحدهما ضعف الآخر حتى نتمكن بعدها من الجمع بينهما وتحويلهما الى اللون الثالث ولكى يحدث ذلك بعد هذه الزيادة وهذا النقص لابد من تحقق أحد الشروط الآتية الأول :-أن تكون س-أ=2(ع+4أ)   أى تكون س=2ع+9أ          وبعدها ننقص س بمقدار أ لتصبح 2ع+8أ  ، ونزيد ع بمقدار 4أ لتصبح ع+4أ        وهذا الشرط يعنى أن تكون أ=(س - 2ع)÷9 الثانى :-أن تكون 2(س-أ)= ع+4أ   أى تكون ع=2س-6أ         وبعدها ننقص س بمقدار أ لتصبح س-أ  ، ونزيد ع بمقدار 4أ لتصبح 2س-2أ        وهذا الشرط يعنى أن تكون أ=(2س - ع)÷6 الثالث :-أن تكون ص-2أ=2(ع+4أ)   أى تكون ص=2ع+10أ         وبعدها ننقص ص بمقدار 2أ لتصبح 2ع+8أ  ، ونزيد ع بمقدار 4أ لتصبح ع+4أ        وهذا الشرط يعنى أن تكون أ=(ص - 2ع)÷10 الرابع :-أن تكون 2(ص-2أ)= ع+4أ   أى تكون ع=2ص-8أ          وبعدها ننقص ص بمقدار 2أ لتصبح ص-2أ ، ونزيد ع بمقدار 4أ لتصبح 2ص-4أ        وهذا الشرط يعنى أن تكون أ=(2ص - ع)÷8 الخامس :-أن تكون س-أ=2(ص-2أ)   أى تكون س=2ص-3أ        وبعدها ننقص س بمقدار أ لتصبح 2ص-4أ ، وننقص ص بمقدار 2أ لتصبح ص-2أ        وهذا الشرط يعنى أن تكون أ=(2ص - ع)÷3 السادس :-أن تكون 2(س-أ)= ص-2أ   أى تكون ص=2س        وبعدها لا ننقص ولا نزيد لأن هذا هو ما نريده أصلآ(لونين أحدهما ضعف الآخر)        وهذا الشرط يعنى أن تكون أ= أى قيمة   ويمكن اختصار الحالات الستة الى ثلاث حالات كالآتى 1- أن يكون ضعف أحد العددين أكبر من الآخر بمقدار يقبل القسمة على 3 أ، 6 أ، 8 2- أن يكون أحد العددين أكبر من ضعف الآخر بمقدار يقبل القسمة على 9 أ، 10 3- أن يكون أحد العددين مساويآ ضعف الآخر      
  2. لغز (52) : الترتيب الوحيد ؟

     يمكن ذلك باتباع نفس الأسلوب المشروح سابقآ   ان نقص أحد العددين بمقدار 1 يحدث معها نقص الثانى بمقدار2 وزيادة الثالث بمقدار4 لأنه اذا كان الأول مثلآ = س والثانى = ص والثالث =ع فلكى يتساوى اثنان منهما بعد هذه الزيادة وهذا النقص لابد من تحقق أحد الشروط الآتية الأول :-أن تكون س-1=ع+4 أى تكون س - ع = 5 أى أن يكون الأول أكبر من الثالث بمقدار5 الثانى :-أن تكون ص-2=ع+4 أى تكون ص - ع = 6 أى أن يكون الثانى أكبر من الثالث بمقدار6 الثالث :-أن تكون س-1=ص-2 أى تكون ص - س =1 أى أن يكون الثانى أكبر من الأول بمقدار1 طبعآ 5 أو 6 أو 1 أو مضاعفاتهم   ملحوظة هامة:- الشرط الثالث (أن يكون الثانى أكبر من الأول بمقدار1 أو مضاعفاته) يعنى أن يكون الثانى أكبر من الأول بأى مقدار وهذا يعنى أنه مهما كانت الأعداد الثلاثة فمن الممكن أن يتساوى العددين الأول والثانى طالما أن الثانى أكبر من الأول
  3. لغز (52) : الترتيب الوحيد ؟

     
  4. لغز (52) : الترتيب الوحيد ؟

    لوفتحت البرنامج الذى أرفقته فى أول مشاركة لى (كود كامل وليس ملف تنفيذى) لوجدت الرد على سؤالك فى الجمل الثلاثة التالية ونظائرها 60 X = X - 1: Y = Y - 1: Z = Z + 270  If Z = X Or Z = Y Then decr = A(1) - X: GoTo 100If Y = 1 And X - Z = 3 Then Y = 0: X = X - 1: Z = X: decr = A(2) - Y: GoTo 100الشرط X - Z = 3 لأن نقص أحد العددين بمقدا 1 يحدث معها زيادةالآخر بمقدار2 فلكى يتساوى اى عددين لابد أن يكون الفرق بينهما قبل هذه الزيادة وهذا النقص= 3 لأنه اذا كان أحدهما مثلآ = س والآخر= ص فلكى يتساوا بعد هذه الزيادة وهذا النقص تكون س+2= ص-1 أى تكون س-ص = 3 طبعآ 3 أو مضاعفاتها لأن نقص أحد العددين بمقدار 1 يحدث معها زيادةالآخر بمقدار 2 (1+2=3) وأيضآ نقص أحد العددين بمقدار 2 يحدث معها زيادةالآخر بمقدار 4 (2+4=6) وأيضآ نقص أحد العددين بمقدار 4 يحدث معها زيادةالآخر بمقدار 8 (4+8=12)   ولو غيرت نظام الزيادة والنقص فى المسألة لتغيرهذا الرقم 3 فاذا كان نقص أحد العددين بمقدار 1 يحدث معها زيادةالآخر بمقدار4  لكان الشرط هو أن يكون الفرق بين العددين يقبل القسمة على 5 (1+4=5) فاذا كان نقص أحد العددين بمقدار 6 يحدث معها زيادةالآخر بمقدار7  لكان الشرط هو أن يكون الفرق بين العددين يقبل القسمة على 7 (6+7=13)        
  5. لغز (52) : الترتيب الوحيد ؟

     
  6. لغز (52) : الترتيب الوحيد ؟

    كلام الزميل fmgret12 صحيح 100% تساوى مجموع عددين منهم للعدد الثالث ليس له علاقة بالموضوع وستؤدى الى نتيجة واحدة دائمآ بتحقق شرط الزميل fmgret12 فقط (شرط وجود فرق واحد بين اى عددين من الاعداد الثلاثة يقبل القسمة على 3) جرب مثلآ  5 و 11 و 19   وأوضح لكم نقطة بسيطة نسى أن يوضحها فى شرحه اذا كان يوجد فرق واحد بين اى عددين من الاعداد الثلاثة تقبل القسمة على 3 فيمكن الحصول على حل وحيد وسيكون اللون السائد محدد هذا اللون السائد هو لون العدد المخالف لهذين العددين ففى المثال  5 و 11 و 19 نجد أن الفرق الواحد الذى يقبل القسمة على 3 هو الفرق بين العددين   5 و 11  فسيكون هذا اللون السائد هو لون العدد 19
  7. لغز (52) : الترتيب الوحيد ؟

    ما الذي تعنيه هذه العبارة بالتحديد ؟ هذه العبارة لأن أحد الأعضاء كان قد قال   ولماذا لا يؤدي لنتائج اخري غير اللون الاخضر ؟ كيف ذلك؟ جميع الأمثلة الثلاثة التى ذكرتها تؤدى الى نتائج أخرى  
  8. لغز (52) : الترتيب الوحيد ؟

    هذا رغم أن الأعداد كلها تقبل القسمة على 3 وبدون باقى   وماذا كان تعليقك أو ملاحظاتك عن المثالين الآخرين 7,10,28   و  8,11,20   أما عن اللون الأول والثانى والثالث فلا أظنها تفرق شيئآ عن أحدد ثلاثة ألوان بعينها
  9. لغز (52) : الترتيب الوحيد ؟

    وهاهو البرنامج فى صورة ملف تنفيذى أيضآ مع تعديل بسيط بحيث تكون النتائج المكتوبة أوضح وأسهل للجميع (يكتب بدلآ من أعداد الحرباءات يكتب الأول أو الثانى أو الثالث)   أرجو من كل من يحمل المرفق أن يعرف اجابات هذه الأمثلة ثم يكتب لنا تعليقه 12,15,18  و 7,10,28   و  8,11,20 الترتيب الوحيد EXE معدل.zip
  10. لغز (52) : الترتيب الوحيد ؟

    هاهو ابرنامج فى صورة ملف تنفيذى لكل من لا يعرف هذه اللغة من لغات البرمجة الترتيب EXEالوحيد.zip
  11. لغز (52) : الترتيب الوحيد ؟

    لغز رياضى جميل   أنا من عشاق الخوارزميات الرياضية وبرمجتها وهذا برنامج بسيط يعطى بعض الحلول لأى مسألة من نفس النوع مهما تغيرت الأعداد الثلاثة 17و10و7 لغز رياضى الترتيب الوحيد.zip
  12. لغز (51) : عملية حسابية ؟

    أولآ أهلا بك اخي ماجد الأسيوطى   لا أتفق معك فيما قلت لأن كل هذه الأمور (المشاركة والتواصل وكسر جمود الملل وتكوين صدقات جديدة) رغم أنها مطلوبة كما تقول الا أن لها منتديات أخرى توضع فيها غير منتدى الرياضيات والخوارزميات      
  13. لغز (51) : عملية حسابية ؟

    الأخ/ أبو أحمد المبرمج كلامه صحيح 100%وعلى ذلك فهذا ليس لغز رياضى أو مسألة حسابية (كما قيل فى عنوانها وكما هو مفهوم من المنتدى الموضوعة فيه الرياضيات والخوارزميات) انما هو فزورة تلاعب بالألفاظ تمامآ كما يسألك أحد (ثلاث خمسات يبقوا كام؟)  تقول له 15 يقول لك لأ يبقوا 555
  14. أليس هذا هو ما تريد؟ ان كان كذلك فليتك توضح طلبك أكثر
  15. لدى فورم تحتوى على عدة text وعدة Label وأريد معرفة كيفية تخزينها بأكملها داخل PictureBox من أجل طباعة الفورم على الورق أرجو ارفاق مرفق ولكم ألف شكر
  16. وضع الفورم بأكملها داخل PictureBox

    أليس لهذا الموضوع أى حل؟
  17. منع النسخ

    وها هو مثال مرفق ليقوم أحدكم بتعديله وتوضيح الخطأ فى برنامجى تعديله بحيث يمكن تشغيله ولكن لايمكن نسخه ولكم ألف شكر ضرب رقمين.zip
  18. هل توجد أى طريقة أو كود معين أمنع بها أى شخص من نسخ برنامجى وهل توجد أى طريقة أو كود معين أمنع بها أى شخص أن يستخدم برنامجى أكثر من 4مرات مثلآ ولكم ألف شكر
  19. وضع الفورم بأكملها داخل PictureBox

    أرجو تخزين هذه الفورم المرفقة  تخزينها بأكملها داخل PictureBox لا يهم حجمه و لا مكانه لأنه لن يظهر أثناء التشغيل و لا أثناء الطباعة، و إنما سنستعمله كمخزن مؤقت من أجل طباعة الفورم على الورق   وهذا هو الرابط http://www.mediafire.com/download/olm3d875mmbb3wz/%D8%B7%D8%A8%D8%A7%D8%B9%D8%A9_%D8%A7%D9%84%D9%81%D9%88%D8%B1%D9%85.zip   ولكم ألف شكر
  20. وهذا كود آخر أفضل منه لأن السابق يسمح للمستخدم بالكتابة فى أى تكست اذا أعاد الضغط عليه Dim PRES(9) As IntegerPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Print IndexIf PRES(Index) = 1 Then Text1(Index).Locked = True: GoTo 100PRES(Index) = 1If Index = Text1.Count - 1 Then Command1.SetFocus: GoTo 100Text1(Index + 1).SetFocus100 End Sub
  21. منع النسخ

    ليت الجواب يكون مع مرفق  وشكرآ
  22. هذا الكود باعتبار أن مجموعة التكست لديك هى (Text1(3) , Text1(2) , Text1(1) ,Text1(0 ,...........   Private Sub Command1_GotFocus()For i = 0 To Text1.Count - 1Text1(i).Locked = TrueNext iEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Print IndexIf Index = Text1.Count - 1 Then Command1.SetFocus: GoTo 100Text1(Index + 1).SetFocus100 End Sub
  23. وضع الفورم بأكملها داخل PictureBox

     طبعآ الأمر PrintForm يقوم بعملية طباعة الفورم كلها على الورق ولكنكم جميعآ تعلمون أنه يطبعها فى جزء صغير من الورقة لا بكامل مسطحها
  24. شكرآ لك هكذا يكون الكود تم استبدال أربعة أسطر بسطر واحد وليس استبدال كل كودى(21 سطر) بستة أسطر فقط   أليست هذه هى التى يشترط لها ملف تعليمات التى تحدثت عنها سابقآ؟ نحن فى انتظارها
  25.   مطلوب كود ينفذ مجموعة أوامرفى الفورم الأصلية form1 فى حالة الضغط فى الmsgbox على  (تعليمات) مثلآ ينفذ مجموعة الأوامر PP = 3267: Print PP   وينفذ مجموعة أوامرأخرى فى نفس الفورم الأصلية form1 فى حالة الضغط فى الmsgbox على  (موافق) مثلآ ينفذ مجموعة الأوامر PP = 98: Print PP   وينفذ مجموعة أوامرأخرى (باقى كود الفورم الأصلية) فى أى من الحالتين بعد الانتهاء من الmsgbox مثلآ ينفذ الأمر Print "KKKKKKKKKKKKK"   ان كنت تستطيع ذلك فليتك ترفق لنا برنامجك كاملآ بطريقتك السهلة البسيطة