Sin Function

āĻāĻ•āĻŸāĻŋ āĻ•ā§‹āĻ¨ā§‡āĻ° āĻ¸āĻžāĻ‡āĻ¨ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤ āĻ•ā§‹āĻ¨āĻŸāĻŋ āĻ°ā§‡āĻĄāĻŋā§ŸāĻžāĻ¨ā§‡ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ–āĻŋāĻ¤ āĻšā§ŸāĨ¤ āĻĢāĻ˛āĻžāĻĢāĻ˛ -1 āĻāĻŦāĻ‚ 1 āĻāĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻŦāĻŋāĻĻā§āĻ¯āĻŽāĻžāĻ¨āĨ¤

āĻ†āĻ˛āĻĢāĻž āĻ•ā§‹āĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡, āĻ¸āĻžāĻ‡āĻ¨ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻ•ā§‹āĻ¨ā§‡āĻ° āĻŦāĻŋāĻĒāĻ°ā§€āĻ¤ āĻŦāĻžāĻšā§āĻ° āĻĻā§ˆāĻ°ā§āĻ¯ā§āĻ¯ (āĻ˛āĻŽā§āĻŦ) āĻāĻŦāĻ‚ āĻ¸āĻŽāĻ•ā§‹āĻ¨ā§€ āĻ¤ā§āĻ°āĻŋāĻ­ā§āĻœā§‡āĻ° āĻ…āĻ¤āĻŋāĻ­ā§āĻœā§‡āĻ° āĻĻā§ˆāĻ°ā§āĻ˜ā§āĻ¯ā§‡āĻ° āĻ…āĻ¨ā§āĻĒāĻžāĻ¤ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤

āĻ¸āĻžāĻ‡āĻ¨(āĻ†āĻ˛āĻĢāĻž) = āĻ•ā§‹āĻ¨ā§‡āĻ° āĻŦāĻŋāĻĒāĻ°ā§€āĻ¤ āĻŦāĻžāĻšā§/āĻ…āĻ¤āĻŋāĻ­ā§‚āĻœ

āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸:


Sin (Number)

āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:

āĻĄāĻžāĻŦāĻ˛

āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°:

āĻ¸āĻ‚āĻ–ā§āĻ¯āĻž: āĻ¸āĻ‚āĻ–ā§āĻ¯āĻžāĻ¸ā§‚āĻšāĻ• āĻāĻ•ā§āĻ¸āĻĒā§āĻ°ā§‡āĻļāĻ¨ āĻ¯āĻž āĻ°ā§‡āĻĄāĻŋā§ŸāĻžāĻ¨ā§‡ āĻ•ā§‹āĻ¨ āĻĒā§āĻ°āĻ•āĻžāĻļ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡ āĻāĻŦāĻ‚ āĻ¯āĻžāĻ° āĻ¸āĻžāĻ‡āĻ¨ āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨āĨ¤

āĻ°ā§‡āĻĄāĻŋā§ŸāĻžāĻ¨ āĻĨā§‡āĻ•ā§‡ āĻĄāĻŋāĻ—ā§āĻ°āĻŋāĻ¤ā§‡ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯, āĻĄāĻŋāĻ—ā§āĻ°āĻŋāĻ•ā§‡ Pi/180 āĻĻā§āĻŦāĻžāĻ°āĻž āĻ—ā§āĻŖ āĻ•āĻ°ā§āĻ¨ āĻāĻŦāĻ‚ āĻ°ā§‡āĻĄāĻŋā§ŸāĻžāĻ¨āĻ•ā§‡ āĻĄāĻŋāĻ—ā§āĻ°āĻŋāĻ¤ā§‡ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯, āĻ°ā§‡āĻĄāĻŋā§ŸāĻžāĻ¨āĻ•ā§‡ 180/Pi āĻĻā§āĻŦāĻžāĻ°āĻž āĻ—ā§āĻŖ āĻ•āĻ°ā§āĻ¨āĨ¤

grad=(radiant*180)/pi

radiant=(grad*pi)/180

āĻĒāĻžāĻ‡ āĻāĻ° āĻŽāĻžāĻ¨ āĻšāĻ˛ā§‹ āĻĒā§āĻ°āĻžāĻ¯āĻŧ 3.141593āĨ¤

Error codes:

5 Invalid procedure call

āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ:


REM āĻāĻ‡ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖā§‡, āĻ¨āĻŋāĻšā§‡āĻ° āĻāĻ¨ā§āĻŸā§āĻ°āĻŋāĻŸāĻŋ āĻ¸āĻŽāĻ•ā§‹āĻ¨ā§€ āĻ¤ā§āĻ°āĻŋāĻ­ā§āĻœā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ¸āĻŽā§āĻ­āĻžāĻŦā§āĻ¯:
REM āĻ•ā§‹āĻ¨ā§‡āĻ° āĻŦāĻŋāĻĒāĻ°ā§€āĻ¤ āĻŦāĻžāĻšā§ āĻāĻŦāĻ‚ āĻ…āĻ¤āĻŋāĻ­ā§āĻœā§‡āĻ° āĻĻā§ˆāĻ°ā§āĻ˜ā§āĻ¯ āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ•ā§‹āĻ¨ (āĻĄāĻŋāĻ—ā§āĻ°āĻŋāĻ¤ā§‡):
Sub ExampleSine
REM Pi = 3.1415926 āĻāĻ•āĻŸāĻŋ āĻĒā§‚āĻ°ā§āĻŦāĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŋāĻ¤ āĻ­ā§‡āĻ°āĻŋā§Ÿā§‡āĻŦāĻ˛
Dim d1 As Double
Dim dAlpha As Double
    d1 = InputBox("Enter the length of the opposite side: ","Opposite Side")
    dAlpha = InputBox("Enter the angle Alpha (in degrees): ","Alpha")
    Print "The length of the hypotenuse is"; (d1 / sin (dAlpha * Pi / 180))
End Sub

Please support us!