4875
社区成员
- 全部
- 语言基础/算法/系统设计
- 数据库相关
- 图形处理/多媒体
- 网络通信/分布式开发
- VCL组件开发及应用
- Windows SDK/API
- 问答
求教一个算法，急等帮助
小刚假期同妈妈一起去书店，他选中了n本书，每本书的单价为：p1,p2,p3...pn元（均为整数）。不巧的是，妈妈只带了s(为整数)元钱，不够买这n本书（即：s<p1+p2+p3+...+pn)。妈妈同意将这s元全部用来买书，也就是小刚要从n本书中选出m本，使得这m本的价格和刚好等于s，即p1+p2+p3+...+pn=s，请你编程序将所有满足这一条件的i1,i2,i3,...im依次打印出来。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
王集鹄 2001-11-23
//用组合就可以了
//借用一下二进制
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
Math;
const
cScaleChar = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
function IntToDigit(mNumber: Integer; mScale: Byte; mLength: Integer = 0): string;
var
I, J: Integer;
begin
Result := '';
I := mNumber;
while (I >= mScale) and (mScale > 1) do begin
J := I mod mScale;
I := I div mScale;
Result := cScaleChar[J + 1] + Result;
end;
Result := cScaleChar[I + 1] + Result;
if mLength > 0 then
for I := 1 to mLength - Length(Result) do
Result := '0' + Result;
end; { IntToDigit }
function DigitToInt(mDigit: string; mScale: Byte): Integer;
var
I: Byte;
L: Integer;
begin
Result := 0;
L := Length(mDigit);
for I := 1 to L do
Result := Result + (Pos(mDigit[L - I + 1], cScaleChar) - 1) *
Trunc(IntPower(mScale, I - 1));
end; { DigitToInt }
function f(mPrices: array of Real; mMoney: Real): string;
var
I, J: Integer;
L: Integer;
S, C: string;
T: Real;
begin
L := Length(mPrices);
with TStringList.Create do try
for I := 0 to Trunc(IntPower(2, L)) - 1 do begin
S := IntToDigit(I, 2, L);
T := 0;
C := '';
for J := 1 to L do if S[J] = '1' then begin
T := T + mPrices[J - 1];
C := C + ',' + FloatToStr(mPrices[J - 1]);
end;
System.Delete(C, 1, 1);
if T = mMoney then
Add(S + ':' + C);
end;
Result := Text;
finally
Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := f([1, 2, 3, 4, 5, 6, 7], 20);
end;
end.
//借用一下二进制
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
Math;
const
cScaleChar = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
function IntToDigit(mNumber: Integer; mScale: Byte; mLength: Integer = 0): string;
var
I, J: Integer;
begin
Result := '';
I := mNumber;
while (I >= mScale) and (mScale > 1) do begin
J := I mod mScale;
I := I div mScale;
Result := cScaleChar[J + 1] + Result;
end;
Result := cScaleChar[I + 1] + Result;
if mLength > 0 then
for I := 1 to mLength - Length(Result) do
Result := '0' + Result;
end; { IntToDigit }
function DigitToInt(mDigit: string; mScale: Byte): Integer;
var
I: Byte;
L: Integer;
begin
Result := 0;
L := Length(mDigit);
for I := 1 to L do
Result := Result + (Pos(mDigit[L - I + 1], cScaleChar) - 1) *
Trunc(IntPower(mScale, I - 1));
end; { DigitToInt }
function f(mPrices: array of Real; mMoney: Real): string;
var
I, J: Integer;
L: Integer;
S, C: string;
T: Real;
begin
L := Length(mPrices);
with TStringList.Create do try
for I := 0 to Trunc(IntPower(2, L)) - 1 do begin
S := IntToDigit(I, 2, L);
T := 0;
C := '';
for J := 1 to L do if S[J] = '1' then begin
T := T + mPrices[J - 1];
C := C + ',' + FloatToStr(mPrices[J - 1]);
end;
System.Delete(C, 1, 1);
if T = mMoney then
Add(S + ':' + C);
end;
Result := Text;
finally
Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := f([1, 2, 3, 4, 5, 6, 7], 20);
end;
end.
superatom 2001-11-22
1、首先将大于S的书排除出去；
2、用循环把书价进行组合，找出符合条件的组合
2、用循环把书价进行组合，找出符合条件的组合
sharklee 2001-11-22
我还是不太明白，你能不能讲的详细一点。
baddy 2001-11-22
做几个数组，将价格、书名、标志对应存入，当满足时就读数组不就行了吗？
知足常乐 2001-11-22
关键是效率问题
scripting 2001-11-22
用一个递归调用可以
开始： 一个n整数数组N和一个整数m
后来变成： 一个n-1整数数组和一个整数i-N[0]
后来 n-2 i-N[0]-N[1]
。。。。。。。
当元素没有了、当i-???<=0了判断出口
这个就像汉诺塔，挺有意思。
开始： 一个n整数数组N和一个整数m
后来变成： 一个n-1整数数组和一个整数i-N[0]
后来 n-2 i-N[0]-N[1]
。。。。。。。
当元素没有了、当i-???<=0了判断出口
这个就像汉诺塔，挺有意思。
byrybye 2001-11-22
好象挺难，
如果要效率的话
如果要效率的话
sharklee 2001-11-22
楼上的道理我也知道，但我需要一个行之有效的算法
对博士一年级新生有什么建议？ 点上方计算机视觉联盟获取更多干货仅作学术分享，不代表本公众号立场，侵权联系删除转载于：链接：https://www.zhihu.com/answer/1980503929编辑：深度学习与计...
CSDN回帖得分大全（近两年） √vs2005调用dll的时候Initialize()函数返回错误 [VC/MFC ... [VC/MFC 界面] 40 chencheng8095 05-23 00:2911 xianglitian06-10 11:51管理√CFileFind::FindFile 支持通配符么？ [VC/MFC 基础类] 100 wysbk002 05-22
我是新手 求教各位前辈如何开发Activex控件实现图片的显示(急) 内容如题目,我想知道图片显示的算法,还有代码,对于开发控件我不是很懂,vc++也看了不多久....你们的意见无论是哪一方面的我想对我都将是很有帮助的.我在此留下邮箱:zls19790606@163.com 再次谢谢你们拉!
八字易经算法之用JAVA实现硬币卜卦辅助工具 世界上没有一种学问比预测未来更重要；而在全人类预测未来的学问中，没有一种比易经卜卦更重要；而在易经卜卦的所有方法中，用硬币卜卦是最简便、最常用的方法... 这里做一个辅助工具，帮助大家解卦。 首先要扫几个
如何通过自学成为一名 Android 应用开发工程师？ 作者：陈昱全链接：...我的技术之路也是这样开始的，当年参加创业大赛的时候，我们想做一个类似于Admob的产品，拉上一堆好友开始做产品，由于我们缺乏技术，所以自己也上场了。...
COM问题求教！ 现在我急着要写一个程序，用于为某算法作实验，而且必须在四月前写出文章来，但是碰到了一个才学粗浅的我无法解决的问题，我在国内外几个论坛上都求过帮助，只是收效甚微，所以只能冒昧的向您求助，失礼之处，还望...
我在CSDN参与的3000个帖子 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
高分求教：在jsp中运行的 DES 加密和解密 JAVABEAN。要求见文章内容！！ 一个是密文字符串；一个是密钥的字符串。 便于添加到数据库中。 2 在解密方法中取的密文字符串，用于解密。 本人研究了好多天都打不到想要的效果。只有求助于广大高手。急用！！！！！ 希望能寄予帮助。下面是我些的...
对 PhD一年级新生有什么建议？ 来源：https://www.zhihu.com/question/32210068/answer/624547698编辑：深度学习与计算机视觉声明：仅做学术分享，侵删作者：王晋东不在家...
和大白一起学人工智能 - Anaconda 本文首发于微信公众号："算法与编程之美"，欢迎关注，及时了解更多此系列博客。 我的名字叫大白，本科二年级，目前在国内某二本院校计算机类专业就读。听说最近几年人工智能非常的火，而且新闻报道人工智能工资非常...
开源IM工程“蘑菇街TeamTalk”的现状：一场有始无终的开源秀 在此之前，加上有些场景下（比如为了信息安全而不允许接入第3方云IM的应用、IM作为公司核心技术发展而不考虑用云的情况等）也确实不适合采用云IM，所以目前开发完全自主IM的需求和动力依然很旺盛。 但要想
java开发速成班培训课程（10） [url=http://www.buildapp.net/java/show.asp?id=21000]求！！高手进[/url] [url=http://www.buildapp.net/java/show.asp?id=20999]甘特...急![/url] [url=http://www.buildapp.net/java/show.asp?id=20...
上帝掷骰子吗--量子物理史话 上帝掷骰子吗--量子物理史话 第一章黄金时代...郁郁葱葱的森林和温暖的气候也使得这座小城成为了欧洲的一个旅游名胜。然而这些怡人的景色似乎没有分散海因里希?鲁道夫?赫兹(Heinrich Rudolf Hertz)的注意力：现在他正
600个问与答 http://faq.xunweb.org/itfaq/mfcbasic/ 怎样彻底结束一个线程? (2006-06-04) v 怎么样以纯idispatch方式而不是引入类型库的方法调...
WEB开发文档2 总结 转自：http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载地址如何在DATAGRID中使用JAVASCRIPT脚本控制DataGrid中连接到...
五位工程师亲述：AI技术人才如何快速成长？ 作者 | 周明耀前 言参考塞缪尔. 约翰逊（18 世纪英国文学评论家、诗人，著有《英语大辞典》、《莎士比亚集》）的思路，“当一个人厌倦了学习技术，那他肯定也厌倦了 IT 行业，因为只有...
精通C语言指针 指针被誉为C语言的精髓、C本质上是加了一层语法糖的汇编，引进当时先进的函数，保留了汇编强大的地址直接访问功能 —— 指针，使其高效灵活。本课程是黄强老师对于指针的一次专题讲解，相信能给大家带来收获！ a:0:{}
OpenGL ES2.0基础 初级学习OpenGL ES2.0的课程，从无到有，从进本的函数讲起，每一课时都附带一个例子程序。深入浅出的讲解可编程管线技术，令人费解的文理，以及混合技术，各种优化技术：顶点缓冲区，索引缓冲区，帧缓冲区，介绍精灵的使用，并使用shader制作粒子特效。 掌握OpenGL ES2.0可编程管线，以及OpenGLES2.0的特性，带领初学者入门。
winform常用控件 主要包含内容：
第一讲 课程简介
第二讲 Windows窗体-创建和介绍
第三讲 Windows窗体-属性
第四讲 Windows窗体-方法和事件
第五讲 Windows窗体-MDI窗体和子窗体
第六讲 控件的相关操作
第七讲 Label控件显示世界你好
第八讲Button控件
第九讲TextBox控件
第十讲RichTextBox控件
第十一讲ComboBox控件
等 学会winform常用控件基本使用
自己动手从0到1写嵌入式操作系统 这不是rtos源码分析的课程，而是为初级的同学设计，从基础原理讲师，一步步不断迭代设计rtos的课程！
用不到【2000行代码，汇编代码仅18行】（不含注释）实现一个精巧的可以运行在ARM Cortex-M内核芯片上的RTOS！
该RTOS功能与ucos类似，具体实现不同。学习之后，再去学习ucos之类的系统将没有什么问题。 1、系统地掌握RTOS的工作原理及其应用；
2、用更短的时间、更少的精力，学习RTOS相关知识；
3、设计出一个具备自己特色的RTOS。将其用作毕业设计、找工作的敲门砖；
4、提升技术水平，为升职加薪跳槽提供资本。
STM32Cube和HAL库使用初体验-第5季第2部分 本季课程主要讲解STM32的全新开发方式：使用STM32CubeMX工具做图形化配置，自动生成初始化代码；添加各种中间件；使用HAL库和LL库来操作外设。结合朱老师物联网大讲堂专为nbiot物联网开发而设计的NB476开发板，本季课程能够让大家彻底掌握物联网时代以nbiot和低功耗STM32L4单片机为代表的典型开发模式，实战意义非常重要。 本课程是《朱有鹏老师单片机完全学习系列课程》第5季第2个课程，本部分以时钟和GPIO模块为案例来讲解STM32CubeMX工具加HAL库加MDK5这套开发体系的流程、技术细节，目标是让大家真正入门HAL库方式开发STM32单片机。后续再接着讲其他更复杂外设。
