電話機上不是有英文字母嗎 例如: 按鍵'2' 上有 ABC, 按鍵'3' 上有 DEF 請問 如果輸入一組數字, 如'637' 有沒有辦法用recursion 的方法排列出所有組合呢? 輸出結果如下: MDP MEP MFP NDP NEP NFP ODP OEP OFP MDR MER MFR NDR NER NFR ODR OER OFR MDS MES MFS NDS NES NFS ODS OES OFS

Hi, 使用了 delphi 寫個 sample 給你參考, 這是非 recursive 的作法, 若要 recursive 的作法, 我再寫一個給你參考:    

procedure TForm1.Button1Click(Sender: TObject);
var
  aChar: Array[2..9] of string;
  sInput: string;
  slresult, sltemp: TStringList;
  i, j, k: integer;
begin
  aChar[2] := 'ABC';
  aChar[3] := 'DEF';
  aChar[4] := 'GHI';
  aChar[5] := 'JKL';
  aChar[6] := 'MNO';
  aChar[7] := 'PQRS';
  aChar[8] := 'TUV';
  aChar[9] := 'WXYZ';
  sInput   := Edit1.Text;  // ex: '637'      slresult:= TStringList.Create;
  sltemp  := TStringList.Create;      for i := 1 to Length(sInput) do
  begin
    sltemp.Clear;
    for j := 1 to Length(aChar[StrToInt(sInput[i])]) do
    begin
      if slresult.Count = 0 then
        sltemp.Add(aChar[StrToInt(sInput[i])][j])
      else
      begin
        for k := 0 to slresult.Count -1 do
        begin
          sltemp.Add(slresult[k] aChar[StrToInt(sInput[i])][j]);
        end;
      end;
    end;
    slresult.Text := sltemp.Text;
  end;      Memo1.Lines.Text := slresult.Text;  // display the result!      sltemp.Free;
  slresult.Free;
end;

ps. 637 的結果應該是 3 * 3 * 4 = 36 組, 你的 7 按鍵有少個 q 所以列出 27 組而已 !!