abureyhan
یک شنبه 07 اردیبهشت 1393, 12:26 عصر
درود به دوستان .
خب از عنوان تاپیک معلوم هستش و بدون مقدمه میرم سر برنامه زیر .
برنامه ای بنویسید که X را بگیرد و حاصل عبارت زیر را تا 10 جمله حساب کند .
X - X ^ 2/2 + X ^ 3/3 - X ^ 4/4 + ...
جواب :
Dim n, c, i, k As Integer
'By Arman Hosseini
n = Val(InputBox("vared kon adad ra"))
c = n
For i = 1 To 9
k = i Mod 2
If k = 0 Then
c = (c + ((n ^ (i + 1)) / (i + 1)))
Else
c = (c - ((n ^ (i + 1)) / (i + 1)))
End If
Next i
Print c
خب ، سوال بنده این هستش... آیا این برنامه درست نوشته شده ؟؟؟
درضمن برنامه توسط آرمان حسینی نوشته شده .
خب از عنوان تاپیک معلوم هستش و بدون مقدمه میرم سر برنامه زیر .
برنامه ای بنویسید که X را بگیرد و حاصل عبارت زیر را تا 10 جمله حساب کند .
X - X ^ 2/2 + X ^ 3/3 - X ^ 4/4 + ...
جواب :
Dim n, c, i, k As Integer
'By Arman Hosseini
n = Val(InputBox("vared kon adad ra"))
c = n
For i = 1 To 9
k = i Mod 2
If k = 0 Then
c = (c + ((n ^ (i + 1)) / (i + 1)))
Else
c = (c - ((n ^ (i + 1)) / (i + 1)))
End If
Next i
Print c
خب ، سوال بنده این هستش... آیا این برنامه درست نوشته شده ؟؟؟
درضمن برنامه توسط آرمان حسینی نوشته شده .