{ Calcul du du sinus d'un angle en degres   }

constante reel PI <- 3.14159

reel fonction sinus(-> réel angle)
  reel sn
  sn <- sin(angle*PI/180.0)
  retourner sn
fin fonction