Двоичное число в виде строки

program mybinstrfunc;

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************

var
  Num : DWORD;
  Str : ShortString;

//****************************************************************
// ФУНКЦИИ И ПРОЦЕДУРЫ
//****************************************************************

//****************************************************************
// Преобразует десятичное число в строку с двоичным представлением числа
// ВХОД:  Val - число, Num - количество символов в строке
// ВЫХОД: строка с двоичным представлением числа Val, или
//        пустая строка, если в параметре Num указано значение более 32
//        этим  функция отличается от стандартной BinStr
//****************************************************************
function MyBinStr(Val : DWORD; Cnt : byte) : ShortString;
var i, n  : DWORD;
    sval  : ShortString;
begin
  Result := '';
  if Cnt > 32 then  //Если указано слишком большое число символов,
    Exit;           //то выйти из функции
  i := 1;
  n := 0;
  sval := '';
  while n < Cnt do  //Перебираем разряды в цикле,
    begin           //начиная с младшего (справа налево)
      Inc(n);
      if (Val and i) = i then //Если в разряде 1
        sval := '1' + sval
      else                    //Если в разряде 0
        sval := '0' + sval;
      i := i * 2;   //Перейти к следующему разряду
    end;
  Result := sval;
end;

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************

begin
  //Проверяем работу функции MyBinStr
  for Num := 0 to 15 do
    begin
      Str := MyBinStr(Num, 4);
      WriteLn(Num, '(DEC) = ', Str, '(BIN)');
    end;

  //Сравниваем со стандартной функцией BinStr
  Num := 987654321;
  Str := MyBinStr(Num, 33);
  if Str = '' then
    WriteLn('ERROR: Too large a value of the second parameter!')
  else
    WriteLn(Num, '(DEC) = ', Str, '(BIN)');
  //Функция BinStr не проверяет значение параметра Cnt, поэтому
  //выведет столько знаков, сколько указано,
  //заполнив лишние старшие разряды нулями
  WriteLn(Num, '(DEC) = ', BinStr(Num, 34), '(BIN)');

  WriteLn('The end. Press ENTER...');
  ReadLn;
end.

#include <cstdlib>
#include <iostream>

using namespace std;

unsigned long int Num;
string Str; 

//****************************************************************
// Преобразует десятичное число в строку с двоичным представлением числа
// ВХОД:  Val - число, Num - количество символов в строке
// ВЫХОД: строка с двоичным представлением числа Val, или
//        пустая строка, если в параметре Num указано значение более 32
//        этим  функция отличается от стандартной BinStr
//****************************************************************
string MyBinStr(unsigned long int Val, char Cnt)
{
  unsigned long int i = 1, n = 0;
  string sval = "";

  if (Cnt > 32)        //Если указано слишком большое число символов, 
     return(sval);     //то выйти из функции
  while (n < Cnt)
  {
    n++;
    if ((Val & i) == i)
      sval = '1' + sval;
    else
      sval = '0' + sval;
    i = i * 2;
  }
  return(sval);
}       

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
int main(int argc, char *argv[])
{
  for (Num = 0; Num < 16; Num++)
  {
    Str = MyBinStr(Num, 4); 
    cout << Num << "(DEC) = " << Str << "(BIN)" << endl;
  }

   Num = 987654321;
   Str = MyBinStr(Num, 32);
   if (Str == "") 
     cout << "ERROR: Too large a value of the second parameter!" << endl;
   else
     cout << Num << "(DEC) = " << Str << "(BIN)" << endl; 
  
  system("PAUSE");
  return EXIT_SUCCESS;
}