/****************************/
/* soubor FUNKCE.C					*/
/* vyzaduje soubor FUNKCE.H	*/
/* definuje funkce:					*/
/*	- fact()								*/
/*	- fib()									*/
/****************************/


#include "funkce.h"

double fact(int n)
/***********************/
/* vypocte n faktorial */
/* pro n < 0 vrati -1	 */
/***********************/
{
 double f = 1.0L;
 for ( ; n > 0; n--)
	 f *= n;
 return f;
} /* double fact(int n) */

long fib(long n)
/******************************/
/* vrati hodnotu n-teho clenu	*/
/* Fibbonaciho posloupnosti		*/
/******************************/
{
 if (n == 1)
	 return 1;
 else if (n == 2)
	 return 2;
 else
	 return fib(n - 1) + fib(n - 2);
} /* long fib(long n) */