[Сёна]

Подскажите пожалуйста...
есть 2 последовательности положительных целых чисел, их размеры могут совпадать а могут и нет...
например
1. 23 25 36 45
2. 18 20 31
нужно из этих последовательностей выбрать пары чисел, коорые будут удовлетворять условию например числа разность которых не превышает 5. причем значения из одной или второй последовательности могут встречаться в паре лишь один раз..
как это можно реализовать? если через массив, то как будет происходить сравнение если они разные по длине?
или может через множество??? но как тогда добиться того чтобы значения встречались лишь один раз?
заранее благодарна...

[Aristarh Dark]

2 массива, вложенный цикл, числа которые попали в пару заменяешь на -1 чтобы повторно не использовать - все решение.

[Сёна]

спасибо : )

[AlexSku]

Отброшу сейчас рассмотрение типа данных (приведу пример StringGrid для наглядности) - можно использовать динамические массивы, а также будем считать последовательности упорядоченными. Тогда я бы делал один цикл, но в нём прогонял 2 индекса массивов (даже три, если учитывать массив результата) параллельно.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75

type   TForm1 = class(TForm)     StringGrid1: TStringGrid;     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   var   bEnd: Boolean = false;   i:    Integer = 1;   j:    Integer = 1;   k:    Integer = 1;   A, B: Integer;   maxI: Integer = 4;   maxj: Integer = 3;   procedure TForm1.FormCreate(Sender: TObject); begin   StringGrid1.Cells[1,1]:= '23';   StringGrid1.Cells[1,2]:= '25';   StringGrid1.Cells[1,3]:= '36';   StringGrid1.Cells[1,4]:= '45';   StringGrid1.Cells[2,1]:= '18';   StringGrid1.Cells[2,2]:= '20';   StringGrid1.Cells[2,3]:= '31'; end;   procedure TForm1.Button1Click(Sender: TObject); begin   while not bEnd do   begin     A:= StrToInt(StringGrid1.Cells[1, i]);     B:= StrToInt(StringGrid1.Cells[2, j]);     if (Abs(A - B) <= 5) then     begin         // i++, j++, k++       StringGrid1.Cells[3, k]:= IntToStr(A);       StringGrid1.Cells[4, k]:= IntToStr(B);       Inc(k);       if (i = maxI) or (j = maxJ) then         bEnd:= true       else       begin         Inc(i); Inc(j);       end     end     else if (A < B) then     begin         // i++       if i = maxI then         bEnd:= true       else         Inc(i);       end     else     begin         // j++       if j = maxJ then         bEnd:= true     else       Inc(j);     end;   end; end;   end.