ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Rustam Ramazanov                     2:5020/400     26 Nov 2002  19:36:22
 To : Dmitriy Pilugin
 Subject : Re: pекуpсия
 -------------------------------------------------------------------------------- 
 

 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;
 
 Может не сильно красиво получилось, но работать должно.
 Для других систем исчисления, думаю, сам адаптируешь.
 
 Рустам.
 -- 
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (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