12.12.2012, 08:12
|
|
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от gnom
всем привет.помогите,пожалуйста.есть 2 множества, содержащие числа 1..70 и мощностью 10 каждое.нужно вывести пересечение первого и второго.
|
Код:
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;
|