المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : طلب من خبراء الفجول بيسك الرجاء الدخووول ..


no lie
13-01-2007, 01:52 PM
السلام عليكم ورحمة الله وبعد:


يا أخوان والله أني داخلن على الله ثم عليكم أنكم تحلوووون مشكلتي

أبغى أحد الخبراء يعمل لي كود لهذا البرنامج

البرنامج هو إدخال عشرة اعداد بإستخدام المصفوفة و InputBox وإخراج أصغر عدد من العشرة

ومشكوررررين أخواااني مقدماً
majd_1232002
13-01-2007, 05:47 PM
سلام
البرنامج بحاجة الى خبير في الخوارزميات
اعقد والله العلم ان الخوارزميات لحل هذة المسألة غير منتهية يعني مليون ومليون ومليون
ومليون الى مالانهاية هو عدد طرق الحل
الحلول موجودة لاكن اسرع طريقة لحلها هو المشكلة
عشان تكون مبرمج لازم تحاول وتشغل مخك ولازم تعرف بدون مساعدة إحدى الطرق الممكنة (الأنهائية):33:
ان شاء الله راح احاول معاك بعد ما اخلص من الأمتحانات:silly: :silly: :silly: :silly: :silly: :silly: :silly:
احمد منيب
14-02-2007, 09:26 AM
السلام عليكم ورحمة الله.
أخي العزيز
اولا يجب تعريف المصفوفة

Dim a(9) As Integer

ثم سنستخدم جملة تكرار لملء المصفوفة بالارقام

For i = 0 To 9
a(i) = InputBox("Input Number")
Next i

الآن سنعرف المتغير x كقيمة رقمية لأننا سنستخدمه ليكون أصغر قيمة

Dim x As Integer

ولكن قيمة اكس الرقم الاول في المصفوفة
x = a(0)

الآن نستخدم جملة تكرار أخرى لإختبار لالرقام لكن دون العدد الاول

For j = 1 To 9
If a(j) < x Then
x = a(j)
End If
Next j
MsgBox x

:biggthump

اذا لم تفهم من النص المكتوب يمكنك تحميل الملف المرفق يحتوي على البرنامج الجاهز