Cod sursa(job #69255)

Utilizator FlorianFlorian Marcu Florian Data 2 iulie 2007 08:07:33
Problema Patrate2 Scor 80
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.23 kb
#include<stdio.h>
#include<string.h>
FILE*f=fopen("patrate2.in","r");
FILE*g=fopen("patrate2.out","w");
long n,a[5000],p[5000],z[5000];
void inmult(long c[],long k)
        {
        long i,t,x;
        t=0; i=1;
        while(i<=c[0]||t>0)
                {
                t+=c[i]*k;
                c[i]=t%10;
                t=t/10;
                i++;
                }
        c[0]=i-1;
        }

void inmultire(long a[],long b[])
        {
        long j,i,t=0,c;
        for(i=1;i<=a[0];++i)
                for(j=1;j<=b[0];++j)
                        z[i+j-1]+=a[i]*b[j];
        z[0]=a[0]+b[0]-1;
        for(i=1;i<=z[0];++i)
                {
                c=z[i];
                z[i]=(z[i]+t)%10;
                t=(c+t)/10;
                }
        if(t>0) z[++z[0]]=t;
        }
void afisare()
        {
        for(long i=z[0];i>=1;--i) fprintf(g,"%ld",z[i]);
        fprintf(g,"\n");
        }
int main()
        {
        fscanf(f,"%ld",&n);
        long i;
        p[0]=1; p[1]=1;
        for(i=1;i<=n*n;++i)  {inmult(p,2);}
        a[0]=1; a[1]=1;
        for(i=1;i<=n;++i) inmult(a,i);
        inmultire(p,a);
        afisare();
        return 0;
        }