我的程序如下
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 条评论
-
小小小学生 LV 9 @ 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
