Даны 8 целых чисел размером 1 байт.

← →
prohoney (2008-05-27 13:21) [0]

Привет! Помогите мне пожалуйста с этим заданием, не как не могу его решить. на delphi. Вообщем с этими битами я совсем идиот .(((

Даны 8 целых чисел размером 1 байт.
Получить другой массив из 8 чисел, собрав в первый элемент младшие биты всех чисел, во второй элемент вторые биты и тд.

Повторить операицию и убедиться, что всё возвращается в исходное состояние.

← →
Anatoly Podgoretsky © (2008-05-27 13:34) [1]

http://www.podgoretsky.com/Redir.aspx?id=137&DownloadFile=~/ddp/bits.aspx

← →
ZENsan © (2008-05-27 13:39) [2]

var Chisla: array[1..8] of Byte; Massiv: array[1..8] of Byte; i, j: Integer; begin Randomize; for i := 1 to 8 do begin Chisla[i] := Random(256); Write(Chisla[i]:4); for j := 0 to 7 do Massiv[j + 1] := Massiv[j + 1] + ((Chisla[i] shr j) and 1); end; WriteLn; for i := 1 to 8 do Write(Massiv[i]:4); ReadLn; end.

← →
prohoney (2008-05-27 14:57) [3]

Большое тебе спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Даны 8 целых чисел размером 1 байт. Найти похожие ветки