Section courante

A propos

Section administrative du site

SIN

 Sinus
Visual Basic

Syntaxe

Function SIN(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 le «Sinus».

Algorithme

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)

Exemple

Voici un exemple permet d'afficher les Sinus 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 & "Sin(" & I & ")=" & sin(I) & vbCrLf
  8.   I = I + 0.1
  9.  WEND 
  10.  MsgBox S
  11. End Sub

on obtiendra le résultat suivant :

Sin(0)=0
Sin(0.1)=0.09983341664682815
Sin(0.2)=0.19866933079506122
Sin(0.3)=0.2955202066613396
Sin(0.4)=0.3894183423086505
Sin(0.5)=0.479425538604203
Sin(0.6)=0.5646424733950354
Sin(0.7)=0.644217687237691
Sin(0.8)=0.7173560908995227
Sin(0.9)=0.7833269096274833
Sin(1.0)=0.8414709848078964
Sin(1.1)=0.8912073600614353
Sin(1.2)=0.9320390859672263
Sin(1.3)=0.963558185417193
Sin(1.4)=0.9854497299884603
Sin(1.5)=0.9974949866040544
Sin(1.6)=0.9995736030415051
Sin(1.7)=0.9916648104524686
Sin(1.8)=0.973847630878195
Sin(1.9)=0.9463000876874142
Sin(2.0)=0.9092974268256815
Sin(2.1)=0.8632093666488735
Sin(2.2)=0.8084964038195899
Sin(2.3)=0.7457052121767197
Sin(2.4)=0.6754631805511503
Sin(2.5)=0.5984721441039558
Sin(2.6)=0.5155013718214634
Sin(2.7)=0.42737988023382895
Sin(2.8)=0.33498815015590383
Sin(2.9)=0.23924932921398112
Sin(3.0)=0.1411200080598659
Sin(3.1)=0.04158066243328916

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