перевести числа с одной системы счисления в другую

[Informer]

Кому не тяжело, напишите программку для перевода чисел с одной системы счисления в другую до 16ричной, заранее большое спасибо

[SalasAndriy]

Доброго времени суток! Попробуй калькулятором в Windows переводить. Мне конечно не влом её написать но все же калькулятор штука по удобнее. Я сам пользуюсь.

Там просто пишеш число, а потом слева есть кнопки ("Hex" - шестнадцатеричная система счисления, "Dec" - десятичная, "Oct" - восьмеричная, "Bin" - доичная). Только "Вид" должен быть настроен как
"Инженерный". Буду рад если чем-то помог!

[Informer]

мне просто нужен сам текст программы, это для курсовой)

[Vasya]

вот пример процедуры для перевода из 16-й в любую другую систему счисления:

  function BaseConvert(NumIn: string; BaseIn: Byte; BaseOut: Byte): string;
var
  i: integer;
  currentCharacter: char;
  CharacterValue: Integer;
  PlaceValue: Integer;
  RunningTotal: Double;
  Remainder: Double;
  BaseOutDouble: Double;
  NumInCaps: string;  
  s: string;  
begin
  if (NumIn = '') or (BaseIn < 2) or (BaseIn > 36) or (BaseOut < 1) or (BaseOut > 36) then  
  begin  
    Result := 'Error';
    Exit;  
  end;  

  NumInCaps    := UpperCase(NumIn);  
  PlaceValue   := Length(NumInCaps);  
  RunningTotal := 0;

  for i := 1 to Length(NumInCaps) do  
  begin
    PlaceValue       := PlaceValue - 1;  
    CurrentCharacter := NumInCaps[i];  
    CharacterValue   := 0;
    if (Ord(CurrentCharacter) > 64) and (Ord(CurrentCharacter) < 91) then  
      CharacterValue := Ord(CurrentCharacter) - 55;  

    if CharacterValue = 0 then  
      if (Ord(CurrentCharacter) < 48) or (Ord(CurrentCharacter) > 57) then  
      begin
        BaseConvert := 'Error';  
        Exit;  
      end
      else  
        CharacterValue := Ord(CurrentCharacter);  

    if (CharacterValue < 0) or (CharacterValue > BaseIn - 1) then  
    begin  
      BaseConvert := 'Error';
      Exit;  
    end;  
    RunningTotal := RunningTotal + CharacterValue * (Power(BaseIn, PlaceValue));
  end;  

  while RunningTotal > 0 do
  begin
    BaseOutDouble := BaseOut;
    Remainder     := RunningTotal - (int(RunningTotal / BaseOutDouble) * BaseOutDouble);
    RunningTotal  := (RunningTotal - Remainder) / BaseOut;

    if Remainder >= 10 then
      CurrentCharacter := Chr(Trunc(Remainder + 55))
    else
    begin  
      s := IntToStr(trunc(remainder));
      CurrentCharacter := s[Length(s)];  
    end;  
    Result := CurrentCharacter + Result;
  end;  
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    Label1.Caption:=BaseConvert('A', 16, 2);
end;
взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php