Текущий архив: 2008.06.22;
Скачать: CL | DM;

Вниз

Даны 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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2008.06.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c