{ Type agrege de stockage du cosinus          }
{ et du sinus d'un angle                      }

structure cosinusEtSinus
  reel cosinus <- 1.0
  reel sinus   <- 0.0
fin structure

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

cosinusEtSinus fonction calculCosinusEtSinus(-> reel angle)
  reel a
  cosinusEtSinus res
  a <- angle*3.1415926535897932/180.0
  res.cosinus <- cos(a)
  res.sinus <- sin(a)
  retourner res
fin fonction