Function Dec2Hex (num: Word): String;
var
remainder: word;
c: char;
begin
result := '';
while num <> 0 do
begin
remainder := num mod 16;
num := num div 16; { или num := num shr 4 }
if remainder < 10 then
c := chr (remainder + ord ('0'))
else
c := chr (remainder + ord ('A') - 10);
result := c + result;
end;
Dec2Hex := '$' + result
end;
Function Dec2Bin (num: word): String;
var
remainder: word;
c: char;
begin
result := '';
while num <> 0 do
begin
remainder := num mod 2;
num := num div 2; { или num := num shr 1 }
c := chr (remainder + ord ('0'));
result := c + result;
end;
Dec2Bin := result
end;
Function Dec2Hex (num: Word): String;
var
remainder: word;
c: char;
begin
result := '';
while num <> 0 do
begin
remainder := num mod 16;
num := num div 16; { или num := num shr 4 }
if remainder < 10 then
c := chr (remainder + ord ('0'))
else
c := chr (remainder + ord ('A') - 10);
result := c + result;
end;
Dec2Hex := '$' + result
end;
Function Dec2Bin (num: word): String;
var
remainder: word;
c: char;
begin
result := '';
while num <> 0 do
begin
remainder := num mod 2;
num := num div 2; { или num := num shr 1 }
c := chr (remainder + ord ('0'));
result := c + result;
end;
Dec2Bin := result
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.