Re: pекуpсия

From

Sergiy Kanilo ()

To

Rustam Ramazanov

Date

2002-11-26T19:53:37Z

Area

RU.ALGORITHMS

From: "Sergiy Kanilo" <skanilo@artannlabs.com>

"Rustam Ramazanov" <ramazanoff@univer.kharkov.ua> wrote in message
news:as04cs$8i7$1@host.talk.ru...
> 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;
>
> Может не сильно красиво получилось, но работать должно.
> Для других систем исчисления, думаю, сам адаптируешь.

А с чего ты взял, что num10 это число в десятичной системе?
Да и для нуля этот код зациклится :(

Cheers,
Serge

--- ifmail v.2.15dev5
 * Origin: Demos online service (2:5020/400)