Cho xâu khác rỗng. Tìm từ đầu tiên dài nhất trong xâu. (Từ là một dãy kí tự liên tiếp không chứa dấu cách). - Dữ liệu vào: từ tệp f1 gồm một dòng chứa xâu s. - Dữ liệu ra: Ghi ra tệp f2 gồm 1 dòng chứa câu trả lời: “Từ đâu tiên dài nhất trong xâu là: a”. (Với a là từ đầu tiên dài nhất trong xâu s)

Cho xâu khác rỗng. Tìm từ đầu tiên dài nhất trong xâu. (Từ là một dãy kí tự liên tiếp không chứa dấu cách).- Dữ liệu vào: từ tệp f1 gồm một dòng chứa xâu s.- Dữ liệu ra: Ghi ra tệp f2 gồm 1 dòng chứa câu trả lời: “Từ đâu tiên dài nhất trong xâu là: a”. (Với a là từ đầu tiên dài nhất trong xâu s)

Chương trình:

var f1,f2:text;

S,S1,S2,St:string;

i,j,max:longint;

begin

assign(f1,'tudainhat.inp');reset(f1);

assign(f2,'tudainhat.out');rewrite(f2);

read(f1,S);

S1:='';S2:='';max:=1;

if pos(#32,S)=0 then write(f2,'Tu dau tien dai nhat trong xau la: ',S)

else

begin

repeat

for i:=1 to pos(#32,S)-1 do S1:=S1+S[i];

for j:=pos(#32,S)+1 to length(S) do S2:=S2+S[j];

if length(S1) > max then begin

max:=length(S1);

St:=S1;

end;

S1:='';

S :=S2;

S2:='';

until pos(#32,S)=0;

write(f2,'Tu dau tien dai nhat trong xau la: ',St);

end;

close(f1);close(f2);

end.

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email