Flop Magazin 37/Flop_Magazin_37_1995_05_Raster_cs_Side_A.atr/part1.c

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

/* NERVY - PART1.C */¢extern int mati[10][10];¢extern char cisla[200][2][11];¢extern int mat,cisl;/* pointery na soubory */¢¢pauza()¢{¢ char a[200];¢ printf("\nMala pauza - stiskni RETURN\n");¢ gets(a);¢}¢¢menu()¢{ char s[100],c;¢  printf("\n\tV - vlastni vypocet\n");¢  printf("\n\tM - zapis matice\n");¢  printf("\n\tR - zapis RC\n");¢  printf("\n\tN - vypis tabulky mescu\n");¢  printf("\n\n\tQ - navrat\n");¢  gets(s);¢  c = s[0];¢  return(c);¢}¢¢/* -  vlastni operace - */¢kalk()¢{char a[400],b[11];¢ int i,y,d,f,f1,z;¢ printf("\n\tZadej sve RC\n\t:");¢ gets(a);¢ for(d=0;a[d] != '\0';d++)¢      ;¢ if(d>10||d<9)¢ { printf("\n\tSpatna delka RC!\n");¢   return;¢ }¢ if(d==9)/* mozno napsat jako aritmetickou operaci*/¢   z=0;¢ else¢   z=1;¢¢ for(y=0,f1=0;y<100;y++)¢ { f=0;¢   strcpy(b,&cisla[y][z][0]);¢   if(d==10)¢   { b[9] = '0';¢     b[10] = 0;¢   }¢¢   for(i=0;i<10;i++)¢    {¢      if(a[i]==b[i])¢         break;¢      else¢         f=f+(mati[b[i]-'0'][i]);¢    }¢¢   if(i==10)¢     if(f1 < f)¢     { f1 = f;¢       printf("\n Cislo:%s\tSoucet: %d\n",b,f1);¢     }¢¢   if(d==10)¢   {¢    for(i=8;i>5;i--)¢      b[i+1] = b[i];¢    b[6] = '0';¢    f=0;¢    for(i=0;i<10;i++)¢     {¢      if(a[i]==b[i])¢       {/*printf("\tSouhlasna cislice\n");*/¢        break;¢       }¢      else¢        f=f+(mati[b[i]-'0'][i]);¢     }¢    if(i==10)¢      if(f1 < f)¢      { f1 = f;¢        printf("\nCislo (nula na 7. pozici):%s\n\tSoucet: %d\n",b,f1);¢      }¢¢    for(i=6;i>0;i--)¢      b[i] = b[i-1];¢    b[0] = '0';¢    f=0;¢    for(i=0;i<10;i++)¢    {¢      if(a[i]==b[i])¢      { /*printf("\tSouhlasna cislice  ");*/¢       break;¢      }¢      else¢        f=f+(mati[b[i]-'0'][i]);¢    }¢¢    if(i==10)¢      if(f1 < f)¢       { f1 = f;¢         printf("\nCislo (nula na 1. pozici):%s\n\tSoucet: %d\n",b,f1);¢       }¢  }¢ }¢¢/* printf("\n%s\ts indexy:%s\tzadano:%s\n",b,&cisla[y-1][z][0],a);¢*/¢ printf("\n\n");¢¢ if(d==9)¢ { a[9] = '0';¢   a[10] = 0;¢ }¢¢ for(i=0,f=0;i<10;i++)¢   f=f+(mati[a[i]-'0'][i]);¢¢ printf("Zadano: %s\tvysledek: %d\n",a,f);¢¢ if(d==9)¢  {¢   for(i=8;i>5;i--)¢     a[i+1] = a[i];¢   a[6] = '0';¢   for(i=0,f=0;i<10;i++)¢     f=f+(mati[a[i]-'0'][i]);¢¢   printf("\nZadano (nula na 7. pozici): %s\tvysledek: %d\n",a,f);¢¢   for(i=6;i>0;i--)¢      a[i] = a[i-1];¢   a[0] = '0';¢  ¢   for(i=0,f=0;i<10;i++)¢     f=f+(mati[a[i]-'0'][i]);¢¢   printf("\nZadano (nula na 1. pozici): %s\tvysledek: %d\n",a,f);¢ }¢pauza();¢return;¢}¢