清点人数数据疑惑。。。

我的程序如下

Program P1320;

var

f : array[0..50000] of longint;

n, k, i, s, m, r : longint;

ch : char;

Procedure Pa;

var

i : longint;

begin

readln(m);

for i := r to m do

inc(s, f[i]);

writeln(s);

r := m + 1;

end;

Procedure Pb;

var

q, p : longint;

begin

readln(q, p);

if q < r then inc(s, p);

inc(f[q], p);

end;

Procedure Pc;

var

q, p : longint;

begin

readln(q, p);

if q < r then dec(s, p);

dec(f[q], p);

end;

begin

fillchar(f, sizeof(f), 0);

readln(n, k);

for i := 1 to k do

begin

read(ch);

case ch of

'A' : Pa;

'B' : Pb;

'C' : Pc;

end;

end;

end.

应该没事。。。

也不可能超时。。。

就是数据的问题。。。

希望大牛们能够。。。

解答

1 条评论

  • @ 2009-07-27 17:47:22

    。。。。。。。。

    每人编程的风格不同,我看到你的程序头晕。。。。

    我的程序如下,前几天才过的,数据不可能有问题:

    program li;

    var n,k,x,y,i,j,tp0,tp1:longint;

    c,c1:char;

    a:array[-1..500000] of longint;

    begin

    readln(n,k);

    tp1:=0; tp0:=0; x:=0; y:=0;

    for j:=1 to k do

    begin

    read(c,c1);

    if c='A' then

    begin

    readln(x);

    tp0:=x;

    for i:=a[0]+1 to x do tp1:=tp1+a[i];

    write(tp1);

    a[0]:=x;

    end;

    if c='B' then

    begin

    readln(x,y);

    if x

  • 1

信息

ID
1320
难度
6
分类
模拟 点击显示
标签
(无)
递交数
2164
已通过
572
通过率
26%
被复制
4
上传者