从A数组中找B数组中的相近的数字

Question

怎么在一个数字数组中寻找另一个数组中各个数据的位置的
a[]={1.2,3.4,4.0,4.4,5.3,6.3,7,7.45,.......,100}  n个数，double类型b[]={4.0,7,...,80}  m个数，double类型       m<n 寻找b数组元素在a数组中的位置或者最相近数的位置b数组中的数最大不大于a数组中的数，且high(a)<high(b)

Answer 1

原文 "b数组中的数最大不大于a数组中的数，且high(a)<high(b)" 这句话，前后矛盾。以文字定义为准：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
var a:array[0..100]of double;
    b:array[0..100]of double;{$R *.dfm}//随机产生a、b两组数：
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
    tmp:double;
    t:boolean;
begin
  Randomize;//初始化
  for i:=0 to 100 do begin
    while true do begin
      tmp:=random(100)+random(10)/10;
      t:=true;
      for j:=0 to i-1 do begin
        if a[j]=tmp then begin
          t:=false;
          break;
        end;
      end;
      if t then begin
        a[i]:=tmp;
        break;
      end;
    end;
  end;
  for i:=0 to 100 do begin
    while true do begin
      tmp:=random(89)+random(10)/10;
      t:=true;
      for j:=0 to i-1 do begin
        if b[j]=tmp then begin
          t:=false;
          break;
        end;
      end;
      if t then begin
        b[i]:=tmp;
        break;
      end;
    end;
  end;
  for i:=0 to 100 do begin
    memo1.Lines.Append(floattostr(a[i]));
    memo2.Lines.Append(floattostr(b[i]));
  end;
end;//查找b组数在a组最接近的数的位置：
procedure TForm1.Button2Click(Sender: TObject);
var i,x:integer;
    d,f:double;
    t:boolean;
begin
  for i:=0 to 100 do begin
    f:=0;
    t:=true;
    x:=-1;
    while true do begin
      if t then begin
        d:=b[i]+f;
        t:=false;
      end
      else begin
        d:=b[i]-f;
        f:=f+0.1;
        t:=true;
      end;
      x:=memo1.Lines.IndexOf(floattostr(d));
      if x>=0 then break;
    end;
    memo3.Lines.Append(inttostr(x));//显示在 a 组的位置（0为第一个）
  end;
end;end.

Answer 2

我之所以用 Tmemo 来弄，是为了更便于观察，使得方便表达我的思路。实际上，使用 TStringList 也有个方法 IndexOf() 可以求得某个字符的位置的。