点这里查看
讨论 / noip 2013 复赛？？？？？
NEW WORLD 2013-11-23 21:24:31
点我顶贴 收藏 删除
第一题和第二题都简单。
#1 NEW WORLD@2013-11-23 21:25:07
回复 删除
第三题第四题都没做，看不懂
#2 NEW WORLD@2013-11-23 21:26:16
回复 删除
最后得知：

第一题：100分

第二题：0分

第三题：0分

第四题：0分

#3 NEW WORLD@2013-11-23 21:27:03
回复 删除
第二题超时了。。。。。。
#4 NEW WORLD@2013-11-23 21:27:26
回复 删除
第一题是真水呀

#5 NEW WORLD@2013-11-23 21:29:04
回复 删除
赛后又把第二题做出来了，我当时怎莫没想到那！！
#6 lzhdh@2013-11-23 22:53:14
回复 删除
太好了，我第二题有分，但不知为啥拿不满
#7 NEW WORLD@2013-11-24 04:45:30
回复 删除
这是第二题的程序：

program expr;

var

sss:ansistring;

y,z,i,ss:longint;

s:array[1..100001]of string;

a:array[1..100001]of longint;

f:array[1..100000]of char;

begin

readln(sss);

y:=1;

z:=1;

for i:=1 to length(sss) do

if sss[i] in ['0'..'9'] then s[y]:=s[y]+sss[i]

else

begin

inc(y);

f[z]:=sss[i];

inc(z);

end;

for i:=1 to y do

begin

delete(s[i],1,length(s[i])-4);

val(s[i],a[i]);

end;

for i:=1 to y-1 do

if f[i]='*' then

begin

a[i]:=a[i]*a[i+1];

a[i+1]:=0;

end;

for i:=1 to y do

ss:=ss+a[i];

write(ss);

readln;

readln;

end.

算的时候也不要用高精度，直接取数的后四位算就ok了，其实挺容易的。

#8 NEW WORLD@2013-11-24 04:46:50
回复 删除
第一题太简单了

小菜也能拿满分

#9 NEW WORLD@2013-11-24 04:47:28
回复 删除
程序就不发了
#10 NEW WORLD@2013-11-24 04:48:03
回复 删除
这次比赛本能得200分的
查看更多回复
提交回复