перевод чисел из одной системы счисления в другую

[GAngelika]

Перевод числа из десятичной системы счисления в восьмеричную систему счисления
и
Перевод числа из восьмеричной системы счисления в двоичную систему счисления
в Pascal
помогите пожалуйста,очень нужно..
спасибо)

USES CRT;

function IntToHex(N : integer):string;
{функция IntToHex() преобразует n в строку, 
содержащую шестнадцатеричное представление n}
const
Hex : array[0..15] of char =
'0123456789ABCDEF';
var i, j, k : integer;
Result, s : string;
begin
Result := '';{исходное значение}
k := n;
repeat {цикл определения значения числа в 16-ой системе счисления}
j := k div 16; {целая часть от деления}
i := k mod 16; {остаток}
Result := Result + Hex[i];
k := j;
until j = 0; {останов, осли нечего больше делить}
S := Result;
for i := 1 to Length(Result) do
S[Length(S)-i+1] := Result[i];
IntToHex := S; {возврат результата в основную программу}
end;
var n : integer;

BEGIN {основная программа}

clrscr;
Write('Введите целое десятичное число: ') ;
Readln(n);
Write('Число в шестнадцатеричной системе счисления: ', IntToHex(n), 'h'); {вывод результата}
readln;
END.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
__________
и не пишите несколько сообщений подряд - есть что добавить,
используйте на своём сообщении кнопку "Правка"
Модератор.

[Serge_Bliznykov]

приведённый Вами пример - перевод в шестнадцатеричную СС
зачем Вы чужой код тут привели?

Hint. достаточно изменить в примере 16 на 8 и получите перевод в 8-ную систему...

и ещё, посмотрите внизу страниц "Похожие темы"
там есть то, что Вам надо (да и поиском найдётся множество тем с решением)!

[Stilet]

А я порекомендую заглянуть вот сюда:http://www.delphiworld.narod.ru/base..._calculus.html
Здесь неплохие таки примеры перевода.