{ Calcul de la puissance entiere d'un reel          }
{ Les valeurs a reelle et n entiere sont donnees    }
  
reel fonction puissance(-> reel a,-> entier n)
  reel res
  entier i
  res <- a
  pour i de 1 à n-1 faire
    res <- res*a
  fait
  retourner res
fin fonction

{ Calcul de n!                                      }
{ La valeur n entiere est donnee                    }
  
entier fonction factoriel(-> entier n)
  entier fct
  entier i
  fct <- 1
  pour i de 2 à n faire
    fct <- fct*i
  fait
  retourner fct
fin fonction

{ Calcul de la valeur de sin(a) au voisinage de 0.0 }
{ Utilisation du developpement limite               }
{ Les valeurs a et n sont donnees                   }

reel fonction sinus(-> reel a,-> entier n)
  reel sn
  reel signe
  entier i
  signe <- -1.0
  sn <- a
  pour i de 3 à n pas 2 faire
    sn <- sn + puissance(a,i)/factoriel(i)
    signe <- -signe
  fait
  retourner sn
fin fonction