/*
TITOLO: Libreria matematica personale
DESCRIZIONE: Libreria che contiene alcune funzioni matematiche 
scritte appositamente senza richiamare la libreria matematica 
standard <math.h>.
*/

/*
AUTORE: Farinelli Agnese (farinelli.agnese@libero.it)
COPYRIGHT OF: "Elf's Spirit - Thalionwen's Little Home Page"
DESCRIZIONE: Laboratorio di programmazione
*/



/*FATTORIALE*/

int f_fatt(int N)
{

  int fattoriale;
  int k;

  fattoriale=1;
  k=0;

  for(fattoriale=1;N-k>0;k++){
    fattoriale*=N-k;
  }
  return(fattoriale);
}





/*VALORE ASSOLUTO*/

double f_val(double N){

  int k;
  double valoreassoluto;

  if(N==0){
    valoreassoluto=N;
  }

  if(N>0){
    valoreassoluto=N;
  }

  if(N<0){
    k=(-1);
    valoreassoluto=(N*k);
  }
  return(valoreassoluto);
}





/*PI GRECO*/

double f_pi(){
  
  double pi;
  pi=3.141592653589793;

  return(pi);
}






/*POTENZA*/

double f_pot(double N, double A)
{
  double potenza;

  potenza=N*N;
  A-=2;
  for(potenza=potenza;A>0;A--){
    potenza=potenza*N;
  }
  return(potenza);
}