fmgret12
- مصر
- سرعة البديهة . . والبرمجة
نعم تقريبا بنفس هذه الصورة ولكن المربعات مستوية وليست مكعبه
- سرعة البديهة . . والبرمجة
الحل بسيط جدا وهو ان كل مربع 2 او 4 او 6 تحته مربع اخر فمثلا مربع 4 تحته مربع 5 ومربع 6 تحته مربع 3 ومربع 2 تحته مربع 8 وبالتالى مربع 8 هو الذى فى الاسفل من ضمن الاختيارات المتاحة (2و4و6و8) من جهة اخرى بالطبع المربع 1 فى الاعلى سنجد المربع 7 اسفلة المربع 6 اسف…
- سرعة البديهة . . والبرمجة
حلهم على التوالى 8 و 52 اختبار لذيذ بس مش اكيد
- استخدام for .. next المتداخلة عدد غير محدد من المرات
اخى الفاضل ربما انت على حق ولكن المقصود هوالحصول على خوارزمية وهو بـ استخدام جملة for ... next وتتكرر عددا من المرات على سبيل المثال الذى ذكرته سابقا تم تكرارها 7 مرات هل من الممكن استخدامها بعدد مرات اصغر او اقل من 7 مرات ؟؟؟ وكيف ؟؟
- استخدام for .. next المتداخلة عدد غير محدد من المرات
اخى الفاضل هل يمكنك التوضيح حيث المثال الذى اريد حلة كالاتى ويمكن ان يكون عدد الدورات غير محدد برجاء التوضيح ان امكن لان فى بعض الحالات يكتفى بـ 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 .. next المتداخلة عدد غير محدد من المرات
السلام عليكم ورحمة الله وبركاته هل يمكن استخدام جملة for .. next المتداخلة بعدد غير محدد من المرات حيث اننى لا اعلم بالضبط كم عدد المرات التى يجب على ان استخدمها حيث تتغير كل مرة على سبيل المثال يمكن استخدامها 8 مرات او 5 مرات او 11 مره ....... الخ
- نتيجة السؤال الثالث من مسابقة الفريق العربي للبرمجة -3
السلام عليكم ورحمة الله وبركاته هذا الكود مكتوب بلغة فيجوال بيسك 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 j Next i lbl.Caption = u End Sub Private Function Gcd(ByVal x…
- نتيجة السؤال الثاني من مسابقة الفريق العربي للبرمجة-2
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 T…
- نتيجة السؤال الأول من مسابقة الفريق العربي للبرمجة -1
السلام عليكم ورحمة الله وبركاته هذا الكود مكتوب بلغة فيجوال بيسك 6 اعتقد انه قصير بما يكفى Option Explicit Dim splitarray() As String Dim ar(1 To 400) As Integer Dim u, min, inc, x, j As Integer Dim st, st1 As String Private Sub cmd_split_Click() Dim i As Inte…
- السؤال الثاني من مسابقة الفريق العربي للبرمجة-2
تم ارسال الاجابة والكود للجنة التحكيم
- لغز (52) : الترتيب الوحيد ؟
السلام عليكم ورحمة الله وبركاته رائع اخى الفاضل MPC على اسلوبك الرائع والبسيط ولكننى لا اعتقد ان اختبار باقى القسمة يمكن ان يصمد على الانظمة التى تم طرحها والتعديل بها على المثال الاصلى كما انه لو تم افتراض وجود الوان اخرى اكثر من 3 الوان اعتقد ان اختبار باقى …
- السؤال الأول من مسابقة الفريق العربي للبرمجة
تم الاجابة ومراسلة اللجنة بالحل
- لغز (52) : الترتيب الوحيد ؟
السلام عليكم ورحمة الله وبركاته فعلا اخى الفاضل اسلام الكبابى اتفق معك ان كلامك صحيح وتحليلك رائع غير اننى تعجلت فى الرد ولم اخذ بالاعتبار تعديل البرنامج ليتناسب مع شروط الحالة التى تغير بها النظام من 1- 1- 2 إلى 1- 2- 4 حيث بدلا من الوصول الى ان يكون النسبة ب…
- لغز (52) : الترتيب الوحيد ؟
السلام عليكم ورحمة الله وبركاته ان نقص أحد العددين بمقدار 1 يحدث معها نقص الثانى بمقدار2 و زيادة الثالث بمقدار4 لأنه اذا كان الأول مثلآ = س و الثانى = ص و الثالث =ع فلكى يتساوى اثنان منهما بعد هذه الزيادة وهذا النقص لابد من تحقق أحد الشروط الآتية الأول :-أن تك…
- لغز (52) : الترتيب الوحيد ؟
السلام عليكم ورحمة الله وبركاته ماذا لو التقت حرباءه من لون احمر مثلا باثنين من لون اصفر مثلا فتم تزاوج بين الاولى الحمراء مع اخرى صفراء فتحول الابوين والمولود وكذلك الحرباءه التى كانت باللقاءوالتى لم يحدث لها تزاوج الى اللون المخالف وليكن اللون الاخضر وممكن ا…
- لغز (52) : الترتيب الوحيد ؟
السلام عليكم ورحمة الله وبركاته نعم اخى الفاضل اسلام الكبابى كلامك صحيح 100 % ولكنى اريد بالتركيز على تلك النقطة ان يتم التعديل على المسألة قليلا ... ماذا لوكان النظام الذى اريده هو يحاول ان يقترب من الواقع قليلا بأن يتم تزاوج بين لونين احدهما به فرد واحد والل…
- لغز (52) : الترتيب الوحيد ؟
سؤالى هو لماذا العدد 3 بالذات لاختبار وجود الحل وتعدده من عدمه ؟ هل يعلم احد لماذا ؟
- لغز (52) : الترتيب الوحيد ؟
اولا :جزاك الله خيرا على التأكيد على صدق كلامى ثانيا : اننى لم انسى ان اللون السائد هو اللون المخالف للونين اللذان يكون الفرق بينهما يقبل القسمة على الـ 3 ولعلك تذكر ذلك فى توضيحى لهذا الامر فى اول مشاركة لى فى ذلك الموضوع
- لغز (52) : الترتيب الوحيد ؟
السلام عليكم ورحمة الله وبركاته يسعدنى ايضا وجودك اخى الفاضل Smart-m ولكننى للاسف لا اتفق معك لانه لا يلزم لوجود شرط اخر فوجود شرط قابلية القسمة لاى فرق بين اى عددين من الاعداد الثلاثة كفيل بايجاد وتحديد من سيكون هو اللون السائد وذلك بشرط قابلية القسمة على الع…
- لغز (52) : الترتيب الوحيد ؟
السلام عليكم ورحمة الله وبركاته على ما اعتقد انه يمكن معرفة السبب كالأتى :- اولا :- اذا كان كل فرق بين عددين من الاعداد الثلاثة تقبل القسمة على 3 فيمكن الحصول على حلول متعددة وسيكون اللون السائد غير محدد ثانيا :- اذا كان يوجد فرق واحد بين اى عددين من الاعداد ا…