double fattoriale(int n){ /* parametro formale n */
       int i;
       double f;
       f=1;
       for (i=1;i<=n;i++)
          f*=i;
       return f;
}  /* fattoriale */