|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Viktor Karev 2:5080/1003 03 Oct 2002 12:13:13
To : Oleg I. Khovayko
Subject : Re: Как закодировать?
--------------------------------------------------------------------------------
Приветствия!
"Oleg I. Khovayko" wrote:
> Интересно, полетит ли такой паровоз:
>
> procedure printbin(x:integer)
> begin
> repeat
> if x < 0 then write('1') else write('0');
> x := x * 2
> until x <> 0;
> writeln;
> end;
>
> По идее, вышеприведенная процедура должна integer печатать в двоичном
> формате...
Если x=0, то имеем зацикливание.
Если x<>0, то получим только одну цифру.
Виктор.
>
> PS:
> Паскаля у меня нету, так что проверить сам не могу...
>
> > и наоборот: двоичное перевести в десятичную
> > форму.
>
> type str=array[0..31] of char;
>
> a эта функция - транслировать строку (полностью заполненную "0/1") в integer:
>
> function readbin(var x:str): integer
> begin
> var i, rc:integer;
>
> rc := 0;
> for i := 0 to 31 do
> begin
> rc := rc * 2;
> if x[i] = '1' then rc := rc + 1;
> end;
>
> readbin := rc;
> end;
>
> --
> #include <best/regards.hpp>
> Oleg I. KHOVAYKO
> (301)435-5885 || WEB: http://olegh.spedia.net
--- ifmail v.2.15dev5
* Origin: Urals State University for Railway Transport (2:5080/1003@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
