Flop Magazin 33/Flop_Magazin_33_1995_01_Raster_cs_Side_A.atr/faktoria.c

Text File | 2023-02-26 | 900b | 1 lines

/* faktorial cisla */¢¢main()¢do $(¢ printf("\n\nVypocet faktorialu");¢ faktorial();¢ printf("\n\npro ukonceni stiskni Q \n");¢$) while(getchar()!='Q');¢¢¢faktorial()¢$(¢int a,b,d,i,j,k;¢char v[200];¢¢printf("\n\nFaktorial cisla");¢¢/* vstup cisla */¢do $(¢ printf("\n\nvloz cislo n (1-100):  ");¢ gets(v);¢ a=val(v);¢ printf("\n\ncislo:  %d",a);¢$) while((a<1) || (a>100)); ¢¢   /* prvotni nastaveni pro vypocet */¢clear(v,200);v[0]=1;i=1;¢¢  /* zahajeni vypoctu */¢¢ for (j=2;j<=a;j++)¢ $(d=0;¢¢  /* nasobeni ulozeneho cisla */¢¢  for (k=0;k<i;k++)¢  $(b=v[k]*j+d;¢    d=b/10;¢    v[k]=b%10;¢  $)¢¢  /* ulozeni prenosu */¢¢  for (;(b=d%10) > 0;i++)¢  $(v[i]=b;¢    d=d/10;¢  $)¢¢  /* zahadne prodlouzeni cisla */¢     i++;¢ $)¢¢/* zruseni neplatne nuly na zacatku */¢if (i>1)¢  i--;¢¢printf("\n\ndelka faktorialu %d! : %d\n",a,i);¢¢/* tisk vysledku */¢¢for (j=i-1;j>=0;j--)¢ printf("%d",v[j]);¢¢$)¢