Pascal. перевод из десятичной системы счисления в двоичную

[Xeon332]

Возник вопрос при написании программы, которая переводила бы десятичную СС в двоичную. Подскажите каким оператором лучше работать? При каждом шаге число нужно делить на 2, и после того, как само число будет меньше двух, то использовать if? Если можно распишите пожалуста. Спасиб

[rpy3uH]

Вот этот код должен работать на паскале

function ItoS(val:integer):string;
var
  _r:string;
begin
  Str(val,_r);
  ItoS:=_r;
end;

function ConvertToCS(val:integer;CS:integer):string;
var
  _r,_r1:string;
  _m,i:integer;
begin
  _r:='';
  if CS>16 then exit;
  repeat
   _m:=val mod CS;
   val:=val div CS;
   if _m<10 then
    _r:=_r+ItoS(_m)
            else
    _r:=_r+chr(ord('A')+_m-10);
  until val=0;

  _r1:='';
  for i:=length(_r) downto 1 do
   _r1:=_r1+_r[i];
  ConvertToCS:=_r1;
end;

ConvertToCS функция преобразовывает число в ЛЮБУЮ систему счисления 2-16, хоть в четырнадцатеричную! система счисления указывается вторым параметром.
например

 writeln(ConvertToCS(78965,14));
 writeln(ConvertToCS(454,8));

[Xeon332]

Спасибо большое. Буду разбираться.

[k0tone]

Можно ещё вот-так:

program test;
uses crt;
var b:array [1..255] of integer;
    a,i,n:integer;
begin
clrscr;
write('Vvedite a=');
readln(a);
i:=0;
while a>=1 do
  begin
    i:=i+1;
    b[i]:=a mod 2;
    a:=a div 2;
  end;
n:=i;
for i:=n downto 1 do
write(b[i]:3);
readln;
end.