program s;

var s1,s2:string;

procedure solve(s1,s2:string);

var k:integer;

begin if length(s2)=1

then write(s2)

else begin k:=pos(s2[length(s2)],s1);

write(s1[k]);

if k>1 then solve(copy(s1,1,k-1),copy(s2,1,k-1));

if k

var

st1,st2,st3:string;

pop,pp,i,j,l:integer;

procedure dg(r,t:integer);

var

c:char;

i1,e:integer;

begin

if r>t then exit;

c:=st2[t];

st3:=st3+c;

e:=pos(c,st1);

delete(st1,e,1);

dg(r,e-1);

dg(e,t-1);

insert(c,st1,e);

end;

begin

readln(st1);readln(st2);

l:=length(st1);

dg(1,l);

writeln(st3);

end.

var m,l,f:string;

function make(sm,sl:string):string;

var l:longint;

p:longint;

mm,ll,mmm,lll:string;

begin

l:=length(sm);

if l > 1 then

begin

for p:= 1 to l do

if sm[p] = sl[l] then break;

mm:=copy(sm,1,p-1);

ll:=copy(sl,1,p-1);

mmm:=copy(sm,p+1,l-p);

lll:=copy(sl,p,l-p);

make:=sl[l] + make(mm,ll) + make(mmm,lll);

end

else make:=sm;

end;

begin

readln(m);

readln(l);

f:=make(m,l);

writeln(f);

readln

end.

一样的办法...用了个pos就Error202了....

终于过了

.编译通过...

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

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

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

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

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

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

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

我非常无语的4次AC。。。

4次都是PUPPY测的啊..4次堆栈溢出。。

对不起这么强的评测机。。

C++的字符串函数一定要多记记!

C来猛的可能会慢点.

string.find(char c);//参数为某个字符,返回值为从0开始的序号

string.substr(int position,int len)//返回从position开始长度为len的子串

void dfs(string inorder,string postorder)

{

char root=postorder[postorder.length()-1];

int position=inorder.find(root);

cout

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

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

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

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

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

今年初赛的读程题第四题改改就行了

哪为高人指点一下？

有什么错误会造成超时？

我为了这个1级的题快崩了！

#include

#include

char s1[9],s2[9];

int sch(int f1,int e1,int f2,int e2)

{int i;/*四个参数，（f1,e1）表示目前考虑的子树中中序对应的编号

（f2,e2）为后序编号*/

for(i=f1;if1) sch(f1,i-1,f2,f2+i-f1-1);/*递归左树*/

else if(i-1==f1) printf("%c",s1[f1]);

if(i+1

var

mid,la,fi:string;

function findf(m,l:string):string;

var i,len:longint;

tml,tmr,tll,tlr:string;

begin

len:=length(m);

if len>1 then

begin

for i:=1 to len do

if m[i]=l[len] then break;

tml:=copy(m,1,i-1);

tmr:=copy(m,i+1,len-i);

tll:=copy(l,1,i-1);

tlr:=copy(l,i,len-i);

findf:=l[len]+findf(tml,tll)+findf(tmr,tlr);

end else findf:=m;

end;

begin

readln(mid);

readln(la);

fi:=findf(mid,la);

writeln(fi);

end.

编译通过...

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

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

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

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

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

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

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

小菜过的第四十道题

我个SB不懂用递归= =……一想起来可以用递归10分钟搞定= =

MD浪费人生

program p1132;

var st2,st3:string;

procedure Love(s1,s2:string);

var l,r,i,k1,k2:integer;

mid:string;

begin

l:=length(s1);

r:=pos(copy(s2,l,1),s1);

write(copy(s1,r,1));

if r>1 then

Love(copy(s1,1,r-1),copy(s2,1,r-1));

if r

编译通过...

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

├ 测试数据 02：运行超时...

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

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

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

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

Unaccepted 有效得分：80 有效耗时：0ms

var zhong,hou:string;

procedure search(x,y:string);

var i,l,len:longint;

begin

if (length(x)=0) or (length(y)=0) then exit;

len:=length(y);

write(y[len]);

for i:=1 to len do

if x[i]=y[len] then break;

l:=i-1;

search(copy(x,1,l),copy(y,1,l));

search(copy(x,i+1,len-i),copy(y,l+1,len-i));

end;

begin

readln(zhong);

readln(hou);

search(zhong,hou);

end.

我靠~!!!第一次提交LORA 评测机的超时,再提交就AC了~

无语............

终于A了。。。太菜了，递归字符串。一开始我数字递归。被整晕了好久

中 B A DC

后 BDC A

答案：ABCD

#include

using namespace std;

void print(char *midOrder, char *backOrder){

if(strlen(backOrder)==0)

return ;

char c = backOrder[strlen(backOrder)-1];

cout>backOrder;

print(midOrder,backOrder);

return 0;

}

编译通过...

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

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

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

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

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

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

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

我也不想的。。

哈哈·

系统正在处理您的请求 请勿刷新此页……

您有新消息

请点击 这里 进入消息中心

34 / 59 (58%) 　 首页 站务 公告　|　题库/分类/原题 记录 比赛 团队 交流 讨论　|　U-Space 搜索 换肤　|　登出

公告 News >> 　　New! Vijos 交流板块开放 (2008-8-30 22:29:55) 　　New! CSC WorkGroup 邀请赛II (2008-8-30 0:12:12) 　　New! 简单的生活模拟赛 评测结束 (2008-8-30 0:10:00) 　　New! 关于近期Vijos DDNS解析故障的说明 (2008-8-26 17:29:15) 　　New! CSC WorkGroup 邀请赛II 推迟至9月6日 (2008-8-26 14:29:12)

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

记录号 Flag 得分 记录信息 环境 评测机 程序提交时间

R797864 Accepted 100 From 695202454－

　 P1132 FPC Vijos Dolphin 2008-8-31 20:14:41

From zhouyc

求二叉树的先序序列 全国青少年信息学奥林匹克分区联赛 (NOIp) 竞赛原题

编译通过...

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

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

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

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

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

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

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

var

s3,s4:string;

j,k:integer;

procedure init(s,s1:string);

var

i:integer;

begin

if s='' then exit;

i:=pos(s1[length(s1)],s);

write(copy(s1,length(s1),1));

if i>1 then

init(copy(s,1,i-1),copy(s1,1,i-1));

if i

mark

毕业了回来留着教下一届...

你可以在这里写上你的解题思路或者解题方法等但规定要求不能贴出任何有关于此题的程序代码

编译通过...

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

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

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

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

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

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

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