Cos Function

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

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

Cos(Alpha) = Adjacent/Hypotenuse

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


Cos (Number)

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

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

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

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

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

degree=(radian*180)/pi

radian=(degree*pi)/180

3.14159... āĻĒā§‚āĻ°ā§āĻŖ āĻ¸āĻ‚āĻ–ā§āĻ¯āĻž āĻŽāĻžāĻ¨ āĻ¸āĻš āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻŦā§ƒāĻ¤ā§āĻ¤āĻžāĻ•āĻžāĻ° āĻ§ā§āĻ°ā§āĻŦāĻ• āĻšāĻ˛ā§‹ āĻĒāĻžāĻ‡āĨ¤

Error codes:

5 Invalid procedure call

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


REM āĻ¨āĻŋāĻšā§‡āĻ° āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻ¸āĻŽāĻ•ā§‹āĻ¨ā§€ āĻ¤ā§āĻ°āĻŋāĻ­ā§āĻœā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻ° āĻ‡āĻ¨āĻĒā§āĻŸ āĻ…āĻ¨ā§āĻŽā§‹āĻĻāĻ¨ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡
REM āĻĒāĻ°āĻ¸ā§āĻĒāĻ°āĻ›ā§‡āĻĻā§€ āĻāĻŦāĻ‚ āĻ•ā§‹āĻ¨ (āĻĄāĻŋāĻ—ā§āĻ°āĻŋāĻ¤ā§‡) āĻāĻŦāĻ‚ āĻ…āĻ¤āĻŋāĻ­ā§āĻœā§‡āĻ° āĻĻā§ˆāĻ°ā§āĻ˜ā§āĻ¯ āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°āĻž āĻšā§Ÿ:
Sub ExampleCosinus
REM rounded Pi = 3.14159
Dim d1 As Double, dAngle As Double
    d1 = InputBox$ (""Enter the length of the adjacent side: ","Adjacent")
    dAngle = InputBox("Enter the angle Alpha (in degrees): ","Alpha")
    Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))
End Sub

Please support us!