Som en del av et program , må du noen ganger beregne vinkelen mellom to punkter . Du bruker trigonometri til å gjøre beregningene. Siden trigonometri er basert på rettvinklede trekanter , behandler du de to punktene som hjørner i en rettvinklet trekant , og basere dine beregninger på trekanten . QBasic er et programmeringsspråk for MS - DOS . Den er basert på BASIC , som den har arvet sine trigonometri funksjoner. Du kan beregne vinkelen mellom to punkter i QBasic hjelp av en av disse funksjonene , ATN . Instruksjoner
en

Finn de horisontale og vertikale avstanden mellom de to punktene . Disse avstandene danner sidene i trekanten du vil bruke for dine beregninger . For dette eksempelet , er koordinatene til de to punktene er lagret i variabler navngitte Point1X , Point1Y , Point2X og Point2Y . For å finne hver distanse , trekke fra det første punktet er koordinat fra det andre punktet er samsvarende koordinat : en

DIM TriangleWidth AS SINGLE , TriangleHeight AS SINGLE

TriangleWidth = Point2X - Point1X

TriangleHeight = Point2Y - Point1Y
2

Konverter begge avstander til positive tall . TriangleWidth vil være negativ hvis det andre punktet er til venstre for det første punktet, og TriangleHeight vil være negativ hvis det andre punkt er under det første punktet. Dette er et problem fordi du trenger positive tall for beregningene . Bruk ABS -funksjonen til å finne den absolutte verdien av hver distanse : en

TriangleWidth = ABS ( TriangleWidth )

TriangleHeight = ABS ( TriangleHeight )
3

Beregn tangens til vinkelen . Tangenten til en vinkel er lengden på den siden som er motsatt vinkelen dividert med lengden av den side som grenser til den vinkel. Du prøver å finne vinkelen fra det første punktet , som betyr trekanten høyde er motsatt side, og sin base er den tilstøtende side. Dele høyden ved basen : en

DIM Tangent AS SINGLE

Tangent = TriangleHeight /TriangleWidth
4

Beregn vinkel ved hjelp av ATN funksjonen. ATN -funksjonen ( forkortelse for " arctangent " ) finner den vinkelen som passer en tangent : en

DIM Angle AS SINGLE

Angle = ATN ( Tangent )
5

Konverter vinkelen fra radianer til grader. ATN -funksjonen returnerer en vinkel i radianer . ( Pi radianer lik en halv sirkel , eller 180 grader. ) For å konvertere radianer til grader , multipliseres med 180 og dividere med pi:

Angle = Vinkel * 180 /3.14159