UC知道均分纸牌
来源：百度知道 编辑：UC知道 时间：2024/06/02 17:19:54
给我pascal的解法，为什么我的程序通不过？
抱歉,我以为只要是学这个的都应该知道这道题.
具体的题目叙述是这样的:
有 N 堆纸牌，编号分别为 1，2，…, N。每堆上有若干张，但纸牌总数必为 N 的倍数。可以在任一堆上取若于张纸牌，然后移动。
移牌规则为：在编号为 1 堆上取的纸牌，只能移到编号为 2 的堆上；在编号为 N 的堆上取的纸牌，只能移到编号为 N-1 的堆上；其他堆上取的纸牌，可以移到相邻左边或右边的堆上。
现在要求找出一种移动方法，用最少的移动次数使每堆上纸牌数都一样多。
例如 N=4，4 堆纸牌数分别为：
① 9 ② 8 ③ 17 ④ 6
移动3次可达到目的：
从 ③ 取 4 张牌放到 ④ （9 8 13 10） -> 从 ③ 取 3 张牌放到 ②（9 11 10 10）-> 从 ② 取 1 张牌放到①（10 10 10 10）。
输入格式
N（N 堆纸牌，1 <= N <= 100）
A1 A2 … An （N 堆纸牌，每堆纸牌初始数，l<= Ai <=10000
输出格式 Output Format
所有堆均达到相等时的最少移动次数。
样例输入
4
9 8 17 6
样例输出
3
按说应该是道很简单的题,可为什么我的程序死活就是算不对.
(我的程序能够运行,样例也对,我也不知道怎么回事,评测的时候回回都是零分.)
抱歉,我以为只要是学这个的都应该知道这道题.
具体的题目叙述是这样的:
有 N 堆纸牌，编号分别为 1，2，…, N。每堆上有若干张，但纸牌总数必为 N 的倍数。可以在任一堆上取若于张纸牌，然后移动。
移牌规则为：在编号为 1 堆上取的纸牌，只能移到编号为 2 的堆上；在编号为 N 的堆上取的纸牌，只能移到编号为 N-1 的堆上；其他堆上取的纸牌，可以移到相邻左边或右边的堆上。
现在要求找出一种移动方法，用最少的移动次数使每堆上纸牌数都一样多。
例如 N=4，4 堆纸牌数分别为：
① 9 ② 8 ③ 17 ④ 6
移动3次可达到目的：
从 ③ 取 4 张牌放到 ④ （9 8 13 10） -> 从 ③ 取 3 张牌放到 ②（9 11 10 10）-> 从 ② 取 1 张牌放到①（10 10 10 10）。
输入格式
N（N 堆纸牌，1 <= N <= 100）
A1 A2 … An （N 堆纸牌，每堆纸牌初始数，l<= Ai <=10000
输出格式 Output Format
所有堆均达到相等时的最少移动次数。
样例输入
4
9 8 17 6
样例输出
3
按说应该是道很简单的题,可为什么我的程序死活就是算不对.
(我的程序能够运行,样例也对,我也不知道怎么回事,评测的时候回回都是零分.)
贪心就好了
program zhipai;
var
n,i,j,p,s:longint;
a:array[0..100]of integer;
begin
readln(n);s:=0;j:=0;
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
p:=s div n;i:=0;
repeat
inc(i);
while a[i]<>p do
begin
a[i+1]:=a[i+1]+a[i]-p;
j:=j+1;
a[i]:=p;
end;
until i=n-1;
writeln(j);
end.
请把程序要求写完整,我不能理解