سینوس

mona rahimi

New Member
برنامه ای که x را به رادیان از ورودی گرفته و sin ان را تا 4 رقم اعشار بدست اورد.(بدون استفاده از تابع sin)
vb6
 
آخرین ویرایش:

the_king

مدیرکل انجمن
برنامه ای که 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
 

جدیدترین ارسال ها

بالا