Системы Счисления. - Pascal - Ответ 199396

unit Conv;
 
interface
 
var Figures : array[byte] of char;
 
function Num2Str(number:word; base:byte):string;
function ChangeBase(number:string; base_prev,base_next:byte):string;
function Str2Num(number:string; base:byte):word;
 
implementation
 
function Num2Str(number:word; base:byte):string;
var r:string;
begin
r:='';
while number<>0 do
      begin
           r:=Figures[number mod base]+r;
           number:=number div base;
      end;
if r='' then r:='0';
Num2Str:=r;
end;
 
function Str2Num(number:string; base:byte):word;
var r:word; i,a:byte;
begin
r:=0;
for i:=1 to length(number) do
    begin
         a:=0;
         while Figures[a]<>number[i] do inc(a);
         r:=r*10 + a;
    end;
Str2Num:=r;
end;
 
function ChangeBase(number:string; base_prev,base_next:byte):string;
begin
     ChangeBase:=Num2Str(Str2Num(number,base_prev),base_next);
end;
 
var aaa:byte;
begin
for aaa:=0 to 9 do Figures[aaa]:=chr(aaa+48);
Figures[10]:='A';
Figures[11]:='B';
Figures[12]:='C';
Figures[13]:='D';
Figures[14]:='E';
Figures[15]:='F';
end.

program Example;
uses Conv;
var n:byte;
begin
readln(n);
write('> ',ChangeBase(Num2Str(n,10),10,2));
end.