Cos Function

གྲུ་ཟུར་གྱི་ཀོ་སིན་དེ་རྩིས་སྟོནམ་ཨིན། གྲུ་ཟུར་དེ་རེ་ཌི་ཡཱནསི་ནང་གསལ་བཀོད་འབད་ཡོདཔ་ཨིན། འགྲུབ་འབྲས་དེ་ - ༡ དང་ ༡ བར་ན་ཨིན།

གྲུ་ཟུར་ཨཱལ་ཕ་ལག་ལེན་འཐབ་དེ་ སི་ཨོ་ཨེསི་ལས་འགན་གྱིས་གྲུ་ཟུར་ལུ་ཉེས་འདབས་ཟུར་གྱི་རིང་ཚད་ཀྱི་དཔྱ་ཚད་ གཡས་ཕྱོགས་གྲུ་ཟུར་་ཡོད་མི་ཟུར་གསུམ་ནང་ཧའི་པོ་ཊིནས་ཀྱིས་རིང་ཚད་ཀྱིས་འབད་བགོ་བཤའ་རྐྱབས་ཡོད་མི་དེ་རྩིས་སྟོནམ་ཨིན།

སི་ཨོ་ཨེསི་(ཨཱལ་ཕ་) = ཉེ་འདབས/ཧཱིཔོ་ཊིནསི།

ཚིག་སྦྱོར:

ཀོསི (Number)

གནས་གོང་སླར་ལོག:

ལོག་ལྟབ།

ཚད་བཟུང་ཚུ་:

ཨང་: ཨང་གྲངས་ཀྱི་གསལ་བརྗོད་དེ་གིས་ཁྱོད་ཀྱིས་རྩིས་སྟོན་འབད་ནི་ཀོ་སིན་དོན་ལུ་ཨིན་མི་རེ་ཌི་ཡཱནསི་ནང་གྲུ་ཟུར་ཅིག་གསལ་བཀོད་འབདཝ་ཨིན།

དབྱེ་རིག་ཚུ་རེ་ཌི་ཡཱནསི་ལུ་གཞི་བསྒྱུར་འབད་ནི་ལུ་ དབྱེ་རིག་ པི་ཨའི་/༡༨༠ གིས་འབད་དགུ་བསྡོམས་འབད། རེ་ཌི་ཡཱནསི་དབྱེ་རིག་ལུ་གཞི་བསྒྱུར་འབད་ནི་ལུ་ རུ་ཌི་ཡཱནསི་ ༡༨༠/པི་ཨའི་ གིས་འབད་དགུ་བསྡོམས་རྐྱབས།

དབྱེ་རིམ=(radian*180)/pi

རེ་ཌི་ཡན=(degree*pi)/180

པི་ཨའི་དེ་ན་དེ་གཏན་བཟོ་ཡོད་མི་སྒོར་ཐིག་ཆད་མེད་ཀྱི་གནས་གོང་་ ༣་༡༤༡༥༩...གིས་སྐོར་ཡོདཔ་ཨིན།

དཔེར་བརྗོད:

ཨར་ཨི་ཨེམ་ འོག་གི་དཔེར་བརྗོད་ཀྱིས་གཡས་ཕྱོགས་གྲུ་ཟུར་་ཟུར་གསུམ་ཨིན་པུཊི་གི་ དོན་ལུ་བཅུགཔ་ཨིན།

ཨར་ཨི་ཨེམ་གཏོལ་ཐིག་དང་གྲུ་ཟུར་(དབྱེ་རིག་ཚུ་ནང་)དང་ཧའི་པོ་ཊེནས་གི་རིང་ཚད་དེ་རྩིས་སྟོནམ་ཨིན།

Sub ExampleCosinus

ཨར་ཨི་ཨེམ་ སྐོར་ཐེངས་འབད་ཡོདཔ པི་ཨའི= ༣་༡༤༡༥༩

Dim d1 As Double, dAngle As Double

    ཌི་ ༡ = ཨིན་པུཊི་སྒྲོམ$ (""Enter the length of the adjacent side: ","Adjacent")

    ཌི་གྲུ་ཟུར = ཨིན་པུཊི་སྒྲོམ$ ("Enter the angle Alpha (in degrees): ","Alpha")

    དཔར་བསྐྲུན་འབད "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))

End Sub