|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Vitaly Slobodskoy 2:5015/128.22 07 Oct 2002 22:01:27
To : Egor Tsygvintsev
Subject : Re: Как закодировать?
--------------------------------------------------------------------------------
потекло 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...
-----------------
Hадеюсь, хоть чем-то мог быть полезен! И, это... в следующий раз закрывайте
кран!
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
