home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Flop Magazin 31
/
Flop_Magazin_31_1994_05_Raster_cs_Side_A.atr
/
res30c.c
< prev
next >
Wrap
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();¢$)¢