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

[no lie]

السلام عليكم ورحمة الله وبعد:

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

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

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

ومشكوررررين أخواااني مقدماً

[majd_1232002]

سلام
البرنامج بحاجة الى خبير في الخوارزميات
اعقد والله العلم ان الخوارزميات لحل هذة المسألة غير منتهية يعني مليون ومليون ومليون
ومليون الى مالانهاية هو عدد طرق الحل
الحلول موجودة لاكن اسرع طريقة لحلها هو المشكلة
عشان تكون مبرمج لازم تحاول وتشغل مخك ولازم تعرف بدون مساعدة إحدى الطرق الممكنة (الأنهائية)
ان شاء الله راح احاول معاك بعد ما اخلص من الأمتحانات

[احمد منيب]

السلام عليكم ورحمة الله.
أخي العزيز
اولا يجب تعريف المصفوفة

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



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