پیدا کردن min در ارایه

[yashar020]

سلام.
می خواستم تو ویژوال بیسیک تو قسمت ارایه ها min عددی رو نشون بدم
if x(i) کوجکتر از min باشه
(min = x(i
از کد بالا استفاده می کنم اما فقط بهم صفر نشون میده.اگه میشه بگید چطور میشه مشکلو حل کنم با تشکر

[ravegoat]

با سلام،

به شهر سخت افزار خوش آمدید.

احتمالا این قضیه به این دلیله که شما برای min مقدار اولیه در نظر نگرفتید که در این صورت کامپایلر مقدار اون رو صفر در نظر می گیره.

پیش از اجرای حلقه مقدار min را برابر x(0) قرار بدید و حلقه رو به جای صفر از یک آغاز کنید و تا انتها ادامه بدید. ما بقی کد تون درسته.

موفق باشید
آرمین

[yashar020]

با سلام،

به شهر سخت افزار خوش آمدید.

احتمالا این قضیه به این دلیله که شما برای min مقدار اولیه در نظر نگرفتید که در این صورت کامپایلر مقدار اون رو صفر در نظر می گیره.

پیش از اجرای حلقه مقدار min را برابر x(0) قرار بدید و حلقه رو به جای صفر از یک آغاز کنید و تا انتها ادامه بدید. ما بقی کد تون درسته.

موفق باشید
آرمین

سلام برای min مقدار اولیه x(i ) رو در نظر گرفتم اما عدد اخر رو به عنوان کوچکترین عدد میگیره
مثلا اگه سه عدد 15 و 12 و 45 بدیم 45 را کوچکترین میگیره

[ravegoat]

سلام برای min مقدار اولیه x(i ) رو در نظر گرفتم اما عدد اخر رو به عنوان کوچکترین عدد میگیره
مثلا اگه سه عدد 15 و 12 و 45 بدیم 45 را کوچکترین میگیره

سلام،

پس احتمالا شرط همیشه درسته که سبب میشه عدد آخر همیشه به عنوان حداقل اعداد در نظر گرفته بشه (اگر کدتون رو می ذاشتید احتمالا مشکل حل میشد).

کدش به شکل زیره:

Dim number(3) As Integer

number(0) = 15
number(1) = 15
number(2) = 45

Dim minimum As Integer
minimum = number(0)

For i = 1 To 2
    If number(i) < minimum Then
        minimum = number(i)
    End If
Next