Помощь - Поиск - Пользователи - Календарь
Полная версия: перевод из 10-ичной с/с в восмеричную
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
StingeR
перевод из 10-ичной с/с в восмеричную с помощью рекурсивной процедуры
volvo
Пользуйся поиском, я выкладывал уже эту процедуру.
Гость
Напиши плз ссылку!!!!
Гость
function FromDec(n, radix:longint):string;
var
s: String;
const
digit: string[16]='0123456789ABCDEF';
begin
s:='';
repeat
s:=digit[(n mod radix)+1]+s;
n:=n div radix;
until n=0;
FromDec:=s;
end;


помогите пожалуйста оформить с помощью рекурсивной процедуры
volvo
Цитата
Напиши плз ссылку!!!!
Вот ссылка:
Рекурсия
StingeR
Цитата(volvo @ 23.03.2008 14:23) *

Вот ссылка:
Рекурсия

СПАСИБО БолЬшоЕ
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.