Delphi - Разъясните код программы, пожалуйста.

[Pulemetic]

Есть две функции перевода чисел из десятичной системы счисления в двоичную и из десятичной в шестнадцатеричную.

Мне не понятен сам код программы, объясните какими действиями что мы делаем.

Код программы писал не я, увы





function DEC2BIN(DEC: LONGINT): string;



var

BIN: string;

I, J: LONGINT;



begin

if DEC = 0 then

BIN := '0'

else

begin

BIN := '';

I := 0;

while (1 shl (I + 1))

[ferget]

тут используются битовые операции



но если не понятно, то не используйте этот код, лучше нагуглите примеры с mod и div

[lxa85]

Да, и в прям витиеватый код.

Pulemetic, Надо идти по шагам, отслеживая изменения переменных. Если лень, то вариант предложенный fergetом:
Цитата ferget:



если не понятно, то не используйте этот код, лучше нагуглите примеры с mod и div

Delphi - Разъясните код программы, пожалуйста.