تابع جذر یک عدد به فرجه K
Public Function SQRoots(X As Double,K As Integer) As Double
Dim a,i,m
a=X
m=k-1
For i=1 to 100
X=((m*X)+(a/(X^m)))*(1/k)
Next i
SQRoots=X
End Function
+ نوشته شده در پنجشنبه پنجم خرداد ۱۳۹۰ ساعت 9:48 توسط م. صادقی
|