Курсовая работа: Системы счисления и коды

val(Ch,value,code);

StrToVal:=value;

end;

function ValToStr(val:byte):Char;

var ch:string;

begin

Str(val,ch);

ValToStr:=ch[1];

end;

{Перевод из десятичной в 2-16 систему счисления}

function DecToBase(Decimal: LongInt; const Base: Byte): String;

const

Symbols: String[16] = ’0123456789ABCDEF’;

var

scratch: String;

remainder: Byte;

temp:byte;

begin

{инверсия числа если знак его "-"}

if Decimal<0 then Decimal:=(256-abs(Decimal));

scratch := ’’;

repeat

remainder := Decimal mod Base; {остатокотделения}

scratch := Symbols[remainder + 1] + scratch;

{символ соотв. остатку}

Decimal := Decimal div Base;

{собс-но деление}

until ( Decimal = 0 );

DecToBase := scratch;