题解

129 条题解

  • 0
    @ 2008-10-02 17:37:37

    const

    st='jszxoier';

    ss1='cow';

    ss2='bird';

    var

    i,j,n,max,maxl,k,l:longint;

    s,s0:ansistring;

    a:array[1..3000] of ansistring;

    b:array[1..3000] of longint;

    begin

    readln(n);

    for i:=1 to n do

    begin

    readln(a[i]);

    s:='';

    for j:=1 to length(a[i]) do

    s:=s+a[i][length(a[i])-j+1];

    if pos(st,s)>0 then

    begin

    k:=pos(ss1,s);

    while k>0 do

    begin

    s0:=copy(s,1,k-1);

    s0:=s0+ss2+copy(s,k+3,length(s)-k-2);

    s:=s0;

    k:=pos(ss1,s);

    end;

    b[i]:=0;

    s:=s+' ';

    for k:=1 to length(s)-1 do

    begin

    if (s[k]='r') then b[i]:=b[i]+5;

    if (s[k]='p') then b[i]:=b[i]+5;

    if (s[k]='r') and (s[k+1]='p') then b[i]:=b[i]+20;

    end;

    end;

    if (b[i]>max) or ((b[i]=max) and (length(s)

  • 0
    @ 2008-10-02 16:22:00

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 9ms

    ├ 测试数据 03:答案正确... 25ms

    ├ 测试数据 04:答案正确... 9ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 9ms

    ├ 测试数据 10:答案正确... 0ms

    ├ 测试数据 11:答案正确... 72ms

    ├ 测试数据 12:答案正确... 0ms

    ├ 测试数据 13:答案正确... 0ms

    ├ 测试数据 14:答案正确... 0ms

    ├ 测试数据 15:答案正确... 9ms

    ├ 测试数据 16:答案正确... 0ms

    ├ 测试数据 17:答案正确... 0ms

    ├ 测试数据 18:答案正确... 0ms

    ├ 测试数据 19:答案正确... 25ms

    ├ 测试数据 20:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:158ms

    好慢啊!!

  • 0
    @ 2008-10-02 15:45:24

    谁说不能用数组承放字符!

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ├ 测试数据 11:答案正确... 0ms

    ├ 测试数据 12:答案正确... 0ms

    ├ 测试数据 13:答案正确... 0ms

    ├ 测试数据 14:答案正确... 0ms

    ├ 测试数据 15:答案正确... 0ms

    ├ 测试数据 16:答案正确... 0ms

    ├ 测试数据 17:答案正确... 0ms

    ├ 测试数据 18:答案正确... 0ms

    ├ 测试数据 19:答案正确... 0ms

    ├ 测试数据 20:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

  • 0
    @ 2008-10-02 15:23:09

    明白为什么说这题是考语文的了...原来r和rp里的r可以重复计啊...

  • 0
    @ 2008-10-02 13:53:50

    这样的题用不着多说了吧,能不能一次AC就是你RP的问题了.还有,题目看清楚,不要犯低级错误

  • 0
    @ 2008-10-02 12:08:29

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ├ 测试数据 11:答案正确... 0ms

    ├ 测试数据 12:答案正确... 0ms

    ├ 测试数据 13:答案正确... 0ms

    ├ 测试数据 14:答案正确... 0ms

    ├ 测试数据 15:答案正确... 0ms

    ├ 测试数据 16:答案正确... 0ms

    ├ 测试数据 17:答案正确... 0ms

    ├ 测试数据 18:答案正确... 0ms

    ├ 测试数据 19:答案正确... 0ms

    ├ 测试数据 20:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    数据范围让人很郁闷.

  • 0
    @ 2008-10-02 11:55:44

    ├ 测试数据 20:答案错误... ├ 标准行输出

     ├ 错误行输出

    ---|---|---|---|---|---|---|---|-

    Unaccepted 有效得分:95 有效耗时:0ms

    why??????

    help

    第20个点是什么啊

  • 0
    @ 2008-10-06 12:34:52

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 25ms

    ├ 测试数据 03:答案正确... 56ms

    ├ 测试数据 04:答案正确... 9ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 9ms

    ├ 测试数据 11:答案正确... 41ms

    ├ 测试数据 12:答案正确... 0ms

    ├ 测试数据 13:答案正确... 0ms

    ├ 测试数据 14:答案正确... 0ms

    ├ 测试数据 15:答案正确... 9ms

    ├ 测试数据 16:答案正确... 0ms

    ├ 测试数据 17:答案正确... 0ms

    ├ 测试数据 18:答案正确... 0ms

    ├ 测试数据 19:答案正确... 25ms

    ├ 测试数据 20:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    #include

    #include

    #include

    using namespace std;

    int main(){

    int len,lens=INT_MAX,maxrp=0,j,i,n,rp;

    int a,b,c;

    string maxs,s;

    cin>>n;

    for (i=1;i>s;

    a=b=c=rp=0;

    if (s.find("reioxzsj")!=string::npos){

    len=s.size();

    for (j=0;jmaxrp||(len

  • 0
    @ 2008-10-02 08:41:05

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ├ 测试数据 11:答案正确... 0ms

    ├ 测试数据 12:答案正确... 0ms

    ├ 测试数据 13:答案正确... 0ms

    ├ 测试数据 14:答案正确... 0ms

    ├ 测试数据 15:答案正确... 41ms

    ├ 测试数据 16:答案错误... ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 17:答案正确... 0ms

    ├ 测试数据 18:答案正确... 0ms

    ├ 测试数据 19:答案正确... 0ms

    ├ 测试数据 20:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Unaccepted 有效得分:95 有效耗时:41ms

    第16个点是什么啊

  • 0
    @ 2008-10-02 07:59:21

    第16点的数据应该含有‘pprr’这种类型,所以不能直接删去找到的‘pr’

  • 0
    @ 2008-10-01 20:25:51

    那出题者语文水平咋样,也就是他咋理解这题

  • 0
    @ 2008-10-01 17:12:43

    Ansistring TLE,Array 0ms

    我无语了

    KMP+Ansistring=TLE*20

  • 0
    @ 2008-10-01 17:24:02

    我既没有Rp,也不是牛。。有效得分:100 有效耗时:0ms

    var

    n,bestrp,srp,i:longint;

    s,bests:ansistring;

    function rp(s:ansistring):longint;

    var

    i,l,p:longint;

    begin

    l:=length(s);

    rp:=0;

    for i:=1 to l do

    if (s[i]='r')or(s[i]='p') then inc(rp,5);

    for i:=1 to l-1 do

    if (s[i]='p')and(s='r') then inc(rp,20);

    while pos('woc',s)0 do

    begin

    p:=pos('woc',s);

    inc(rp,5);

    delete(s,p,3);

    end;

    end;

    begin

    readln(n);

    readln(s);

    bests:=s;

    bestrp:=rp(s);

    for i:=2 to n do

    begin

    readln(s);

    if pos('reioxzsj',s)=0 then continue;

    srp:=rp(s);

    if srp>bestrp then

    begin

    bestrp:=srp;

    bests:=s;

    end

    else if(srp=bestrp)and(length(s)

  • 0
    @ 2008-10-01 15:30:25

    var total,sump,sumr,sumpr,rpcow,n:integer;max,sumtol:longint;

    a:array[1..3000] of ansistring;

    procedure init;

    var i,j,aa:integer;

    begin

    readln(n);

    for i:=1 to n do

    begin

    readln(a[total]);

    aa:=pos('reioxzsj',a[total]);

    if aa0 then

    begin

    while aa0 do

    begin

    aa:=pos('woc',a[total]);

    if aa0 then begin

    a[total][aa]:='d';

    a[total][aa+1]:='r';

    a[total][aa+2]:='i';

    for j:=length(a[total]) downto aa+3 do

    a[total][j+1]:=a[total][j];

    a[total][j]:='b';

    end;

    end;

    total:=total+1;

    end

    else

    continue;

    end;

    end;

    procedure cal;

    var i,j:integer;

    begin

    for i:=1 to total-1 do

    begin

    for j:=1 to length(a[i]) do

    if a[i][j]='p' then

    begin

    sump:=sump+1;

    if a[i][j+1]='r' then sumpr:=sumpr+1;

    end

    else if

    a[i][j]='r' then sumr:=sumr+1;

    sumtol:=sumr*5+sump*5+sumpr*20;

    sump:=0;sumr:=0;sumpr:=0;

    if sumtol>max then

    begin

    max:=sumtol;

    rpcow:=i;

    end

    else if sumtol=max then

    begin

    if length(a[rpcow])

  • 0
    @ 2008-10-01 15:50:06

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 25ms

    ├ 测试数据 03:答案正确... 72ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 9ms

    ├ 测试数据 10:答案正确... 25ms

    ├ 测试数据 11:答案正确... 41ms

    ├ 测试数据 12:答案正确... 0ms

    ├ 测试数据 13:答案正确... 0ms

    ├ 测试数据 14:答案正确... 0ms

    ├ 测试数据 15:答案正确... 41ms

    ├ 测试数据 16:答案正确... 0ms

    ├ 测试数据 17:答案正确... 0ms

    ├ 测试数据 18:答案正确... 0ms

    ├ 测试数据 19:答案正确... 41ms

    ├ 测试数据 20:答案正确... 572ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:826ms

    最普通的搜索和判断,时间有点慢

    纪念AC65题

  • 0
    @ 2008-10-01 15:14:50

    什么嘛

    怎么改都是错

    咳~~

  • 0
    @ 2008-10-01 15:13:56

    啊啊啊啊啊

    判断语句居然写错了,调了大半天,5555555555

    啊啊啊啊啊

    rp啊

  • 0
    @ 2008-10-01 14:46:03

    总算过了,太难得了。呼~~~~~~~~

  • 0
    @ 2008-10-01 14:29:38

    我也是第16个点多了20

    why?

  • 0
    @ 2008-10-01 14:19:47

    比赛时AC。。

    纯粹的阅读理解题

信息

ID
1454
难度
7
分类
字符串 | 模拟 点击显示
标签
(无)
递交数
2646
已通过
475
通过率
18%
被复制
2
上传者