|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
есть 2 множества, содержащие числа 1..70
всем привет.помогите,пожалуйста.есть 2 множества, содержащие числа 1..70 и мощностью 10 каждое.нужно вывести пересечение первого и второго.
есть код Код:
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. Последний раз редактировалось Admin, 11.12.2012 в 22:39. |
#2
|
||||
|
||||
Цитата:
Код:
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; |