USES CRT; VAR N,K,I,J,C,D1,H,MAX

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

……… .