рекурсивный перевод чисел, перевод из 10 в любую с.с. Опции

[ЛЬЯНА]

Люди,помогите,пожалуйста!Я уже голову сломала,но никак не могу составить рекурсивный перевод целых чисел из 10 с.с. в любую другую и правильных дробей.Обязательно должна быть рекурсия.А завтра уже нужно сдать.Подскажите!!!!!!!!

[volvo]

ЛЬЯНА
Вот рекурсивная функция перевода чисел из 10-ной с/с в другую... Хотя я по-прежнему не понимаю, зачем здесь рекурсия...

Код

function fromdec(n, radix: longint):string;
const
 digit: string[16]='0123456789ABCDEF';
begin
 if n = 0 then fromdec := ''
 else
   fromdec := fromdec(n div radix, radix) + digit[(n mod radix)+1]
end;

begin
 writeln(fromdec(256, 8)); {256(10) переводим в 8-ю с/с }
end.

Сообщение отредактировано: volvo - 21.12.2004 4:03

[ЛЬЯНА]

спасибочки,я сама не понимаю зачем здесь рекурсия,но препод требует