mona rahimi
New Member
برنامه ای که x را به رادیان از ورودی گرفته و sin ان را تا 4 رقم اعشار بدست اورد.(بدون استفاده از تابع sin)
vb6
vb6
آخرین ویرایش:
برنامه ای که x را به رادیان از ورودی گرفته و sin ان را تا 4 رقم اعشار بدست اورد.(بدون استفاده از تابع sin)
vb6
Private Sub Form_Load()
Dim x As Single, i As Long, j As Long, v As Single
Dim a As Double, b As Double, c As Double
x = Val(InputBox("Please enter an angle (radians) :"))
a = 1
b = x
c = 1
j = 1
For i = 0 To 80
v = v + (a / c) * b
a = -a
b = b * x * x
j = j + 2
c = c * (j - 1) * j
Next
MsgBox v
End Sub