120 条题解
-
0
坏坏可可 LV 8 @ 2008-10-13 22:44:54
编译通过...
├ 测试数据 01：运行超时...
├ 测试数据 02：运行超时...
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms怎么会？？拿数据在自己机子上测的时候一点儿也不超呀！！！
各位大牛指点下啦~~~~ -
0
gnaggnoyil LV 10 @ 2008-10-08 20:55:37
很久很久以前...
当我还不知道NOI是什么时...
我花了一个下午解出这道题...
并保存...
555...
可现在竟然忘带了... -
0
bochuan007 LV 3 @ 2008-09-24 21:59:11
把字符串直接分成两段，然后分别记数。小心答案是0 的数据，要专门处理的。。。
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms还有就是一开始就给你来个字母，这种情况也要分出来说。。。
if ((s1[i] >= 'a') and (s1[i] = 'A') and (s1[i]
-
0
Nico Robin LV 8 @ 2008-09-21 19:31:41
program improvement;
var
st:string;
s:array[1..2]of string;
ch:char;
i,j,e:integer;
m,a,b:longint;
begin
readln(st);
i:=pos('=',st);
s[1]:=copy(st,1,i-1);
s[1]:=s[1]+'+';
if s[1,1]'-' then s[1]:='+'+s[1];
s[2]:=copy(st,i+1,length(st));
s[2]:=s[2]+'+';
if s[2,1]'-' then s[2]:='+'+s[2];
for e:=1 to 2 do
begin i:=1;
repeat
while (s[e][i]='+')or(s[e][i]='-') do i:=i+1;
if (48=ord(s[e,i])) then
begin
m:=ord(s[e,i])-ord('0');
j:=i+1;
while (48=ord(s[e,j]))do
begin m:=m*10+ord(s[e,j])-ord('0'); j:=j+1; end;
if (s[e,j]='+')or(s[e,j]='-') then
begin
if s[e,i-1]='+' then
if e=1 then a:=a-m else a:=a+m
else if e=1 then a:=a+m else a:=a-m;
i:=j;
end
else
begin
ch:=s[e,j];
if s[e,i-1]='+' then
if e=1 then b:=b+m else b:=b-m
else if e=1 then b:=b-m else b:=b+m;
i:=j+1;
end;
end
else
begin
ch:=s[e,i];
if s[e,i-1]='+' then
if e=1 then b:=b+1 else b:=b-1
else if e=1 then b:=b-1 else b:=b+1;
i:=i+1;
end;
until i=length(s[e]); end;
if a=0 then writeln(ch,'=','0.000')
else writeln(ch,'=',a/b:0:3);
end. -
0
huangdatou LV 3 @ 2008-08-10 22:21:02
交了3次!!!!!.......我做郁闷了
-
0
Alexandria LV 3 @ 2007-11-02 16:57:52
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms模拟移项就可以……
-
0
lynn_523_1 LV 3 @ 2007-10-31 22:01:54
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms弱题一道，字符串处理。
坏坏可可
LV 8
@ 2008-10-13 22:44:54
