Re: pекуpсия

From

Rustam Ramazanov ()

To

Dmitriy Pilugin

Date

2002-11-26T18:36:22Z

Area

RU.ALGORITHMS

From: Rustam Ramazanov <ramazanoff@univer.kharkov.ua>

DP> как с помощью сабжа сделать пеpевод из одной
DP> системы счисления в дpугую
Например так (из десятичной в двоичную):

function From10To2(num10:longint):string;
var s:string;
begin
if num10=1 then From10To2="1"
  else 
  begin
  str(s, num10 mod 2);
  From10To2=From10To2(num10 div 2)+s;
  end;
end;

Может не сильно красиво получилось, но работать должно.
Для других систем исчисления, думаю, сам адаптируешь.

Рустам.
-- 
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
 * Origin: Talk.ru (2:5020/400)