Section courante

A propos

Section administrative du site

TAN

 Tangente
Visual Basic

Syntaxe

Function TAN(n As Double) As Double

Paramètres

Nom Description
n Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter

Description

Cette fonction trigonométrique retourne la «Tangente».

Algorithme

MODULE COS(X)
   R ← X x X
   S ← 42.0
   BOUCLE POUR I ← 10 JUSQU'A 1
      S ← 4.0 x I - 2.0 + (-R) / S
   FIN BOUCLE POUR
   S ← S x S
   RETOURNE (S - R) / (S + R)

MODULE SIN(X)
   R ← X x X
   S ← 42.0
   BOUCLE POUR I ← 10 JUSQU'A 1
      S ← 4.0 x I - 2.0 + (-R) / S
   FIN BOUCLE POUR
   RETOURNE 2.0 x X x S / (R + S x S)

MODULE TAN(X)
   RETOURNE SIN(X)/COS(X)

Exemple

Voici un exemple permet d'afficher les tangentes inférieurs à π :

  1. Sub Main()
  2.  Dim I As Double
  3.  Dim S As String
  4.  Const PI=3.141592653589793  
  5.  I = 0
  6.  WHILE I < PI
  7.     S = S & "TAN(" & I & ")=" & tan(I) & vbCrLf
  8.     I = I + 0.1
  9.  WEND 
  10.  MsgBox S
  11. End Sub

on obtiendra le résultat suivant :

TAN(0)=0
TAN(0.1)=0.10033467208545055
TAN(0.2)=0.2027100355086725
TAN(0.3)=0.3093362496096233
TAN(0.4)=0.4227932187381618
TAN(0.5)=0.5463024898437905
TAN(0.6)=0.6841368083416923
TAN(0.7)=0.8422883804630794
TAN(0.8)=1.029638557050364
TAN(0.9)=1.260158217550339
TAN(1.0)=1.5574077246549018
TAN(1.1)=1.9647596572486512
TAN(1.2)=2.5721516221263188
TAN(1.3)=3.6021024479679786
TAN(1.4)=5.797883715482894
TAN(1.5)=14.101419947171763
TAN(1.6)=-34.23253273555705
TAN(1.7)=-7.696602139459134
TAN(1.8)=-4.286261674628054
TAN(1.9)=-2.9270975146777674
TAN(2.0)=-2.1850398632615162
TAN(2.1)=-1.7098465429045056
TAN(2.2)=-1.3738230567687935
TAN(2.3)=-1.1192136417341305
TAN(2.4)=-0.916014289673409
TAN(2.5)=-0.7470222972386589
TAN(2.6)=-0.6015966130897574
TAN(2.7)=-0.47272762910303623
TAN(2.8)=-0.3555298316511746
TAN(2.9)=-0.24640539397196493
TAN(3.0)=-0.14254654307427644
TAN(3.1)=-0.041616654585634565

Dernière mise à jour : Lundi, le 19 novembre 2012