Помогите с программой в Delphi

[Ruver000]

В общем нужно создать программу , которая умела бы переводить числа из одной системы счисления в другую. Заранее благодарен.

[kommunist]

http://www.programmersforum.ru/showthread.php?t=7685
или вот
http://http://www.programmersclub.ru/inttohex

[Ruver000]

Мне нужно сделать программу переводящую число из десятичной в любую другую(нами выбранную) Сист.Счисл.

[kommunist]

Вот... Переводит из любой в любую, учитывает дробную часть

program notation;

{$APPTYPE CONSOLE}

uses
  SysUtils,Windows;

Var
  st:Set of Char;

Function F(a,b:Integer):Integer;
Var
  i:Integer;
Begin
Result:=a;

  For i:=1 To b-1 Do
    Result:=Result*a;

  IF b=0 Then Result:=1;

End;

Function ConvertDec(n:ShortString; q:Integer):Integer;
Var
  p,j,i:Integer;
Begin
j:=Length(n)-1;
Result:=0;

  For i:=1 To Length(n) Do
    Begin

        IF n[i] in [#48..#58] Then
          Begin
            Result:=Result+F(q,j)*StrToInt(n[i]);
            Dec(j);
          End

                               Else
            IF n[i] in st Then
          Begin
            Result:=Result+F(q,j)*(Ord(n[i])-55);
            Dec(j);
          End

    End;
End;

Function ConvertSS(d,q:Integer):ShortString;
Begin
Result:='';

  While d<>0 Do
    Begin

        IF d mod q>9 Then
          Result:=Chr(d mod q+55)+Result
                     Else
          Result:=IntToStr(d mod q)+Result;

      d:=d div q;
    End;
End;

Function ConvertEx(n:Extended; acc,q:Integer):ShortString;
Begin
Result:=',';

  IF acc=0 Then
    Begin
      Result:=Result+'0';
      Exit;
    End;

  While Length(Result)<acc+1 Do
    Begin
      n:=n*q;
      Result:=Result+IntToStr(Trunc(n));
      n:=n-Trunc(n);
    End;

End;

Var
  eps,i,tmp,qin,qout:Integer;
  t,nin:ShortString;
  buf:_Input_Record;
  n:Cardinal;
  r:Extended;
Label cont;
begin
st:=['A'..'Z','a'..'z'];
cont:
eps:=0;
WriteLn('Input data{');
WriteLn;
Write('Enter N: ');
ReadLn(nin);
Write('Enter Q: ');
ReadLn(qin);
Write('Enter Q: ');
ReadLn(qout);

  IF Pos(',',nin)<>0 Then
    Begin
      Write('Enter accuracy: ');
      ReadLn(eps);
      t:='0,'+IntToStr(ConvertDec(Copy(nin,Pos(',',nin)+1,Length(nin)),qin));
      r:=StrToFloat(t);
    End;

WriteLn('}');
WriteLn('Output data{');
Write('N=');

  IF qin=qout Then Write(nin)
              Else
                Begin
    IF eps<>0 Then tmp:=ConvertDec(Copy(nin,1,Pos(',',nin)-1),qin)
              Else tmp:=ConvertDec(nin,qin);
      Write(ConvertSS(tmp,qout)+ConvertEx(r,eps,qout));
                End;

WriteLn;
WriteLn('}');
WriteLn('Press ''q'' for quit or ''enter'' for continue...');
WriteLn;

  Repeat
    ReadConsoleInput(GetStdHandle(STD_INPUT_HANDLE),buf,1,n);

      Case buf.Event.KeyEvent.AsciiChar of
        #81,#113:Break;
        #13:GoTo cont;
      End;

  Until False;
end.

[Ruver000]

Спасибо большое

[monkbeer]

Куда деваются мои сообщения!!!!!!!?????