[gnom]

всем привет.помогите,пожалуйста.есть 2 множества, содержащие числа 1..70 и мощностью 10 каждое.нужно вывести пересечение первого и второго.
есть код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

type x=set of byte; var   x1:set of 1..70;   x2:set of 1..70;   y:x;// результирующее множество     procedure TForm1.Button1Click(Sender: TObject);  var i: Integer; begin   x1:=[1,2,3,4,5,6,7,8,9,10];  x2:=[11,12,13,10,1,2,4,5,6,7];   for i:=1 to 10 do   begin      y1:=x1*x3;   end;    Memo1.Lines.Add(y1); end; end.

Админ: Пользуемся тегами для оформления кода!

[poli-smen]

Сообщение от gnom

всем привет.помогите,пожалуйста.есть 2 множества, содержащие числа 1..70 и мощностью 10 каждое.нужно вывести пересечение первого и второго.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); var   i: Byte; begin   x1 := [1, 2, 3, 4, 5, 6, 7, 8, 9, 10];   x2 := [11, 12, 13, 10, 1, 2, 4, 5, 6, 7];     y := x1 * x2;   Memo1.Clear;   for i := 0 to 255 do   begin     if i in y then Memo1.Lines.Add(IntToStr(i));   end; end;