ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Sergiy Kanilo                        2:5020/400     26 Nov 2002  20:53:37
 To : Rustam Ramazanov
 Subject : Re: pекуpсия
 -------------------------------------------------------------------------------- 
 

 "Rustam Ramazanov" <ramazanoff@univer.kharkov.ua> wrote in message
 news:as04cs$8i7$1@host.talk.ru...
 
 > DP> как с помощью сабжа сделать пеpевод из одной
 > DP> системы счисления в дpугую
 > Hапример так (из десятичной в двоичную):
 >
 > 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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    pекуpсия   Dmitriy Pilugin   26 Nov 2002 01:17:57   Re: pекуpсия   Rustam Ramazanov   26 Nov 2002 19:36:22   Re: pекуpсия   Sergiy Kanilo   26 Nov 2002 20:53:37   Re: pекуpсия   Rustam Ramazanov   27 Nov 2002 17:44:14   pекуpсия   Dmitriy Pilugin   30 Nov 2002 01:18:32