BÀI TẬP 79: TÌM XÂU CON DÀI NHẤT - BÀI 3 ĐỀ THI TIN HỌC TRẺ HUYỆN CHÂU THÀNH 2022
Cho xâu S gồm n ký tự, biết rằng xâu S chỉ chứa các ký tự in thường trong bảng chữ cái tiếng Anh (10<n<100);
Yêu cầu: Hãy tìm xâu ký tự dài nhất có
chứa 1 ký tự “a” và 1 ký tự “z” xuất hiện trong xâu S.
Dữ liệu: Cho trong tập tin xau.inp gồm một dòng chứa các ký tự của
xâu S.
Kết quả: Ghi ra tập tin xau.out gồm một dòng ghi xâu ký tự vừa
tìm được. Nếu tìm được nhiều hơn 1 xâu ký tự thoả mãn đề bài thì ghi xâu ký tự
đầu tiên tính từ trái sang phải. Nếu không tìm được xâu thoả mãn đề bài thì ghi
“Khong tim duoc”.
Ví
dụ:
|
xau.inp |
xau.out |
|
abcdefghijabca |
Khong tim duoc |
|
Abczbczdefgh |
abczbc |
CODE THAM KHẢO:
Program Xaucon;
Var _S,s:string;
//=======================
procedure ReadFile;
Begin
Assign(input,'xau.inp');reset(input);
readln(s);
End;
//=========================
procedure Process;//ky thuat 2 con tro
var N,M,d,l,r: integer;
st:string;
Begin
N:=length(s);d:=0;l:=1;
For r:=1 to N do
Begin
if((s[r]='a') or(s[r]='z')) then inc(d);
while (d>2) do
Begin
if((s[l]='a') or(s[l]='z')) then dec(d);
inc(l);
End;
if(d=2) then
Begin
St:=copy(s,l,r-l+1);
M:=length(st);
if(length(_S)<M) then
Begin
if ((pos('a',st)>0)and(pos('z', st)>0)) then _S:=st;
End;
End;
End;//for r
End;
//============================
Begin
_S:=''; //_S= save string
ReadFile;
assign(output,'xau.out'); rewrite(output);
Process;
if (length(_S)>1) then write(_S)
else write('Khong tim duoc');
//close(output);
End.
