فقط للطالب المتميز النص نص بلاش يدخل

[س ا يوسف]

الاول نشوف فزوة كل اسبوع

http://www.egyedu.com/vb/showthread.php?t=2104

نشوف ممككن الحل بمنهج الصف الثالث ع
طب ما نخليه تطبيق على ما تم دراسته
الفزوة
اعداد صحيحة يبقى لها مخزن وليكن 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

[شمس بياض]

حضرتكم عبقرى

فعلا الطالب المتميز ناتج
من نتائج المعلم المتميز امثال حضرتك

بارك الله لك

[س ا يوسف]

حضرتكم عبقرى

فعلا الطالب المتميز ناتج
من نتائج المعلم المتميز امثال حضرتك

بارك الله لك

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

[السيد سليم]

جزاك الله كل خير
وجعله الله في ميزانك
__________________

[س ا يوسف]

جزاك الله كل خير
وجعله الله في ميزانك
__________________

بارك الله فيك
وشكرا لمرورك

[س ا يوسف]

الاول نشوف فزوة كل اسبوع

http://www.egyedu.com/vb/showthread.php?t=2104

نشوف ممككن الحل بمنهج الصف الثالث ع
طب ما نخليه تطبيق على ما تم دراسته
الفزوة
اعداد صحيحة يبقى لها مخزن وليكن 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

طب لازم العدد يتكون من كل الارقام 4 و 5 و 6 و 7 و 8
لأ طب ممكن من اربعة خانات فقط المهم يكون اكبر من 6000
يبقى نكرراللي عملناه
بس ب 4 ارقام
يعني الرقم يكون abcd
d+10*c+100*b+1000*a ويوضع في مخزن y
ونعمل عداد كمان m
اختيار الشرط الركب and علشان اذا كان كل الشروط صحيحة يكون المركب صحيح
ويكون الاكواد كالتالي

Dim a, b, c, d, f As Byte
Dim x,y,m, 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
For a = 4 To 8
For b = 4 To 8
For c = 4 To 8
For d = 4 To 8
x = d + 10 * c + 100 * b + 1000 * a
If x > 6000 Then
If a <> b and a <> c and a <> d and b <> c and b <> d and c <> d Then
m = m + 1
End If
End If
Next
Next
Next
Next
MsgBox(n+m)f

[س ا يوسف]

طب لو عايزين نظهر الاعداد اللي بتحل اللغز

نضيف عمل listbox1
ونعمل كود اضافة عنصر للlistbox
me.listbox1.items.add(x)x
وكمان مرة
(me.listbox1.items.add(y
ويكون الاكواد كده

Dim a, b, c, d, f As Byte
Dim x,y,m, 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
Me.ListBox1.Items.Add(x)
End If
End If
Next
Next
Next
Next
Next
For a = 4 To 8
For b = 4 To 8
For c = 4 To 8
For d = 4 To 8
x = d + 10 * c + 100 * b + 1000 * a
If x > 6000 Then
If a <> b and a <> c and a <> d and b <> c and b <> d and c <> d Then
m = m + 1
Me.ListBox1.Items.Add(y)
End If
End If
Next
Next
Next
Next
MsgBox(n+m)f