работа с функциями. Delphi

[Allllex]

Написать функцию, которая переводит заданное натуральное число в m-ичную систему счисления. Значение m задаётся при вызове функции(m=2,3,8,16). Результат возвращается в виде строки, содержащей m-ичное представление числа. Привести пример вызова функции.

[Вадим Мошев]

В помощь: http://www.programmersforum.ru/showp...4&postcount=36

[min@y™]

есть такая функция. в RxLib.

[GRYZZY]

const  cifry:string='0123456789ABCDEF';
var c:byte;
    chislo:integer;
    osnovanie:byte;
    otvet:string;
begin

write('chislo CC 10 = ');
readln(chislo);
repeat
write('osnovanie CC  2 - 16 = ');
readLn(osnovanie);
until osnovanie in [2..16];
otvet:='';
while chislo>osnovanie do
 begin
    otvet:=cifry[(chislo mod osnovanie)+1] + otvet;
    chislo:=chislo div osnovanie;
 end;
if chislo=osnovanie then otvet:=cifry[chislo] + otvet
else otvet:=cifry[chislo + 1] + otvet;
write('otvet ',otvet);
readln
end.