X
تبلیغات
زولا

چند نمونه از تبدیل مبنای اعداد در دلفی

1386/10/13 ساعت 12:21

تغییر مبنای یک عدد از مبنای هشت به Integer

function OctToInt(Value: string): Longint;

var

    i: Integer;

    int: Integer;

begin

int := 0;

for i := 1 to Length(Value) do

begin

int := int * 8 + StrToInt(Copy(Value, i, 1));

end;

Result := int;

end;

 

تغییر مبنای یک عدد Integer به مبنای هشت

function IntToOct(Value: Longint; digits: Integer): string;

var

    rest: Longint;

    oct: string;

    i: Integer;

begin

oct := '';

while Value <> 0 do

begin

rest := Value mod 8;

Value := Value div 8;

oct := IntToStr(rest) + oct;

end;

for i := Length(oct) + 1 to digits do

oct := '0' + oct;

Result := oct;

end;

 

تبدیل یک عدد هگزادسیمال به باینری

function HexToBin(Hexadecimal: string): string;

const                                                        

    BCD: array [0..15] of string = ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111','1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');

var

    i: integer;

begin

    for i := Length(Hexadecimal) downto 1 do

    Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;

end;

نظرات (0)
برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)

نام :
ایمیل :
وب/وبلاگ :
ایمیل شما بعد از ثبت نمایش داده نخواهد شد