Re: Как закодировать?

From

Andrew Ezhguroff ()

To

Egor Tsygvintsev

Date

2002-10-07T22:06:08Z

Area

RU.ALGORITHMS

From: "Andrew Ezhguroff" <eandr@com2com.ru>

Привет! "Egor Tsygvintsev" <Egor.Tsygvintsev@p57.f77.n452.z2.fidonet.org>
сообщил(а):

 ET> procedure DecToBin(x:integer, val s:string);
 ET> begin
 ET>   if x<>0 then
 ET>    begin
 ET>     s:=str(x mod 2)+s;
 ET>     DecToBin(x shr 1,s);
 ET>    end;
 ET> end;

Ты уверен, что это сработает для x<0? В Си для отрицательных чисел
аналогичный код приведет к бесконечной рекурсии.

С уважением, Андрей.



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