Полная версия: рекурсивный перевод чисел
Люди,помогите,пожалуйста!Я уже голову сломала,но никак не могу составить рекурсивный перевод целых чисел из 10 с.с. в любую другую и правильных дробей.Обязательно должна быть рекурсия.А завтра уже нужно сдать.Подскажите!!!!!!!!
ЛЬЯНА
Вот рекурсивная функция перевода чисел из 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.
Вот рекурсивная функция перевода чисел из 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.
спасибочки,я сама не понимаю зачем здесь рекурсия,но препод требует
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.