Bài 4:
USES CRT;
var n,k,i,j,c,d1,h,max:integer;
d,dau,cuoi:array[1..255] of integer;
MAU: string;
BEGIN
CLRSCR;
write('VAO DAY MAU LA CAC KI TU IN HOA: ');readln(MAU);
WRITELN(************************);
i:=1;
repeat
j:=4;
repeat
for k:=1 to 4 do d[k]:=0;
for k:=i to j do
begin
if (MAU[k]='X') then inc(d[1]);
if (MAU[k]='D') then inc(d[2]);
if (MAU[k]='T') then inc(d[3]);
if (MAU[k]='V') then inc(d[4]);
end;
if((d[1]=1)and(d[2]=1)and(d[4]<>0)and(d[3]<>0))
or ((d[1]=1)and(d[3]=1)and(d[2]<>0)and(d[4]<>0))
or ((d[1]=1)and(d[4]=1)and(d[2]<>0)and(d[3]<>0))
or((d[3]=1)and(d[2]=1)and(d[1]<>0)and(d[4]<>0))
or((d[4]=1)and(d[2]=1)and(d[1]<>0)and(d[3]<>0))
or((d[3]=1)and(d[4]=1)and(d[2]<>0)and(d[1]<>0))
then
begin
inc(h);
if j-i+1 >max then max:=j-i+1;
dau[h]:=i;cuoi[h]:=j;
end;
inc(j);
until j>length(MAU);
inc(i);
until i>length(MAU);
if h>0 then
begin
write(' DOAN MAU THOA MAN LA :');
for i:=dau[1] to cuoi[1] do write(MAU[i]);writeln;
for i:=1 to h do
if cuoi[i]-dau[i]+1=max then
write(' DOAN MAU DAI NHAT THOA MAN LA :');
for j:=dau[i] to cuoi[i] do write(MAU[j]);writeln;
end
else writeln('KHONG CO DOAN MAU NAO THOA MAN');
readln
……… .
Bạn đang xem bài 4: - Đề khảo sát HSG huyện Vĩnh Tường