Описать функцию, которая возвращает строковое представление целого числа N в двоичной системе счисления - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Описать функцию, которая возвращает строковое представление целого числа N в двоичной системе счисления. Используя эту функцию , получить двоичные представления пяти чисел.

Решение задачи: «Описать функцию, которая возвращает строковое представление целого числа N в двоичной системе счисления»

textual
Листинг программы
Function GetBinNum(A : Longint) : String;
Var
  S : String;
  n : Longint;
Begin
  S:=''; n:=A;
  While n>0 do
  Begin
    S:=Chr(48+(n mod 2))+S;
    n:=n div 2;
  End;
  GetBinNum:=S;
End;
 
Begin
  Writeln(GetBinNum(4));
  Writeln(GetBinNum(6));
  Writeln(GetBinNum(16));
  Writeln(GetBinNum(32));
  Writeln(GetBinNum(64));
End.

Объяснение кода листинга программы

  1. В функции GetBinNum объявлены две переменные: S и n. Переменная S инициализируется пустой строкой, а переменная n инициализируется входным значением A.
  2. Затем начинается цикл While, который выполняется до тех пор, пока n больше нуля.
  3. Внутри цикла в переменную S добавляется символ, соответствующий n в двоичной системе счисления (с помощью функции Chr). Это делается путем преобразования n в строку и добавления символа, соответствующего его первому биту (48 + (n mod 2)), а затем добавления полученной строки к переменной S.
  4. Затем n делится на 2 (с помощью оператора div) и результат присваивается переменной n.
  5. После завершения цикла While значение переменной n становится равным нулю, и функция GetBinNum возвращает значение переменной S.
  6. В основной части кода вызывается функция GetBinNum с четырьмя разными значениями A: 4, 6, 16 и 32.
  7. Выводится результат вызова функции GetBinNum для каждого из этих значений.
  8. Конец программы.

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы