Практикум по решению задач на ЭВМ. Тарова И.Н - 64 стр.

                              Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.



5) Дано натуральное число n. Преобразовать число n в систему с основа-
нием j (j<10).

   program num_to_str2(input,output);
   uses CRT;
   var N:longint;k1,j:integer;
   function num_to_str (num:longint;k,j:integer):string;
   var Q,r:longint;b:string[1];a:string[33];
   begin
      Q:=num;
      k:=0;{счетчик количества цифр в преобразованном числе}
      a:='';{начальное значение строки-пусто}
      while Q<>0 do
      begin
         r:=Q mod j;{нахождение очередного остатка}
str(r,b);{преобразование числа в строковый формат}
a:=b+a;{подключение символа к строке результата}
Q:=Q div j;{частное от целочисленного деления исходного числа на 2}
         k:=k+1;
      end;
      writeln('длина числа в новом формате = ',k);
      write('новая запись числа с основанием ',j,': ');
      num_to_str:=a;
   end;
   begin
      clrscr;
      write('Введите числа N: ');
      readln(N);
write('Введите новое основание j данного числа N: ');
      readln(j);
      writeln;
      writeln(num_to_str(N,k1,j));
      readln;
   end.




                   Представление натурального числа
                    в смешанной системе счисления


                                   64