giải thich giúp mình đoạn code
Dãy ABC:
Cho trước một số nguyên dương N ( N<= 100), hãy tìm một xâu chỉ gồm các ký tự A,B,C thỏa mãn các điều kiện sau:
*Có độ dài N
*Hai đoạn con bất kỳ liền nhau đều khác nhau. ( Đoạn con là 1 dãy các ký tự liên tiếp của xâu).
*Có ít ký tự C nhất.
CODE:
const
InputFile = 'data1.inp';
OutputFile = 'data1.out';
max = 100;
var
N,MinC : Integer;
X,Best : array[1..max] of 'A'..'C';
T : array[0..max] of Integer;
f : Text;
function Same(i,l : Integer) : Boolean;
var
j,k : Integer;
begin
j:= i - l;
for k:= 0 to l-1 do
if X[i-k] <> X[j-k] then
begin
Same := False; Exit;
end;
Same := True;
end;
function Check( i: Integer) :boolean;
var
l:Integer;
begin
for l:= 1 to i div 2 do
if Same (i,l) then
begin
Check := False; Exit;
end;
Check := True;
end;
procedure KeepResult;
begin
MinC := T[N];
Best := X;
end;
procedure Attempt( i: Integer);
var
j: 'A'..'C';
begin
for j:= 'A' to 'C' do
begin
X[i] := j;
if Check(i) then
begin
if j = 'C' then T[i] := T[i-1] +1
else T[i] := T[i-1];
if T[i] + (N-i) div 4 < MinC then
if i = N then KeepResult
else Attempt(i+1);
end;
end;
end;
procedure PrintResult;
var
i: Integer;
begin
for i:= 1 to N do Write ( f,Best[i]);
WriteLn(f);
WriteLn(f,' " C " - Letter Count: ',MinC);
end;
begin
Assign (f,InputFile);Reset(f);
ReadLn (f,N);
Close(f);
Assign(f,OutputFile); Rewrite(f);
T[0] := 0;
MinC := N;
Attempt (1);
PrintResult;
Close(f);
end.
83% thành viên diễn đàn không hỏi bài tập, còn bạn thì sao?