Преобразования систем исчисления

[Altera]

Всем привет! есть ли у кого всякие функции преобразования. Ну например из 16-ти в 10-ти ричную систему...
Или из 10-ти в 2-ичную систему исчисления. Пишите...
И кстате, нет ли бинарного типа данных? А то двоичный код в string неудобно, а в integer или real длинный не выходит хранить .
Спасибо заранее!

[SNUPY]

program Project2;   
  
{$APPTYPE CONSOLE}   
  
uses   
  SysUtils;   
  
Const   
    list='0123456789ABSDEF';{Можно продолжить:) }   
  
var Base1, Base2, Number10:Cardinal;   
    FirstNumber:String;   
Function GetFigure(Number:string; index:Cardinal):Byte;   
begin   
  Result:=pos(Number[index],list)-1;   
end;   
  
Function NumberTo10(Number:String; base:Cardinal):Cardinal;   
var   
  i:byte;   
begin   
  Result:=0;   
  For i:=1 to length(Number) do   
  begin   
    Result:=GetFigure(Number,i)*round(Exp((length(Number)-i)*Ln(base)))+Result;   
  end;   
end;   
  
Function Number10ToBase(Number:Cardinal; base:Cardinal):string;   
var   
  S:string;   
  M:Cardinal;   
begin   
  s:='';   
  Result:='';   
  M:=Number;   
  While M>=Base do   
  begin   
    S:=S+List[(M mod base)+1];   
    M:=M div base;   
  end;   
  s:=s+List[M+1];   
  For M:=1 to length(s) do   
  begin   
    Result:=Result+s[length(s)-M+1];   
  end;   
end;   
  
begin   
  Writeln('Система счисления?');   
  Readln(base1);   
  Writeln('число?');   
  Readln(FirstNumber);   
  Writeln('К какую?');   
  Readln(Base2);   
  Write(Number10ToBase(NumberTo10(FirstNumber,base1),base2));   
  Readln;   
end.

[Altera]

Чё эт? консоль?

[BOBAH13]

Я думаю это заметно так как описана деректива

{$APPTYPE CONSOLE}

Если вам это мало чего дает то по инглишу Application Type is Console ( Russian: Приложение типа консоль )

[mihali4]

Эта тема - "Преобразование из одной системы исчисления в другую" уже столько раз поднималась на форуме, что...
Ну просто слов нет, одни матерные...

[Stilet]

а в integer или real длинный не выходит хранить

Так храни его в string только выбирай оттуда побайтно.