profile="http://gmpg.org/xfn/11"> Перевод чисел из десятичной системы счисления в двоичную, паскаль. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Перевод чисел из десятичной системы счисления в двоичную, паскаль.

Перевод чисел из десятичной системы счисления в двоичную, паскаль.

ПЕРЕВОД ДЕСЯТИЧНОГО ЧИСЛА В ДВОИЧНОЕ
Алгоритм «Перевод десятичного числа в двоичную систему» — заключается в делении десятичного числа на основание 2 (два). А именно целочисленного деления десятичного числа.
Пример:
Число 12 (двенадцать) перевести в двоичную систему счисления.
Первый шаг: 12 div 2 = 6 12 mod 2 = 0
Второй шаг: 6 div 2 = 3 6 mod 2 = 0
Третий шаг: 3 div 2 = 1 3 mod 2 = 1
Теперь выписываем
1 — неполное частное на третьем шаге
1 — остаток от деления на третьем шаге
0 — остаток от деления на втором шаге
0 — остаток от деления на первом шаге
Число в двоичном счислении: 1100

Алгоритм:
Алгоритм - Перевод десятичного числа в двоичную
Алгоритм — Перевод десятичного числа в двоичную.
На рисунке показаны этапы вычисления
Стрелка показывает в каком направлении надо выписывать цифры.

Код:

program Perevod_10_2;

  {Перевод чисел из десятичной системы счисления в двоичную, паскаль}

var
  i_Decimal, i_Temp: integer;
  s_Result, s_Q: string;

begin
  s_Result := '';
  WriteLn('Введите число из десятичной системы: ');
  ReadLn(i_Decimal);
  if i_Decimal = 1 then
    s_Result := '1';
  while i_Decimal > 1 do
  begin
    i_Temp := i_Decimal mod 2;
    i_Decimal := i_Decimal div 2;

    if i_Temp = 1 then
      s_Result := '1' + s_Result;
    if i_Temp = 0 then
      s_Result := '0' + s_Result;
    if i_Decimal = 1 then
      s_Result := '1' + s_Result;
  end;
  WriteLn('Число в двоичной системы: ', s_Result);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();

end.

Результат:
Перевод чисел из десятичной системы счисления в двоичную, паскаль
Перевод чисел из десятичной системы счисления в двоичную, паскаль.

Комментарии запрещены.