Рекурсия. Процедура перевода чисел из десятичной системы счисления в другие

Задача

Написать рекурсивную процедуру, переводящую числа из одной системы счисления в другую.

Решение

 

Это пример рекурсивной процедуры (которая вызывает себя из своего тела).

Программа на языке Паскаль: 

 

var
    k: integer;
    s: byte;
 
procedure scale (a: integer; b: byte);
    begin
        if b > 10 then
            write ('Основание должно быть меньше 10!')
        else begin
            if a > 1 then
                scale (a div b, b);
            write (a mod b)
        end;
    end;
 
begin
 
    write ('Введите число: ');
    readln (k);
 
    write ('Перевод в систему счисления: ');
    readln (s);
 
    scale (k, s);
 
readln
end.

 

Тема

Процедуры, функции, рекурсии

Уровень

Комбинированные задачи

Добавить комментарий

CAPTCHA
Этот вопрос задается для того, чтобы выяснить, являетесь ли Вы человеком или представляете из себя автоматическую спам-рассылку.
CAPTCHA на основе изображений
Введите символы, которые показаны на картинке.