讨论 / 啊!第9、10个测试点与第7,8个测试点时间对比,6个变量的Ac程序,呵呵?
vook 2014-02-06 22:57:12
点我顶贴 收藏 删除
对比如下:

测试点7 Accepted / 7ms / 520kB

测试点8 Accepted / 6ms / 520kB

测试点9 Accepted / 75ms / 1544kB

测试点10 Accepted / 76ms / 1544kB

AC程序:

program dkit;

var s:ansistring;

ch:char;

i,n,t,p:longint;

begin

readln(s);t:=1;n:=0;p:=0;

for i:=1 to length(s) do

begin

ch:=s[i];

case ch of

'+':begin

t:=(t*n)mod 10000;

p:=(p+t)mod 10000;

n:=0;t:=1;

end;

'*':begin

t:=(t*n)mod 10000;

n:=0;

end;

else n:=(n*10+ord(ch)-48)mod 10000;

end;

end;

for i:=length(s)downto 1 do

if s[i]='+' then begin write((p+n)mod 10000);halt;end

else if s[i]='*' then begin write((p+(t*n))mod 10000);halt;end;

for i:=length(s)-3 to length(s) do write(s[i]);

end.

交了好多次啊。。。

查看更多回复
提交回复