Flop Magazin 31/Flop_Magazin_31_1994_05_Raster_cs_Side_A.atr/res30c.c

Text File | 2023-02-26 | 2KB | 1 lines

/* hlavolam z c.30 */¢¢main()¢$(¢int a[12],b[12],i,j,m,n,k,p,o;¢printf("\n       HLAVOLAM 30\n");¢printf("\n   algoritmus  -  J.Walla");¢printf("\n   \"C\" verze   -  Z.Burian");¢printf("\n   START  -  stopni cas\n\n");¢¢ for(i=2;i<=8;i+=2)¢ $(p=10-i;¢   if((i+2)>p)¢      p=i+2;¢   for(j=p;j<=10;j+=2)¢     for(k=(10-i);k<=11;k++)¢     $( if(k==i)¢          continue;¢        if(k==j)¢          continue;¢        for(n=1;n<=11;n++)¢          b[n]=0;¢       /* vlastni vypocet */¢        a[1]=i;b[a[1]]=1;¢        a[3]=j;b[a[3]]=1;¢        a[5]=k;b[a[5]]=1;¢¢        a[2]=21-a[1]-a[3];¢        if(a[2]<1|a[2]>11)¢          continue;¢        if(b[a[2]]==1)¢          continue;¢        b[a[2]]=1;¢¢        a[9]=21-a[1]-a[5];¢        if(a[9]<1|a[9]>11)¢          continue;¢        if(b[a[9]]==1)¢          continue;¢        b[a[9]]=1;¢¢        a[6]=21-a[9]-a[3];¢        if(a[6]<1|a[6]>11)¢          continue;¢        if(b[a[6]]==1)¢          continue;¢        b[a[6]]=1;¢¢        a[7]=21-a[3]-a[5];¢        if(a[7]<1|a[7]>11)¢          continue;¢        if(b[a[7]]==1)¢          continue;¢        b[a[7]]=1;¢¢        a[4]=21-a[1]-a[7];¢        if(a[4]<1|a[4]>11)¢          continue;¢        if(b[a[4]]==1)¢          continue;¢        b[a[4]]=1;¢¢        a[8]=21-a[7]-a[9];¢        if(a[8]<1|a[8]>11)¢          continue;¢        if(b[a[8]]==1)¢          continue;¢        b[a[8]]=1;¢      /* 9 cisel je o.k. */¢¢        o=0;p=10;¢        for(n=1;n<=11;n++)¢          if(b[n]==0)¢           $(o=o+n;¢             a[p]=n;¢             p=p+1;¢           $)¢¢ if(a[1]+o==21|a[3]+o==21|a[7]+o==21|a[9]+o==21)¢ $(¢printf("\n\t%d\t%d\t%d\n",a[1],a[2],a[3]);¢printf("\n\t%d\t%d\t%d\n",a[4],a[5],a[6]);¢printf("\n\t%d\t%d\t%d\n",a[7],a[8],a[9]);¢printf("\n\n\t%d\t%d\n",a[10],a[11]);¢$)¢    else¢     continue;¢  $)¢ $)¢printf("\nhotovo !!!!!!");¢printf("\nodklepni pro navrat do systemu");¢o=getchar();¢o=getchar();¢$)¢