Версия для печати темы

Автор: sheka 7.07.2011 18:07

Хочется видите ли с битами работать. Но даже в тот же Longint они не влазят.
Вот такой маразм не прокатывает:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  p: pointer;
  pSize: integer;
  i: integer;

begin
  pSize := SizeOf(longint)*8+1;
  WriteLn(pSize);
  GetMem(p,pSize);
  FillChar(p^,pSize,0);
  Integer(p^) := 4294967296;
  for i := pSize-1 downto 0 do
    Write((Integer(p^) shr i)and $1);
  WriteLn;
  FreeMem(p,pSize);
  readln;
end.

Автор: IUnknown 7.07.2011 18:18

Ну, с таким-то значением ничего перегружать не надо:

type
   PInt64 = ^Int64; // Можно работать и с QWord, причем безо всяких извращений с выделением памяти...
var
   p : pointer;
   pSize : integer;
   i : integer;
begin
   pSize := SizeOf(longint)*8+1;
   WriteLn(pSize);
   GetMem(p,pSize);
   FillChar(p^,pSize,0);
   PInt64(p)^ := 4294967296;
   for i := pSize-1 downto 0 do
      Write((PInt64(p)^ shr i)and $1);
   WriteLn;
   FreeMem(p,pSize);
   readln;
end.

Автор: sheka 7.07.2011 19:32

Ну 512бит это уже лучше, но все равно не много

Когда игрался с типами забыл 8 убрать.

А есть какой-то битовый тип кроме boolean?

Автор: IUnknown 7.07.2011 20:14

512 бит - это 64 байта, а тип Int64 - это 64 бита...

procedure Main;
   type Bit is (Reset, Set);
   for Bit use (Reset => 0, Set => 1);
   for Bit'Size use 1;  --  Да, ты правильно понял. Один бит на элемент
   
   type Bit_Array is array (1 .. Integer'Size) of Bit;  --  Тут битовый массив любого размера
   pragma Pack (Bit_Array);
   
   Value : Integer;
   ba : Bit_Array := (others => Reset);
   for ba'Address use Value'Address;  --  Ага, Absolute
begin
   Value := 32124323;
   Put_Line (Integer'Image (Integer'Size));
   Put_Line (Integer'Image (ba'Size));
   
   for i in reverse ba'Range loop  --  А теперь работаем с массивом бит как обычно...
         Put (Integer'Image (Bit'Pos (ba (i))));  --  Изменяли Value - посмотрим его значение
   end loop;
   New_Line;
   Put_Line (Integer'Image (Value));
end Main;

 32
 32
 0 0 0 0 0 0 0 1 1 1 1 0 1 0 1 0 0 0 1 0 1 1 0 1 1 0 1 0 0 0 1 1
 32124323

Автор: sheka 8.07.2011 2:22

Что-то я лишний раз на 8 умножил (логарифм от того большого числа брал).
Но если массив booleanoв, то можно делать приведение типов word(a[i]) и будет выдавать нужный результат при той же занимаемой памяти что и у битов.
Задачу не помню, сродни вот этой http://forum.pascal.net.ru/index.php?showtopic=28555, но там надо было как-то передвигать штуки типа японского кроссворда. Обычно из-за того, что не хватает разрядной сетки пользуюсь рекурсией, хотя очень бы хотелось пользоваться такими штуками

Автор: IUnknown 8.07.2011 18:01

Автор: sheka 9.07.2011 3:01

Автор: Lapp 9.07.2011 3:29

Цитата(sheka @ 9.07.2011 0:01)

Автор: sheka 9.07.2011 3:38

Да это понятно, что sizeof все прекрасно выдает, так и проверял, но почему-то на подсознании думал раз 2 значения, значит бит.
Идеология кого?
Архитектура языка?
И в какую сторону его реализовывать?

Автор: IUnknown 9.07.2011 3:38

type
   bit = 0 .. 1;
   bitarr = bitpacked array[1 .. 16] of bit;

var
   X : word;
   i : integer;
   ba : bitarr absolute X;
begin
   writeln(sizeof(ba));
   X := 5458;
   for i := 16 downto 1 do //
      write(ba[i]);
   writeln;
end.

2
0001010101010010

Автор: Lapp 9.07.2011 3:51

Цитата(sheka @ 9.07.2011 0:38)

И в какую сторону его реализовывать?

Автор: sheka 9.07.2011 3:59

Стремный метод однако.
Лучше ничего нет?

Дык получается, что первые 7 бит booleana - вечные 0 ?

Автор: Lapp 9.07.2011 4:09

Цитата(sheka @ 9.07.2011 0:59)

Автор: IUnknown 9.07.2011 4:09

var
   b : boolean;
begin
   b := boolean(255);
   writeln(b);
   writeln(byte(b));
end.

Автор: Lapp 9.07.2011 4:15

Кроме прочего, если заводишь boolean переменную динамически, в первый момент там все, что угодно. И, как сказал IU (сорри, очень длинно..)), трактуется так: 0 - ложь, не 0 - правда.

Автор: sheka 9.07.2011 4:18

Делфи на такую штуку иероглифы выводит. Не нравится ему писать TRUE если не 00000001

Это-то и нужно, просто это не интересно, до этого даже я додумался
Лучше и не надо, меня именно и интересуют извращения, т. е. посмотреть что можно вытащить из возможностей.

Ну как бы в Си такое же понятие True и False, и именно поэтому как зарезервированные слова они появились позже и то в библиотеках, если не ошибаюсь. Зачем тогда было выдумывать boolean? для простой смены True = not False ?

Автор: Lapp 9.07.2011 4:50

Цитата(sheka @ 9.07.2011 1:18)

Автор: IUnknown 9.07.2011 16:56

Автор: sheka 10.07.2011 1:42

Автор: IUnknown 10.07.2011 2:43