Jak w pascalu wykonać iloczyn zbiorów?
0
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.