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

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


   Лабораторная работа № 17
                Системы счисления перевод целых чисел
                      из одной системы в другую
1) Получить последовательность d k , d k −1 ,..., d 0 десятичных цифр числа 2200,
т.е. целочисленную последовательность, в которой каждый член di удов-
летворяет условию 0 ≤ d i ≤ 9 и, дополнительно,
d k ⋅10 k + d k −1 ⋅10 k −1 + ... + d 0 ⋅10 0 = 2 200 .

2) Получить последовательность d k , d k −1 ,..., d 0 десятичных цифр числа
100!, т.е. целочисленную последовательность, в которой каждый член di
удовлетворяет          условию        0 ≤ d i ≤ 9 и,          дополнительно,
d k ⋅ 10 k + d k −1 ⋅ 10 k −1 + ... + d 0 ⋅ 10 0 = 100!.

3) Получить последовательность d k , d k −1 ,..., d 0 десятичных цифр чисел
100!+2100 и 100!-2100, т.е. целочисленную последовательность, в которой
каждый член di удовлетворяет условию 0 ≤ d i ≤ 9 и, дополнительно,
d k ⋅ 10 k + d k −1 ⋅ 10 k −1 + ... + d 0 ⋅ 10 0 = 100!+2100                                 или
d k ⋅ 10 k + d k −1 ⋅ 10 k −1 + ... + d 0 ⋅ 10 0 = 100!−2100 .

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


                                                     62