delphi 递归实现从m 个集合中 任取一个元素 生成组合

最新推荐文章于 2024-09-03 16:38:49 发布
最新推荐文章于 2024-09-03 16:38:49 发布
阅读量1.9k 收藏
点赞数
分类专栏： Delphi学习
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lotusyangjun/article/details/35231359
版权
本文介绍如何使用Delphi编程语言，通过递归算法从m个集合中选择一个元素，来生成所有可能的组合。内容涵盖递归的思想及其实现步骤，为理解和应用递归解决组合问题提供指导。
摘要由CSDN通过智能技术生成

主要思想：

求从n个数组任意选取一个元素的所有组合，对于这个问题，我们在直观上感觉很容易，但是用程序实现时则发现用for循环解决不了问题，因为n是随意的。
在这里，我们用递归的思想，对于数据[1, 3, 4]; [2, 5]; [6, 7];我们可以
1.将1,2,6压入栈中，然后输出栈中所有元素，之后弹出6
2.压入7，输出栈中所有元素，之后弹出7
3.弹出2，压入5，再压入6，然后输出栈中所有元素，之后弹出6
4.压入7，输出栈中所有元素，之后弹出7

以此类推，即可得到所有组合。



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Co
最低0.47元/天 解锁文章
北环阳光
关注
专栏目录
递归方法的使用之一 －－ 用递归进行排列组合
doon的专栏
11-30 9706
1. 排列的问题。    本文中的排列有一个前提：被排列的对象是不能有重复的。因为在本文的叙述中并没有考虑到重复的情况。请读者自己处理。    这类问题一般都是这样的：    有一个序列，不重复，希望得到这个序列的全排列。    考虑，一个只有两个元素的序列,如AB，只有两个排列，AB,BA。因为AB已经给出，所以我们只要求BA就可以。    所以对于任意多个元素的序列，我们可以他们分成两个部分，
【递归】n个数的集合的所有子集
weixin_30436101的博客
04-06 175
输入: 3 1 2 3 输出: 1 1 2 1 2 3 1 3 2 2 3 3 Delphi代码： program full_combination;const max_n = 10;var n: integer; rcd, num: array[0..max_n] of integer;procedure full_combination(ind...
Delphi实现的最佳组合算法
rocklee的专栏
09-03 323
运算后得到最佳组合数组和差异值,组合数组的总和要大于等于n,差异值为组合数组的总和-n的差值。如果数组a=[10,20,30,35,100,200,300,2000]如果n为160的话，输出[10,20,30,100],差异值为0。如果n为159的话，输出[10,20,30,100],差异值为1。如果n为150的话，输出[20,30,100],差异值为0。要求：输入参数是总数n,和数组a。
求从几个集合中各选取一个元素，并组合的算法
一路向前
06-19 3114
初学python，因为需要，就用 python 简单实现了下，各种语言都一样，需要递归。 # A Recursion function 递归函数 def RecursionFunc(arr1,arrList): if (arrList): string = [] for x in arr1: for y in arrList[0]
Delphi 递归
weixin_42528089的博客
11-17 1130
由于delphi的过程比较简单，因此重点学习函数，函数中最难的是递归，本文通过实例来学习。   框图界面如下：      代码如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; ...
使用递归求出一个集合的所有子集
nkuhjp的博客
09-21 1万+
想一下，平时如果给你1，2，3，4四个数，让你写出它的所有子集，你会怎么做？ 我想大部分人的思路是先写出子集中只含有一个元素的子集:1;2;3;4。然后考虑子集中含有两个元素的子集:1,2;1,3;1,4;2,3;2,4;3,4。然后是子集中含有三个元素的子集:1,2,3;1,2,4;1,3,4;2,3,4。最后是自己:1,2,3,4。当然别忘了还有一个空集。 好的，如果能够这么想说明思路还是挺
Delphi下遍历文件夹下所有文件的递归算法
weixin_34152820的博客
07-25 274
{-------------------------------------------------------------------------------过程名:    MakeFileList 遍历文件夹及子文件夹参数:      Path,FileExt:string   1.需要遍历的目录 2.要遍历的文件扩展名返回值:    TStringListUSE StrUtils   Eg：...
不得不说的全排列算法递归实现
12-22
递归的核心思想是：对于一个有n个元素的集合，选择一个元素作为首元素，然后对剩余的n-1个元素进行全排列，再将首元素插入到每个排列的各个位置中。通过这种方式，可以递归地构建出所有可能的排列。 全排列算法的...
凑数delphi7源码
09-11
在Delphi7中，我们可以创建一个自定义的数据结构来存储数值集合，比如定义一个TNumberList类，包含一个动态数组来存储数值，并提供添加、删除、查找等操作。同时，为了实现凑数功能，我们需要一个方法来生成所有可能...
分形算法与程序设计Delphi实现
08-25
这需要在Delphi中定义一个函数，用于进行迭代计算。 3. 科赫曲线：是一个简单的分形构造，通过迭代将直线段逐渐转化为更复杂的曲线。Delphi中，可以使用递归函数来实现这一过程。 实现这些分形算法时，我们通常会...
delphi文件XML生成树
04-02
TXMLDocument是Indy库中的一个组件，它可以用来创建、加载和保存XML文档。在设计阶段，将TXMLDocument拖放到表单上，然后在代码中通过设置其属性和调用方法来生成或操作XML树。 生成XML树的基本步骤如下： 1. **...
求一个集合的所有子集问题
热门推荐
lucasma的博客
06-15 3万+
一个包含n个元素的集合,求它的所有子集。比如集合A= {1,2,3}, 它的所有子集是: { {1}, {2}, {3}, {1,2}, {1,3}, {2,3}, {1,2,3}, @}(@表示空集)。 这种问题一般有两种思路，先说说第一种，递归。递归肯定要基于一个归纳法的思想，这个思想用到了二叉树的遍历，如下图所示: 可以这样理解这张图，从集合A的每个元素自身分析...
Delphi 集合 使用资料收集
松龄的专栏
10-20 2277
集合的使用      （一）       delphi中的集合是对数学中集合的概念的简单实现。要求是集合中的元素必须同类型，且必须是序数类型，且集合中可能的元素个数不能大于255。     定义： type 集合类型名 = set of 元素类型     例如： type MySet = set of char; //注意 char 的个数本来就不超过255。
求集合所有子集问题
慎铭的博客
12-03 893
问题描述： 试写一个递归算法实现求一个集合的所有子集。 算法设计： 给定一个非空的集合，用递归算法输出它的所有子集。 数据输入： 第1行是集合中的元素个数，第2行是集合的元素序列（元素之间用空格分隔）。 结果输出： 将计算出的所有子集分行输出 输入文件示例： 3 123 输出文件示例： （此空行表示空集） 3 2 23 1 13 12 123 在这里，我们有两种接 ...
递归算法学习——子集
qq_41934502的博客
08-29 889
递归算法学习——子集的两种解法
「递归算法」：子集（两种解法）
C_Small_Cai的博客
02-09 649
给你一个整数数组nums，数组中的元素。返回该数组所有可能的子集（幂集）。解集包含重复的子集。你可以按返回解集。
C＋＋递归求集合的子集
diker007的专栏
03-20 2427
以集合{a,s,d,f}为例说明递归思想第一步：去掉f的，和不去掉f的，得到两个集合{a,s,d,f}，{a,s,d}第二步：将得到的两个集合，去掉d的，和不去掉d的，得到4个集合>>>>>>依次做下去，等去掉第一个元素后，就得到了所有的子集。程序实现如下： #include#includevoid build(char str[],int n);void main(){   char strin
组合算法
coffer_84的专栏
07-01 797
从csdn看到百度饭团 那道竞赛题，觉得可以用组合算法解决，用递归简单实现了组合算法，自己觉得还比较满意，呵呵，用delphi 写的，递归算法；大概思路如下：从M中取N个数，分两中情况处理1. 从M中取一个，从剩下的M-1个数中取N N -1个数，2.从M-1个数中去N 个数；N =1 和N=M的情况可以结束递归；procedure TForm1.presum(M: Int
递归实现 从n个数中选取m个数的所有组合
shaoxiaohu的专栏
02-18 2万+
有n（n>0）n（n>0）个数，从中选取m（n>m>0）m（n>m>0）个数，找出所有的组合情况（不分顺序）。这样的组合共有 Cmn=n×(n−1)×⋯×(n−m+1)m!C_n^m = \frac {n \times (n-1) \times \cdots \times (n-m+1)} {m! }. 一个数组 data 有 n 个元素，从中选取 m 个数的组合 arr，使用递归算法实现是这样一
用C++实现 从n个元素中取出m个元素的全部组合
最新发布
09-19
在C++中，我们可以使用递归和回溯算法来生成n个不同元素的m个元素组合。这个过程通常被称为“组合”或“从n个不同元素中选取k个元素的排列”。这里有一个简单的例子，使用了`std::vector`存储元素，并利用递归来生成所有可能的组合： ```cpp #include <iostream> #include <vector> void generateCombinations(std::vector<int>& arr, std::vector<int>& result, int start, int m) { if (m == 0) { // 当选择的元素达到m个，将结果复制到另一个vector并打印 result = arr; for (int i : result) { std::cout << i << " "; } std::cout << "\n"; return; } // 对于每个start位置的元素，尝试加入组合并进入下一层递归 for (int i = start; i < arr.size(); ++i) { result.push_back(arr[i]); // 将当前元素添加到结果 generateCombinations(arr, result, i + 1, m - 1); // 继续递归处理剩余元素 result.pop_back(); // 回溯操作，移除最后一个元素，准备考虑下一个 } } int main() { int n = 5, m = 3; // 假设我们有5个元素，需要选3个 std::vector<int> arr = {1, 2, 3, 4, 5}; // 元素集合 std::vector<int> result; generateCombinations(arr, result, 0, m); return 0; } ``` 运行这段代码，它会输出所有从给定数组`arr`中选出`m`个元素的不同组合。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值