<p class="Head1"><help:link Id="66601">Funkce Cos [Runtime]</help:link></p>
<p class="Paragraph">Vypočítá kosinus úhlu. Úhel se zadává v radiánech. Výsledek je v rozsahu -1 až 1.</p>
</help:to-be-embedded>
<p class="Paragraph">Na základě úhlu Alfa vypočítá funkce Cos v pravoúhlém trojúhelníku poměr délky přilehlé odvěsny k délce přepony.</p>
<p class="Paragraph">Číslo: Číselný výraz určující úhel v radiánech, pro který se má vypočítat kosinus.</p>
<p class="Paragraph">Stupně lze převést na radiány vynásobením hodnoty ve stupních hodnotou Pi/180. Radiány lze převést na stupně vynásobením hodnoty v radiánech hodnotou 180/Pi.</p>
<p class="Paragraph">hodnota ve stupních=(hodnota v radiánech*180)/Pi</p>
<p class="Paragraph">hodnota radiánech=(hodnota ve stupních*Pi)/180</p>
<p class="Paragraph">Pi je kružnicová konstanta a její hodnota je 3,1415926535... .</p>
<p class="P2">Příklad:</p>
<p class="PropText">REM The following example allows for a right-angled triangle the input of</p>
<p class="PropText">REM secant and angle (in degrees) and calculates the length of the hypotenuse:</p>
<p class="PropText">Sub ExampleCosinus</p>
<p class="PropText">REM Pi = 3.1415926</p>
<p class="PropText">Dim d1 as Double, dAngle as Double</p>
<p class="PropText">d1 = InputBox$ ("Enter the length of the adjacent side: ","Adjacent")</p>
<p class="PropText">dAngle = InputBox$ ("Enter the angle Alpha (in degrees): ","Alpha")</p>
<p class="PropText">Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))</p>