| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

prohoney ©   (2008-05-27 13:21:00) 

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

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

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

---

prohoney   (2008-05-27 14:57:00) [1]

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

---

ZENsan   (2008-05-27 13:39:00) [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.


---

Anatoly Podgoretsky   (2008-05-27 13:34:00) [3]

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

---

Наверх