Free Pascal. Низкоуровневое управление байтовыми множествами.

[Решетова Алена]

Здравствуйте) Помогите пожалуйста вникнуть в лабораторную. Язык FREE PASCAL. Подскажите как написать функцию, остальные сделаю сама.
Низкоуровневое управление множествами.
Разработать функции для низкоуровневого управления байтовыми множествами, реализующие операции in, +, -, * и фунции include, exclude средствами прямого доступа к оперативной памяти множества.
{ тип множества }
type ByteSet=set of byte;
{ аналог операции in }
function inSet(e:byte; bset:ByteSet):boolean;
{ аналог операции + }
function addSet(b1set,b2set:ByteSet):ByteSet ;
{ аналог операции - }
function subSet(b1set,b2set:ByteSet):ByteSet ;
{ аналог операции * }
function mulSet(b1set,b2set:ByteSet):ByteSet ;
{ аналог функции include }
function includeSet(e:byte; bset:ByteSet):ByteSet;
{ аналог функции exclude }
function excludeSet(e:byte; bset:ByteSet):ByteSet;

Одну любую. Или просто идею решения. Если кто может, можно и несколько функций))) ПОДЧЕРКИВАЮ: средствами прямого доступа к оперативной памяти множества.

За любую помощь очень благодарна!!!

[Serge_Bliznykov]

Это кто же такие задания даёт?! Это же жуть и кошмар!
и главное - ЗАЧЕМ?!
Я, например, только предполагать могу, каким образом хранится множество байт в памяти (без этого доступ к памяти организовывать бессмыслено)...

[Решетова Алена]

В универе( на втором курсе. Предмет называется: структуры данных и алгоритмы...

[Serge_Bliznykov]

сочувствую. я лично - пас...

попробуйте найти методичку с примером решения аналогичной задачи и/или решения подобных задач (у сокурсников, прошлогодние решения, у преподавателя образец или направление, куда двигаться).

в любом случае, я лично подобное задание НЕ ОДОБРЯЮ! Это как плац ломом подметать - и затраты такие же, и результат, примерно, такой же...

[Решетова Алена]

Спасибо за сочувствие) тоже поддержка)
П.С. есть один хороший человек, которого я уже замучила с такими вопросами).. А сам препод делает вид, что это элементарно!)

[DiemonStar]

На 100% не подскажу, но более чем уверен, что набор (set of) имеет такую же структуру как и массив. Т.е. можно попробовать написать функции на ассемблере (не уверен что free paskal с ним дружит) или посредством указателей получать доступ к значениям байтов. Сами же функции по своей реализации действительно элементарные.

[Решетова Алена]

надо посредством указателей..но как

[BDA]

Множество в памяти хранится как массив битов, в котором каждый бит указывает является ли элемент принадлежащим объявленному множеству или нет. Максимальное число элементов множества 256, а данные типа множество могут занимать не более 32 байт.

Из интернета

Update 18:30
Работает в лазарусе:

  function inSet(e: byte; bset: ByteSet): boolean;
  var
    b: ^byte;
  begin
    b := @bset + e div 8;
    Result := b^ shr (e mod 8) and 1 = 1;
  end;

  function addSet(b1set, b2set: ByteSet): ByteSet;
  var
    b0: byteset;
    bp1, bp2: ^byte;
    i: byte;
  begin
    b0 := b1set;
    bp1 := @b0;
    bp2 := @b2set;
    for i := 0 to (high(b1set) + 1) div 8 - 1 do
    begin
      bp1^ := bp1^ or bp2^;
      Inc(bp1);
      Inc(bp2);
    end;
    Result := b0;
  end;

Хотя, может это и не то

[Решетова Алена]

оооо спасибо большое) только у меня вот эта строка не компилируется b := @bset + e div 8; (16) Warning: Arithmetic "+" on untyped pointer is unportable to {$T+}, suggest typecast. Делаю в Geany под Windows7

но работает))

[Решетова Алена]

может и не то.. препода не понять.. но все равно хоть что-то))) спасибо огромное)))