• الإعلانات

    • فيصل الحربي

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

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

fmgret12

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

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

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

السمعه بالموقع

78 جيد

عن fmgret12

  • الرتبة
    عضو

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : مصر
  1. سرعة البديهة . . والبرمجة

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

    الحل بسيط جدا وهو ان كل مربع 2 او 4 او 6 تحته مربع اخر فمثلا مربع 4 تحته مربع 5 ومربع 6 تحته مربع 3 ومربع 2 تحته مربع 8 وبالتالى مربع 8 هو الذى فى الاسفل من ضمن الاختيارات المتاحة (2و4و6و8) من جهة اخرى بالطبع المربع 1 فى الاعلى سنجد المربع 7 اسفلة المربع 6 اسفلة المربع 3 اسفلة المربع 4 اسفلة المربع 5 اسفلة المربع 2 اسفلة المربع 8 بالتالى المربع 8 هو اسفل مربع
  3. سرعة البديهة . . والبرمجة

    حلهم على التوالى 8 و 52 اختبار لذيذ بس مش اكيد
  4. اخى الفاضل ربما انت على حق ولكن المقصود هوالحصول على خوارزمية وهو بـ استخدام جملة for ... next وتتكرر عددا من المرات  على سبيل المثال الذى ذكرته سابقا تم تكرارها 7 مرات هل من الممكن استخدامها بعدد مرات اصغر او اقل من 7 مرات ؟؟؟  وكيف ؟؟
  5.   اخى الفاضل هل يمكنك التوضيح حيث المثال الذى اريد حلة كالاتى ويمكن ان يكون عدد الدورات غير محدد برجاء التوضيح ان امكن لان فى بعض الحالات يكتفى بـ 2 دوراة فقط او 3 او 4 او ..... الخ For i = 1 To n1 For j = 1 To n2 For k = 1 To n3 For l = 1 To n4 For m = 1 To n5 For n = 1 To n6 For o = 1 To n7 st = i & j & k & l & m & n & o Next o Next n Next m Next l Next k Next jNext i
  6. السلام عليكم ورحمة الله وبركاته هل يمكن استخدام جملة for .. next  المتداخلة بعدد غير محدد من المرات حيث اننى لا اعلم بالضبط كم عدد المرات التى يجب على ان استخدمها حيث تتغير كل مرة على سبيل المثال يمكن استخدامها 8 مرات او 5 مرات او 11 مره ....... الخ
  7. السلام عليكم ورحمة الله وبركاته هذا الكود مكتوب بلغة فيجوال بيسك 6 Private Sub cmd_find_Click()For i = 2 To 401 Step 2 For j = 2 To 401 Step 2 If i <> j And i > j Then u = u + Gcd(i, j) End If Next jNext ilbl.Caption = uEnd SubPrivate Function Gcd(ByVal x As Integer, ByVal y As Integer) As Integer Dim tmp As Long Do If x < y Then tmp = x x = y y = tmp End If x = x Mod y Loop While x Gcd = y End Function
  8. Dim n, r, d As Double Private Sub cmd_Click() lbl.Caption = combin(40, 20) End Sub Private Function combin(n As Double, r As Double) As Double combin = fact(n) / (fact(r) * fact(n - r)) End Function Public Function fact(n As Double) As Double d = 1 For i = 1 To n d = d * i Next i fact = d End Function
  9. السلام عليكم ورحمة الله وبركاته هذا الكود مكتوب بلغة فيجوال بيسك 6 اعتقد انه قصير بما يكفى Option ExplicitDim splitarray() As StringDim ar(1 To 400) As IntegerDim u, min, inc, x, j As IntegerDim st, st1 As StringPrivate Sub cmd_split_Click()Dim i As Integersplitarray = Split("08 02 22 97 38 15 00 40 00 75 04 05 07 78 52 12 50 77 91 08 " _& "49 99 40 17 81 18 57 60 87 17 40 98 43 69 48 04 56 62 00 " _& "81 49 31 73 55 79 14 29 93 71 40 67 53 88 30 03 49 13 36 65 " _& "52 70 95 23 04 60 11 42 69 24 68 56 01 32 56 71 37 02 36 91 " _& "88 36 68 87 57 62 20 72 03 46 33 67 46 55 12 32 63 93 53 69 " _& "04 52 08 83 97 35 99 16 07 97 57 32 16 26 26 79 33 27 98 66 " _& "22 31 16 71 51 67 63 89 41 92 36 54 22 40 40 28 66 33 13 80 " _& "24 47 32 60 99 03 45 02 44 75 33 53 78 36 84 20 35 17 12 50 " _& "32 98 81 28 64 23 67 10 26 38 40 67 59 54 70 66 18 38 64 70 " _& "67 26 20 68 02 62 12 20 95 63 94 39 63 08 40 91 66 49 94 21 " _& "24 55 58 05 66 73 99 26 97 17 78 78 96 83 14 88 34 89 63 72 " _& "21 36 23 09 75 00 76 44 20 45 35 14 00 61 33 97 34 31 33 95 " _& "78 17 53 28 22 75 31 67 15 94 03 80 04 62 16 14 09 53 56 92 " _& "16 39 05 42 96 35 31 47 55 58 88 24 00 17 54 24 36 29 85 57 " _& "86 56 00 48 35 71 89 07 05 44 44 37 44 60 21 58 51 54 17 58 " _& "19 80 81 68 05 94 47 69 28 73 92 13 86 52 17 77 04 89 55 40 " _& "20 69 36 41 72 30 23 88 34 62 99 69 82 67 59 85 74 04 36 16 " _& "20 73 35 29 78 31 90 01 74 31 49 71 48 86 81 16 23 57 05 54 " _& "04 42 16 73 38 25 39 11 24 94 72 18 08 46 29 32 40 62 76 36 " _& "01 70 54 71 83 51 54 69 16 92 33 48 61 43 52 01 89 19 67 48", " ")min = 0u = 0For i = 0 To UBound(splitarray)        ar(i + 1) = splitarray(i)Next iFor j = 1 To 400    For inc = 1 To 8        x = Choose(inc, -21, -20, -19, 1, 21, 20, 19, -1)       If j + 3 * x > 0 And j + 3 * x <= 400 Then                u = ar(j) - ar(j + x) - ar(j + 2 * x) - ar(j + 3 * x)                If u < min Then                    min = u                    st = ar(j) & "  -  " & ar(j + x) & "  -  " & ar(j + 2 * x) & "  -  " & ar(j + 3 * x)                    st1 = j & "  -  " & j + x & "  -  " & j + 2 * x & "  -  " & j + 3 * x                End If       End If            Next incNext jMsgBox " the smallest Value is               " & min & "       " & vbCrLf & vbCrLf & "the Numbers in Array        " & st & vbCrLf & vbCrLf & "the Numbers orders in Array          " & st1, , "Smallest"End Sub
  10. تم ارسال الاجابة والكود للجنة التحكيم
  11. لغز (52) : الترتيب الوحيد ؟

    السلام عليكم ورحمة الله وبركاته رائع اخى الفاضل MPC على اسلوبك الرائع والبسيط ولكننى لا اعتقد ان اختبار باقى القسمة يمكن ان يصمد على الانظمة التى تم طرحها والتعديل بها على المثال الاصلى كما انه لو تم افتراض وجود الوان اخرى اكثر من 3 الوان اعتقد ان اختبار باقى القسمة لن يجدى فى إبراز اى نتائج سليمة
  12. تم الاجابة ومراسلة اللجنة بالحل
  13. لغز (52) : الترتيب الوحيد ؟

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

    السلام عليكم ورحمة الله وبركاته بالطبع هذا ما تم ملاحظته وتم الاشارة اليه سابقا ايضا ولكنى حاولت ان اتبع حدسى فى ذلك و كما قال الاخ الفاضل smart-m يبدو ان الجينات الوراثية تلعب دورها فى هذا الموضوع لذلك اسمحوا لى  بتغيير النظام بالشكل التالى 4- 1- 7  ليتضح نقاط الخلاف فوفقا لكلامك الفروق ستكون كالاتى  3 8 11 وبالتالى يجب ان يكون الفرق بين اى عددين يقبل القسمة على احدى تلك الفروق 3 8 11 ولكننا نجد مثال مختلف تمامأ كما لو كانت هناك طفرة بالموضوع حيث الارقام 10 7 17 يوجد بها الفروق التالية 3 7 10 ومن الواضح وفقا لملاحظتنا ان اللون السائد هو اللون المخالف لكل من 10 و 7 حيث الفرق بينهما يقبل القسمة على 3 اى سيكون اللون السائد هو اللون الاول ( من اليسار الى اليمين ) ولكن عندما تتحول الـ 10 7 17 الى 31 4 5 وفقا لملاحظتنا ايضا يجب ان يكون اللون السائد هو اللون المخالف لـكل من 31 و 4 حيث الفرق بينهما يقبل القسمة على 3 بعد ذلك تتحول الـ 31 4 5 الى  23 18 3 وبدلا ان يكون الفرق يقبل القسمة على 3 بين اللونين الثانى والثالث ( من اليسار الى اليمين ) تحدث طفرة ليكون الفرق يقبل الفسمة على 3 بين اللونين الاول والثانى ( من اليسار الى اليمين ) وبعد ذلك تتحول الـ 23 18 3  إلى 19 17 10 وبذلك يكون الفرق بين اللونين الاول والثالث يقبل القسمة على 3 مؤكدا ان اللون الذى يجب ان يسود هو اللون الثانى وذلك ما حدث فعلا عندما تحولت 19 17 10 إلى 7 38 7 وبذلك سيكون اللون السائد هو اللون الثانى وليس اللون الاول كما تبين فى بادئ الامروتم ارفاق الصورة والبرنامج للتحقق من ذلك اعتقد انه بذلك المثال ربما يتضح انه ليس هناك لون سائد محدد وذلك خلافا لما تم التطرق البه من المثال الاصلى Color Puzzle.rar
  15. لغز (52) : الترتيب الوحيد ؟

    السلام عليكم ورحمة الله وبركاته ماذا لو التقت حرباءه من لون احمر مثلا باثنين من لون اصفر مثلا  فتم تزاوج بين الاولى الحمراء  مع اخرى صفراء  فتحول الابوين والمولود وكذلك الحرباءه التى كانت باللقاءوالتى لم يحدث لها تزاوج  الى اللون المخالف وليكن اللون الاخضر وممكن ان تكون المجموعة بنفس اعداد المثال الاول 17 خضراء و 7 صفراء و 10 حمراء فهل من الممكن تحديد اللون السائد الذى ستؤول إليه تلك المجموعة  فى النهاية  ؟؟