Elhosinia B2T Thanwya



















    اللغز الثاني

    شاطر

    Mr.AboZaid
    مدير المنتدي
    مدير المنتدي

    الانتماء :
    • ينتمي لمدرسة الحسينية

    عدد الرسائل : 1950
    العمر : 20
    الصف الدراسي : الثالث الإعدادي
    السمعة : 10
    نقاط التميز : 1000003137
    تاريخ التسجيل : 27/02/2009

    عادي اللغز الثاني

    مُساهمة من طرف Mr.AboZaid في الأربعاء مايو 27, 2009 9:12 pm



    نشوف ممككن الحل بمنهج الصف الثالث ع
    طب ما نخليه تطبيق على ما تم دراسته
    الفزوة
    اعداد صحيحة يبقى لها مخزن وليكن X من النوع integer ليه integer علشان مكون من 5 ارقام اقلهم 4في خانة عشرات الالاف

    العدد مكون من خمس اعداد abcde واكبر من 6000


    يبقى a مخزن بس byte علشان من 4 الى 8


    و b مخزن بس byte علشان من 4 الى 8


    و c مخزن بس byte علشان من 4 الى 8


    و d مخزن بس byte علشان من 4 الى 8


    و f مخزن بس byte علشان من 4 الى 8


    وكمان ايه مفيش عددين متكررين يعني ايه


    a<>b and a<>c
    and a<>d and a<>f and b<>c and b<>d and b<>f and c<>d and c<>f and d<>f

    طب العدد نتعامل معاه ازاي


    نرجعه لعناصره الاولي


    f احاد هي f


    d عشرات تبقى 10 مضروبة d


    c مئات تبقى 100 مضروبة c


    b الاف تبقى 1000 مضروبة b


    a عشرات الالاف تبقى 10000 مضروبة a


    نجمع f+10*d+100*c+1000*b+10000*a ويوضع في x


    ونعمل تكرار للعدد يبدء من 4 وينتهي 8 والخطوة واحد ب for next للخمس ارقام متداخله


    طب ما كده حيكون هناك تكرار


    نعمل شرط ب if then عدم التكرار


    وكمان شرط انه يكون اكبر من 6000


    وفي الحالة دي (الشرط صحيح ) يعمل عداد n=n+1 (يبقى فيه مخزن للعداد) لتحقيق الشرطان


    وبعد اخر تكرار رسالة ب msgbox للعداد


    وهي دي الاكواد

    Dim a, b, c, d, f As Byte

    Dim x, n As Integer


    For a = 4 To 8


    For b = 4 To 8


    For c = 4 To 8


    For d = 4 To 8


    For f = 4 To 8


    x = f + 10 * d + 100 * c + 1000 * b + 10000 * a


    If x > 6000 Then


    If a <> b
    and a <> c and a <> d and a <> f and b <> c and b <> d and b <> f and c <> d and c <> f and d <> f Then

    n = n + 1


    End If


    End If


    Next


    Next


    Next


    Next


    Next


    MsgBox(n)
    f

    Miky Teet
    طالب (ة)ذهبي
    طالب (ة)ذهبي

    الانتماء :
    • ينتمي لمدرسة الحسينية

    عدد الرسائل : 246
    العمر : 20
    الصف الدراسي : الثالث الإعدادي
    السمعة : 4
    نقاط التميز : 323
    تاريخ التسجيل : 21/12/2009

    عادي رد: اللغز الثاني

    مُساهمة من طرف Miky Teet في الخميس أغسطس 26, 2010 5:45 am




    موضوع رائع


    Smile

    ????
    زائر

    عادي رد: اللغز الثاني

    مُساهمة من طرف ???? في الخميس أغسطس 26, 2010 6:30 pm

    جميل اوووووووووى
    ثانكث
    admin

    Mr.AboZaid
    مدير المنتدي
    مدير المنتدي

    الانتماء :
    • ينتمي لمدرسة الحسينية

    عدد الرسائل : 1950
    العمر : 20
    الصف الدراسي : الثالث الإعدادي
    السمعة : 10
    نقاط التميز : 1000003137
    تاريخ التسجيل : 27/02/2009

    عادي رد: اللغز الثاني

    مُساهمة من طرف Mr.AboZaid في الجمعة أغسطس 27, 2010 12:48 am

    شكرا ع الردود










      الوقت/التاريخ الآن هو الأربعاء ديسمبر 07, 2016 9:16 pm