pascal输入2条英文句子,找出相同部分……

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/07/12 11:32:13

pascal输入2条英文句子,找出相同部分……
例如：this is a book
is a
输出：is a

var s,z:string;
i,j:longint;
a:array[1..1000] of integer;
begin
readln(s);
readln(z);
fillchar(a,sizeof(a),0);
for i:=1 to length(s) do
begin
for j:=1 to length(z) do
if (s[i]=z[j]) and (a[j]=0)
then begin
write(s[i]);
a[j]:=1;
break;
end;
end;
writeln;
end.
希望我的回答能帮到你.（每次都是我~）
再问：有错的…………
再答：你把有错的数据发给我呢，我再调试一下。

pascal输入2条英文句子,找出相同部分…… PASCAL 从键盘上输入一个英文句子,找出里面有几个字母A. PASCAL 输入一个英文句子,将里面每一个单词的首写字母换成大写字母…… pascal 语言:输入一个英文句子，以‘.'结束，单词间用空格隔开。 pascal问题,求用string做：求输入一句英文句子,求所有单词的平均长度. pascal单词统计Description 输入一串英文句子,统计该英文句子中英文单词的个数,并将单词个数输出.Inpu 找出与句子中划线部分意思相近或相同的选项读读下面的单词和句子找出发音相同的部分填在( )中求初级pascal题目答案：输入正整数n（整型）,求n!除以2013的余数（n!=1*2*3*….*n） PASCAL编程:输入三角形的三条边长,就三角形的面积. 编写VB程序,在文本框中输入一个简单的英文句子,找出这个句子中最长的单词输入n个整数,请找出最小数所在的位置,并把它与第一个数对调.(pascal 数组）