Module
Contents
Index 🔎︎

# Cos Function

ཟུར་ཚད་ཅིག་གི་ལྷག་རྒྱུད་ཐང་རྩིས་རྒྱག་དགོས་ ཟུར་ཚད་ཀྱི་འཇལ་བྱེད་ནི་གཞུ་ཚད་ཡིན་ འབྲས་བུ་ནི་ -1 ནས་ 1 བར་ཡིན།

ཟུར་ Alpha དཔེར་བཞག་ན་ ཐད་ཟུར་ཟུར་གསུམ་ནང་རྟེན་གྲངས་ Cos རྩིས་བརྒྱབ་པ་ནི་ Alpha ཡི་མཚེས་མཐའ་དང་གསེག་མཐའི་རིང་ཚད་ཀྱི་སྡུར་ཚད་ཡིན།

Cos(Alpha) = མཚེས་མཐའ་/གསེག་མཐའ་

## བརྡ་འཕྲོད་

    Cos (Number)

## ཕྱིར་ལོག་ཐང་

ཆ་ལྡན་དག་ཚད་

## ཁུགས་གྲངས་

Number ལྷག་རྒྱུད་ཐང་གི་ཟུར་ཚད་རྩིས་རྒྱག་གི་གྲངས་ཀའི་མཚོན་ཚུལ་གཏན་འཁེལ་ལ་སྤྱོད་ འཇལ་བྱེད་ནི་གཞུང་ཚད་ཡིན།

ཚད་ནི་གཞུ་ཚད་ལ་བརྗེ་སྒྱུར་བྱེད་ན་ ཏུའུ་ལ་ pi/180བསྒྱུར་དགོས། གཞུ་ཚད་ནི་ཏུའུ་ལ་བརྗེ་སྒྱུར་བྱེད་ན་གཞུ་ཚད་ལ་ 180/piཡིས་བསྒྱུར་དགོས།

ཏུའུ་=(གཞུ་ཚད་*180)/pi

གཞུ་ཚད་=(ཏུའུ་*pi)/180

དེའི་ནང་ Pi ནི་སྒོར་མཐའི་ཕྱོད་ཀྱི་རྒྱུན་གྲངས་རེད་ དོར་ལེན་བྱས་རྗེས་ཀྱི་ཐང་ནི་ 3.14159...

## Error codes:

5 ནུས་མེད་ཀྱི་བརྒྱུད་རིམ་འཁོར་སྤྱོད་

## དཔེ་གཞི་

    REM གཤམ་གྱི་ཚོན་དཔེ་གཞི་ཐད་ཟུར་ཟུར་གསུམ་དབྱིབས་དཔེར་བྱས་ཏེ་ནང་འཇུག་བྱེད་དགོས་

    REM མཚེས་མཐའ་དང་ཟུར་ཚད་ (ཏུའུ་ཡིས་འཇལ་བྱེད་)མ་ཟད་དེ་དག་བརྒྱུད་ནས་ཟུར་གསུམ་གྱི་གསེག་མཐའི་རིང་ཚད་རྩིས་རྒྱག་པ་

    Sub ExampleCosinus

    REM དོར་ལེན་བྱས་རྗེས་ཀྱི་ 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