/*   p77
     Язык Turbo C 2.0
     Задачник по программированию
     Системы счисления              */

#include <conio.h>
#include <stdio.h>
#include <stdlib.h>
#include <time.h>


main ()
{
   int a [100];   /*   исходный массив данных   */
   int b [100];   /*   промежуточный массив данных в десятичной системе счисления   */
   int c [100];   /*   вспомогательный массив данных   */
   int d [400];   /*   целевой массив данных   */
   int f;         /*   основание первой системы счисления   */
   int g;         /*   основание второй системы счисления   */
   int h;         /*   число цифр исходного числа   */

   int k, l, m, n;

   randomize ();
   f = rand () % 9 + 2;
   g = rand () % 9 + 2;
   h = rand () % 100 + 1;
   for (k = 0; k < 100; k++)  a [k] = b [k] = c [k] = 0;
   for (k = 0; k < 400; k++)  d [k] = 0;
   for (k = 0; k < h; k++)  a [k] = b [k] = rand () % f;

   printf ("Основание первой системы счисления: %i.\n", f);
   printf ("Исходное число:\n");
   for (k = h - 1; k >= 0; k--)  printf ("%i", a [k]);
   printf ("\n");

   for (k = 0; k < h - 1; k++)
   {
      /*   Домножаем на основание системы счисления со сдвигом влево   */
      for (l = 0; l <= k; l++)
         c [h - 2 - l] = b [h - 1 - l] * f;

      /*   Складываем с предыдущим разрядом   */
      c [h - 2 - k] += b [h - 2 - k];

      /*   Переносим десятки в следующий разряд   */
      for (l = k; l >= 0; l--)
      {
         m = c [h - 2 - l];
         c [h - 2 - l] = m % 10;
         c [h - 1 - l] += m / 10;
      }

      /*   Переносим данные вверх   */
      for (l = k; l >= -1; l--)
      {
         b [h - 2 - l] = c [h - 2 - l];
         c [h - 2 - l] = 0;
      }
   }

   printf ("Промежуточное число в десятичной системе счисления:\n");
   for (k = h - 1; k >= 0; k--)  printf ("%i", b [k]);
   printf ("\n");

   n = 0;   /*   указатель в целевом массиве данных на заполняемую ячейку данных   */
   while (1)
   {
      l = 0;   /*   остаток от деления предыдущего разряда   */
      for (k = 0; k < h; k++)
      {
         m = l * 10 + b [h - 1 - k];
         c [h - 1 - k] = m / g;
         l = m % g;
      }

      d [n++] = l;   /*   заносим остаток от деления в целевой массив данных   */
      m = 0;
      for (k = 0; k < h; k++)   /*   переносим результат деления вверх для следующего цикла   */
      {
         b [k] = c [k];
         if (b [k])  m = 1;   /*   флаг наличия ненулевых значений в массиве   */
      }

      if (!m)  break;   /*   расчет окончен   */
   }

   printf ("Основание второй системы счисления: %i.\n", g);
   printf ("Конечное число:\n");
   for (k = n - 1; k >= 0; k--)  printf ("%i", d [k]);
   printf ("\n");

   getch ();
   printf ("\n");
}