{ Calcul du cosinus et du sinus d'un angle    }
{ donne en degres                             }

action calculCosinusEtSinus(-> reel angle,reel cosinus ->,reel sinus ->)
  reel a
  a <- angle*3.1415926535897932/180.0
  cosinus <- cos(a)
  sinus <- sin(a)
fin action