帮我看看这个程序，NOIP2010普及组第二题。

Posted 2023-04-17

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了帮我看看这个程序，NOIP2010普及组第二题。相关的知识，希望对你有一定的参考价值。

就是这个：
2.接水问题
(water.pas/c/cpp)
【问题描述】
学校里有一个水房，水房里一共装有 m 个龙头可供同学们打开水，每个龙头每秒钟的供水量相等，均为 1。
现在有 n 名同学准备接水，他们的初始接水顺序已经确定。将这些同学按接水顺序从 1到 n 编号，i号同学的接水量为 wi。接水开始时，1 到 m号同学各占一个水龙头，并同时打开水龙头接水。当其中某名同学 j 完成其接水量要求 wj 后，下一名排队等候接水的同学 k马上接替 j 同学的位置开始接水。这个换人的过程是瞬间完成的，且没有任何水的浪费。即j 同学第x 秒结束时完成接水，则 k 同学第 x+1 秒立刻开始接水。若当前接水人数 n’不足 m，则只有 n’个龙头供水，其它 m−n’个龙头关闭。
现在给出 n名同学的接水量，按照上述接水规则，问所有同学都接完水需要多少秒。

【输入】
输入文件名为 water.in。
第 1 行2 个整数 n 和 m，用一个空格隔开，分别表示接水人数和龙头个数。
第 2 行 n 个整数 w1、w2、……、wn，每两个整数之间用一个空格隔开，wi表示 i 号同学的接水量。

【输出】
输出文件名为 water.out。
输出只有一行，1 个整数，表示接水所需的总时间。

【输入输出样例1】
water.in water.out
5 3 4 4 1 2 1 4
【输入输出样例1解释】
第 1 秒，3 人接水。第 1秒结束时，1、2、3 号同学每人的已接水量为 1，3 号同学接完水，4 号同学接替 3 号同学开始接水。
第 2 秒，3 人接水。第 2 秒结束时，1、2 号同学每人的已接水量为 2，4 号同学的已接水量为 1。
第 3 秒，3 人接水。第 3 秒结束时，1、2 号同学每人的已接水量为 3，4 号同学的已接水量为 2。4号同学接完水，5 号同学接替 4 号同学开始接水。
第 4 秒，3 人接水。第 4 秒结束时，1、2 号同学每人的已接水量为 4，5 号同学的已接水量为 1。1、2、5 号同学接完水，即所有人完成接水。
总接水时间为 4 秒。
【输入输出样例2】
water.in water.out
8 4 23 71 87 32 70 93 80 76 163

【数据范围】
1 ≤ n ≤ 10000，1 ≤m≤ 100 且 m≤ n；
1 ≤wi ≤ 100。
我的程序：
var
w:array[1..10000]of integer;
m,n,i,k:integer;
s:longint;
begin
assign(input,'water.in');
assign(output,'water.out');
reset(input);
rewrite(output);
read(n,m);
k:=m+1;
for i:=1 to n do read(w[i]);
while n<>0 do
begin
for i:=1 to m do dec(w[i]);
for i:=1 to m do
if w[i]<=0 then
if n>m then
begin
w[i]:=w[k];
dec(n);
inc(k);
end
else
begin
w[i]:=w[n];
dec(n);
m:=n;
end;
inc(s);
end;
writeln(s);
close(input);
close(output)
end.
90分，就一个没过，“错误的答案”

参考技术A 假如输入范围小于等于10000，它很可能就会有10000这个点。你自己测试的时候最好把最大数据测一下。好麻烦啊第一题我拿了100分网上有测试参考技术B 我是这么做的
var i,j,r,m,n,min:longint;
f:boolean;
a:array[1..20000]of integer;
begin
readln(m,n);
for i:=1 to m do
read(a[i]);
r:=n;
repeat
inc(min);
for j:=1 to n do
begin
if a[j]<>0 then
dec(a[j]);
if (a[j]=0)and(r<m)then
begin
inc(r);a[j]:=a[r];
end;
end;
f:=true;
for j:=1 to n do
if a[j]<> 0 then
f:=false;
until f and (r=m);
writeln(min);
end.追问

r与m有什么关系？

参考技术C program water;
var
n,m,i,j,t,ans:longint;
a,b,c:array [1..20000] of longint;
begin
readln(n,m);
for i:=1 to n do
read(a[i]);
readln;
t:=m;
ans:=0;
fillchar(b,sizeof(b),0);
for i:=1 to m do
c[i]:=i;
while t<m+n do
begin
for i:=1 to m do
begin
inc(b[c[i]]);
if b[c[i]]=a[c[i]] then
begin
b[c[i]]:=0;
t:=t+1;
c[i]:=t;
end;
end;
inc(ans);
end;
writeln(ans);
end.
看下子，看不懂就问我追问

我手上有标称，我只想问我的为什么错

参考技术D 你没有考虑数据m为0的情况追问

我明确的告诉你，数据没有m=0;