[حل شده] تعریف یک حلقه در تابع

[neda-a]

سلام
من میخوام یک تابع تعریف کنم که با گرفتن ورودی عملیات زیر را تا جایی که مقدار ورودی از صفر بیشتر هست انجام بدهد خروجی مجموع جواب های هر بار تکرار حلقه باشه
(عملیات : اگر نام ورودی t فرض کنیم t/10+1)
مثلا اگر ورودی 3 باشد
چون 3بزرگتر از 0 است مقدار x= 3/10+1 را انجام بدهد (که می شود 1.3) بعد یکی از 3 کم کند و دوباره شرط را بررسی کند و اینبار مقدار x=1.2 شده و در تکرار بعد مقدار x=1.1 و نهایتا خروجی تابع بشود 1.3+1.2+1.1
چطور باید اینو بنویسم؟

[amir_ts]

با سلام
این تابع رو ملاحظه کنید.

[LEFT]
[/LEFT]
Function Divide(l As Long) As Double
    Dim dVal As Double

    Do While l > 0
        dVal = dVal + l / 10 + 1
        l = l - 1
    Loop
    Divide = dVal

End Function

[neda-a]

ممنونم از وقتی که گذاشتید ولی متاسفانه این کد منو به جواب نرسوند

[amir_ts]

ممنونم از وقتی که گذاشتید ولی متاسفانه این کد منو به جواب نرسوند

آیا با استفاده از تابع به جواب صحیح نمیرسید؟
اگر ممکنه توضیح بدید.

[امين اسماعيلي]

داداش میشه دومیشو که یکی ازش کم میکنیو بگی چیطور میشه 1.2

[amir_ts]

داداش میشه دومیشو که یکی ازش کم میکنیو بگی چیطور میشه 1.2

وقتی مقدار l یکی ازش کم میشه میاد بالا عدد 2 تقسیم بر 10 به علاوه 1 میشه و 1.2 بست میاد.!!!!!

[neda-a]

ممنون از همه اساتیدی که وقت گذاشتن
یکی از اساتید جواب سوال را دادن و جواب را میذارم برای دوستانی که ممکنه به این مساله برخورد کنن

Function neda(m)
Dim x
x = 0
Do While m > 0
       x = x + (m / 10) + 1
        
        m = m - 1
    Loop
neda = x



[End Function

[neda-a]

البته این کد هم درست هست

با سلام
این تابع رو ملاحظه کنید.

[LEFT]
[/LEFT]
Function Divide(l As Long) As Double
    Dim dVal As Double

    Do While l > 0
        dVal = dVal + l / 10 + 1
        l = l - 1
    Loop
    Divide = dVal

End Function