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

From

Vitaly Slobodskoy (2:5015/128.22)

To

Egor Tsygvintsev

Date

2002-10-07T22:01:27Z

Area

RU.ALGORITHMS

Здравствуйте, //Egor Tsygvintsev//, САНТЕХНИКА вызывали?!? Так так, у вас потекло 04.10.02... *ТЫ хочешь поговорить об этом??*

 ET> люди, не мучайтесь :)))
 ET> -+- Тут начинается файл golded.out --- 
 ET> var s,c:string;     
 ET>     x:integer;
 ET> procedure DecToBin(x:integer); 
 ET> begin 
 ET>   if x<>0 then begin     
 ET>     str(x mod 2,c); s:=c+s; DecToBin(x shr 1); end; end; 
 ET> begin
 ET> readln(x);   DecToBin(x);   writeln(s); end.

 Во-первых, в данном случае ГОРАЗДО лучше убрать глобальные x и c и сделать
функцию
 Во-вторых, юзать в данном случае рекурсию - просто изврат, ибо рекурсия ВСЕГДА
медленне итерации!
 В-третьих, алгоритм будет неправильно работать при входном X=0...

-----------------
Надеюсь, хоть чем-то мог быть полезен! И, это... в следующий раз закрывайте
кран!

Slobodskoy Vitaly
e-mail: vital@mail.nnov.ru
fido: 2:5015/128.22

--- WP/95 Rel 1.78E (215.0) Reg.
 * Origin: Все фигня,кроме Comoderator of RU.ALGORITHMS,хотя и он,если подумать.. (2:5015/128.22)