калькулятор перевода чисел в шестнадцатеричную систему счисления

[Zhana]

Верно последнее предположение. Спасибо ребята!!!

[Zhana]

А "0" для чего???

[Zer0]

http://www.delphibasics.ru/IntToHex.php
Это чтобы не вставлять ведущие нули, например
IntToHex(255,0) //FF
IntToHex(255,4) //00FF

[Zhana]

Помогите пожалуйста с описанием функций. В переводе BintoHex я не поняла строки начинающиеся с While, For. А вот с переводом OcttoDec все немного сложнее. Я не понимаю смысла операций по переводу. Помогите понять очень прошу

[Zer0]

BinToHex:

While Length(Bin) mod 4<>0 do Bin:='0'+Bin;

Добивает ведущие нули к числу, чтобы количество знаков было кратно четырем (потому что перевод происходит по четыре бита)

For k:=0 to Length(Bin) div 4 -1 do
   Begin
      s:=Copy(Bin,k*4+1,4);

В этом цикле берем по 4 символа из строки (просто посмотрите как работает функция Copy)

Oct2Dec:

const
  OCTSet: set of CHAR = ['0'..'7'];

Задает возможные цифры для восьмеричной системе (других в числе просто быть не может)
P.S. Надеюсь что Вы знакомы с теорией перевода чисел из одной системы счисления в другую

for J := 1 to Length(OCT) do
  begin
      if not (UpCase(OCT[J]) in OCTSet) then

Циклом проходимся по строке... В первую очередь смотрим, допустима ли текущая цифра, то есть находится ли она в множестве 0..7, если не попадает, то

      Error := True;

и в конце концов результат обнулится:

    if Error then
    OCT2DEC := 0

А вот тут нужно немного поразмыслить, просто я не смогу обяснить:

      DEC := DEC + (Ord(OCT[J]) - 48) shl ((Length(OCT) - J)*3

Shl - побитовый сдвиг числа, т.е.
1 shl 2 = (001 shl 2) = 100 = 4 , бит сдвинули на две позиции вправо
2 shl 3 = (00010 shl 3) = 10000 = 16 итд
В текущем случае, высчитывается цифра (т.к. у нас строка, а не число:
Ord(OCT[J]) - 48
48 - код символа '0', соответственно если его вычесть из кода текущего символа, то получим цифру
а затем получившееся число сдвигаем на нужное кол-во бит влево (длина строки-номер текущего символа умноженное на 3)
В конце это прибавляется к сумме
Для примера
123(oct)
dec = 1 shl (3-1)*3 + 2 shl (3-2)*3 + 3 shl (3-3)*3 = 0000001 shl 6 + 00010 shl 3 + 11 shl 0 =
1000000 + 10000 + 11 = 1010011(bin) = 83(dec)

[Zhana]

Спасибо за такой ответ. И все таки я не поняла, для чего там стоит "-1" и "+1,4"

[Mad_Cat]

Copy(Bin,k*4+1,4) это разные числа ) гляньте описание функции Copy

[Zhana]

Число единица начало копирования 4 - окончание, Bin название строки а k*4?

[Mad_Cat]

Copy(Bin, исходная строка
k*4+1, начало копирования(а не 1 как по вашему мнению)
4) количество символов

[Zhana]

Спасибо Вам!!!