[pascal] iloczyn zbiorów

0

Jak w pascalu wykonać iloczyn zbiorów?

0
type a_set=set of byte; {zmien byte np. na boolean i zobacz, co zwroci sizeof()}

procedure set_and(set1,set2:a_set;var outset:a_set);
type aaa=array[1..sizeof(a_set)]of byte;
var i:byte;
begin
  for i:=1 to sizeof(a_set)do aaa(outset)[i]:=aaa(set1)[i] and aaa(set2)[i]
end;

var a,b,c:a_set;
begin
  writeln(sizeof(a_set)); { roznie to bywa :> }
  a:=[1,2,3,124,22,33,65];
  b:=[124,56,22,4,7,2];
  set_and(a,b,c); { watches - debugger w dlon naprzod marsz }
end.

// do postu ponizej... o ku**a, ale przekombinowałem :D

// tiaa.. ciekawe kto wyciął mojego posta - detox [diabel]

0
var
  A, B, C: set of Byte;

  C := A*B;

Iloczyn, czyli część wspólna.

1 użytkowników online, w tym zalogowanych: 0, gości: 1