求教一个算法，急等帮助

2001-11-22 11:44:44 140 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

POI-tl动态表格生成：Java后端报表导出高效解决方案在Java后端开发中，报表导出是常见的业务需求，尤其在处理动态数据时，传统的Apache POI操作往往涉及复杂的单元格坐标计算和样式复制，代码冗长且易错。动态表格生成技术通过声明式模板引擎，将数据模型与预定义模板结合，自动完成渲染，显著提升开发效率和可维护性。其核心原理基于区块标签和渲染策略，允许开发者通过简单的标签语法定义循环区域，并支持自定义渲染逻辑处理复杂场景如样式控制、数据计算等。这一技术对于电商订单、财务报表、合同单据等需要灵活输出格式的场景具有重要价值，能够应对数据行数不固定、结构动态变化的挑阅读详情

小刚假期同妈妈一起去书店，他选中了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依次打印出来。

...全文

企业级 Agent 在 K8s 上的运行模型 Kubernetes├── Agent Orchestrator（控制面）├── Agent Runtime Pods（执行面）├── Graph DSL（流程层）├── Tool Services（能力层）K8s（调度）+ Graph（流程）+ Agent（决策）+ Tool（执行）+ Guard（治理）阅读详情

sharklee

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

王集鹄 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.

superatom 2001-11-22

打赏
举报

1、首先将大于S的书排除出去；
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了判断出口
这个就像汉诺塔，挺有意思。

byrybye 2001-11-22

打赏
举报

好象挺难，
如果要效率的话

sharklee 2001-11-22

打赏
举报

楼上的道理我也知道，但我需要一个行之有效的算法

求教一个算法，急等帮助

相关推荐