CALCUL DE FACTORIELLES

//Partie du code source :
char*factor(ULONG N,char*s)
{
	ULONG n,p,r,tail;
	tail=n=*s=1;
	while(++n<=N)
	{
		for(p=r=0;p<tail;p++)
		{
			r+=n*(UCHAR)s[p];
			s[p]=(char)(r%10);
			r/=10;
		}
		while(r)
		{
			s[tail++]=(char)(r%10);
			r/=10;
		}
	}
	s[tail--]=0;
	r=tail>>1;
	for(n=0;n<=r;n++)
	{
		p=s[n]+'0';
		s[n]=(char)(s[tail]+'0');
		s[tail--]=(char)p;
	}
	return s;
}

Télécharger le zip