单词连接（link.pas/c/cpp）pascal语言的问题,求pascal程序详细内容

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/10 20:46:07

单词连接（link.pas/c/cpp）pascal语言的问题,求pascal程序详细内容
单词连接
（link.pas/c/cpp）
内存限制：32MB
时间限制：1秒
输入文件中包含两行,每行一个单词,共两个单词,现在将它们进行如下连接：beast,astonish-> beastonish;但两个单词之间不能存在包含关系,例如at 和atide不能相连.输入两个单词,输出文件共一行,如能连接则输出它们相连后构成的一串字符,如不能连接,则输出“wrong!”
输入样例1：Link.in
beast
astonish
输出样例：link.out
beastonish
输入样例2：Link.in
ast
astonish
输出样例：link.out
wrong!

错了请告诉我
var i,p0:longint;
s0,s1,s2,ansS:string;
begin
readln(s1);
readln(s2);
for i:=2 to length(s1) do begin
s0:=copy(s1,i,255);
p0:=pos(s0,s2);
if p0=1 then begin ansS:=copy(s2,length(s0)+1,255); s2:=''; break; end;
end;
for i:=2 to length(s2) do begin
s0:=copy(s2,i,255);
p0:=pos(s0,s1);
if p0=1 then begin ansS:=copy(s1,length(s0)+1,255); s1:=s2; break; end;
end;
if ansS'' then writeln(s1,ansS) else writeln('wrong!');
end.

单词连接（link.pas/c/cpp）pascal语言的问题,求pascal程序详细内容 2.最后的战场（动态规划）pascal （war.pas/c/cpp） pascal问题,求程序：一道pascal题目排列(permutation)【源程序名】permutation.(pas/cpp)【问题描述】有n 求平均数的pascal程序 PASCAL语言程序基本概念一个pascal语言的问题. Pascal 程序求改错! 求Free Pascal程序 pascal 背包问题一段程序的解释 pascal语言编写一个程序程序题,用pascal语言,

单词连接 （link.pas/c/cpp）pascal语言的问题,求pascal程序详细内容

单词连接（link.pas/c/cpp）pascal语言的问题,求pascal程序详细内容