تغيير مبناي يك عدد 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;

 صفحه اصلی | مقالات | سوال و جواب | Downloads | Beeper help | جستجو | تصاویر برنامه ها | تبلیغات | تماس با ما | وبلاگ شخصی
در صورت بروز هر گونه مشكل در استفاده از نرم افزار هاي اين سايت, مشكل را با مدير اين سايت در ميان بگذاريد.

This work is licensed under a Creative Commons Attribution 2.5 License.

آخرين به روز رسانی: آمار بازدید: