delphi 10个东西，平均分配3个人，求算法

Posted 2023-04-30

分成结果3个人分别是3,3,4

或者2个东西，3个人分
3个人结果分别是1,1,0，最后一个人没有

如何解决。。。求解。重谢

总数 div 人数 = 整除后的结果 a

这样每人先分 a 个

总数 mod 人数 = 取模后的结果 b

从第一个人开始，每人一个，直到第b个人

算法结果：10份分三个人 ， 每人先分 10div 3 = 3个， 剩余 10mod3 = 1个，只能给一个人，这样结果 为 4，3， 3

2份分三个人，每人先分 2div3= 0个，剩余 2mod3 = 2个，依次分 1, 1, 0。
结果为 1， 1， 0

总结：主要是整除运算和取模运算，以及for循环的使用 参考技术A 要么-1.-4.-6.....,要么+2.+5....要么把剩下的均分三份。 参考技术B All = 10
a1 = All/3
a2 = (All-a1)/2
a3 = All-a1-a2

delphi中如何读取文件的属性

参考技术A

用API函数GetFileAttributes（）