一个组合问题(29选7)

最新推荐文章于 2024-03-06 00:02:02 发布

原创最新推荐文章于 2024-03-06 00:02:02 发布 · 933 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi #integer #application

收录于

Delphi 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的控制台应用程序示例，该程序定义了一个递归过程来生成特定格式的字符串，并将结果输出到一个Memo组件中。通过调整参数n和k，可以改变输出字符串的内容。

在delphi 中 new -> other -> Console Application:

program Project1;

{$APPTYPE CONSOLE}

procedure   zhuhe(n,k:integer;str:string;memo:Tmemo);
var
      i:integer;
begin
      if   n   =   k   then
      begin
          for   i:=n   downto   1   do
              str   :=   inttostr(i)   +   ','   +   str;
           writeln(str);
             memo.Lines.Add(str);
          exit;
      end;
      if   k   =   1   then
      begin
          for   i:=1   to   n   do
              writeln(inttostr(i)   +   ','   +   str);
              memo.Lines.Add(str);
          exit;
      end;
      zhuhe(n-1,k,str,memo);
      zhuhe(n-1,k-1,inttostr(n)   +   ','   +str,memo);
end;