Форум: "Начинающим";
Текущий архив: 2008.06.22;
Скачать: [xml.tar.bz2];
ВнизДаны 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.058 c