من طرف 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
