home *** CD-ROM | disk | FTP | other *** search
/ Flop Magazin 30 / Flop_Magazin_30_1994_04_Raster_cs_Side_A.atr / pyramida.c < prev    next >
Text File  |  2023-02-26  |  885b  |  1 lines

  1. /* PYRAMIDA  - pro magazin FLOP */¢¢main()¢$(¢int a[100],i,j,m,n,k,l,o,p,q,r;¢printf("\n       P Y R A M I D A\n");¢printf("\n   algoritmus  -  J.Walla");¢printf("\n   \"C\" verze   -  Z.Burian");¢printf("\n   START  -  stopni cas\n\n");¢¢r=0;¢a[29]=4;a[59]=0;a[89]=3;¢ for(i=0;i<=2;i++)¢  $(j=2-i;¢    for(m=0;m<=4;m++)¢     $(n=4-m;¢       for(k=0;k<=3;k++)¢         for(l=0;l<=3;l++)¢         $(a[19]=i;a[39]=j;a[49]=k;¢           a[69]=l;a[79]=m;a[99]=n;¢           for(o=8;o>=1;o--)¢             for(p=1;p<=o;p++)¢a[p*10+o]=a[p*10+o+1]+a[(p+1)*10+o+1];¢¢if(a[25]==20&&a[45]==20&&a[23]==70&&a[11]==311)¢           $(for(q=1;q<=9;q++)¢              printf("%d  ",a[q*10+9]);¢             printf("\n\n");¢             r++;$)¢         $)¢     $)¢  $)¢printf("\nhotovo !!!!!!");¢printf("\n   nalezeno celkem %d reseni\n",r);¢printf("\nodklepni pro navrat do systemu");¢o=getchar();¢$)¢